本文提供了一个使用Delphi将BMP格式图像文件转换为JPG格式的示例代码。通过创建并利用TBitmap和TJPEGImage组件，该过程实现了图像的加载、压缩及保存。
procedure BMPToJPG(BmpFileName:string);
var
Jpeg : TJPEGImage;
Bmp : TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile(BmpFileName);
Jpeg := TJPEGImage.Create;
try
Jpeg.Assign(Bmp);
Jpeg.Compress;
//保存图片
Jpeg.SaveToFile(Form4.SavePictureDialog1.FileName);
finally
Jpeg.Free;
end;
finally
Bmp.Free;
end;
end;
var
Jpeg : TJPEGImage;
Bmp : TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile(BmpFileName);
Jpeg := TJPEGImage.Create;
try
Jpeg.Assign(Bmp);
Jpeg.Compress;
//保存图片
Jpeg.SaveToFile(Form4.SavePictureDialog1.FileName);
finally
Jpeg.Free;
end;
finally
Bmp.Free;
end;
end;
扫一扫
7668
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
