Delphi Tutorial

With this procedure below you can convert JPT to BMP.

Procedure ConvertJPGtoBMP;
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;

This entry was posted on Thursday, February 15th, 2007 at 11:33 am and is filed under Graphics. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.