Transformer un JPEG en BMP

Var
jpeg: TJPEGImage;
bmp: TBitmap;

Begin
jpeg:= TJPEGImage.Create;
try
jpeg.LoadFromFile( filename );
bmp:= TBitmap.Create;
try
bmp.Assign( jpeg );
bmp.SaveTofile( ChangeFileExt( filename, '.BMP' ));
finally
bmp.free
end;
finally
jpeg.free
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 2653 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Graphisme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur