Conversion d' image bmp en jpeg

Soyez le premier à donner votre avis sur cette source.

Vue 9 478 fois - Téléchargée 712 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

Filipe35
Messages postés
496
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
watermodel
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 !
Filipe35
Messages postés
496
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 ;)

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.