BMP2JPG,JPG2BMP

最新推荐文章于 2024-10-19 11:41:19 发布

dechun15963

最新推荐文章于 2024-10-19 11:41:19 发布

阅读量208

点赞数

原文链接：http://www.cnblogs.com/Jekhn/archive/2010/12/28/1918713.html

版权

本文提供了一段使用Delphi实现的BMP与JPG格式互转的代码，通过创建TBitmap和TJpegImage对象，加载源文件，转换格式并保存为目标文件，适用于图像处理和格式转换的需求。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

BMP2JPG,JPG2BMP

代码

// uses jpeg
procedure BMP2JPG( const BMPFile: string );
var
BMP: TBitmap;
JPG: TJpegImage;
FileName: string ;
begin
FileName : = BMPFile;
BMP : = TBitmap.Create;
JPG : = TJpegImage.Create;
try
BMP.LoadFromFile(FileName);
JPG.Assign(BMP);
FileName : = ChangeFileExt(FileName, ' .jpg ' );
JPG.SaveToFile(FileName);
finally
BMP.Free;
JPG.Free;
end ;
end ;

procedure JPG2BMP( const JPGFile: string );
var
BMP: TBitmap;
JPG: TJpegImage;
FileName: string ;
begin
FileName : = JPGFile;
BMP : = TBitmap.Create;
JPG : = TJpegImage.Create;
try
JPG.LoadFromFile(FileName);
BMP.Assign(JPG);
FileName : = ChangeFileExt(FileName, ' .bmp ' );
BMP.SaveToFile(FileName);
finally
BMP.Free;
JPG.Free;
end ;
end ;

转载于:https://www.cnblogs.com/Jekhn/archive/2010/12/28/1918713.html