如何将bmp文件转换为jpg文件，请问在delphi中要怎样转换才能装入 jpg文件？
回答网友问题：
=========================================================================〉
: 如何将bmp文件转换为jpg文件，请问在delphi中要怎样转换才能装入
: jpg文件？
:
<========================================================================
这位网友，如果你使用delphi4，注意到它的timage支持的文件格式可以为*.jpg,*.jpeg,*.bmp,*.ico……这个问题将很好解决！
下面是源代码：
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
procedure tform1.button1click(sender: tobject);
(*压缩mbp为jpeg;但是没有提供压缩比可选项
凑合用吧，大概1/3 ^_^:
note:必须加上jpeg到uses单元
*)
var
myjpeg : tjpegimage;
mybmp : tbitmap;
begin
mybmp := tbitmap.create;
with mybmp do
try
loadfromfile('e:\lm.bmp'); //你的图片位置
myjpeg := tjpegimage.create;
with myjpeg do begin
assign(mybmp);
compressionquality:=10; //压缩比例
compress;
savetofile('e:\lm01.jpeg');//保存路径……
free;
end;
finally
free;
end;
end;
