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;
Related Posts
|