AI摘要
这段代码是一个将BMP格式图片转换为JPG格式的Delphi程序。程序定义了一个名为BMPToJPG的函数,它接受一个BMP文件路径作为参数。首先,创建一个TBitmap对象来加载BMP文件,然后创建一个TJPEGImage对象,将BMP对象的内容复制到JPEG对象中,并压缩JPEG图像。最后,将压缩后的JPEG图像保存到指定路径。
这段代码是一个将BMP
//BMP格式图片转JPG格式
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;
2 条评论
[quote=lcd]咋用? [/quote]
这是Delphi代码。工具软件请看这里https://blog.samool.com/show-313-1.html
《图像转换小软件(bmp to jpg)》
咋用?