小弟是初学者，希望大家能答复我的问题

[yuanqin668]

我想用DELPHI来进行图片压缩，就是把图片从BMP格式转化为JPEG格式（而且希望从调节压缩量），我试了多种方法，都不行，希望高手们指点一二，给个好点的算法。小弟不胜感激。希望大虾们留下联系方法（QQ号码也好呀）
如果有什么东西要发给小弟，请发到 [e-mail].

[zfmich]

一个比较普通的方法：

//将BMP文件转化为JPG文件
procedure BMPSaveToJPG(sBMPFile :string);
var
B: TBitmap;
jp: TJpegImage;
begin
jp := TJpegImage.Create;
try
with jp do
begin
try
B := TBitmap.Create ;
B.LoadFromFile(trim(sBMPFile));
Assign(B);
SaveToFile(ChangeFileExt(trim(sBMPFile),'.jpg'))
finally
B.free ;
end;
end;
finally
jp.Free;
end;
end;

[yoboo_yb]

关注!呵呵

[ai_daoluan]

关注啊。什么样的算法才能压缩比很高那。

[tangyong_delphi]

你的邮件地址错了！