Conversion d' image bmp en jpeg

Soyez le premier à donner votre avis sur cette source.

Vue 9 595 fois - Téléchargée 751 fois

Description

Ce code sert à Convertir une Image du format BMP au format JPG.
Uses JPEG doit être ajouté au début du code (avec les autres)

Source / Exemple :


var
Jp : TjpegImage;
Bp : TbitMap;

begin
{On crée les 2 objets} 
Jp := TjpegImage.Create;
Bp := TbitMap.Create;
Bp.LoadFromFile(txtbmp.text);
jp.Assign(Bp);
{On Définit la qualité}
jp.CompressionQuality := Qualite {Nombre de 1 a 100};
{On enregistre}
jp.SaveToFile(txtjpeg.text);
{On détruit les 2 objets}
jp.Free;
bp.FreeImage;
end;

Conclusion :


Dans le zip y a un petit projet qui le fait avec des boites de dialogues et une trackbar pour la qualité.
Allez @+ et bonne prog.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
470
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007

Le problème venait que l'image était basé sur 38 octects ;)
Messages postés
3
Date d'inscription
vendredi 7 avril 2006
Statut
Membre
Dernière intervention
8 avril 2006

Un grand merci,
simple et de bon goût quand on ne connait pas TjpegImage, ce qui était mon cas !
Ouf !
Messages postés
470
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007

Bonne source mais lorsque je l'utilise mes jpg sont à dominante verte et rend l'image inexploitable !

sais tu comment résoudre ce problème ? merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.