Conversion d' image bmp en jpeg

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

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.