如何将BMP文件转化为JPG文件？不只是变一下扩展名，要压缩其大小才行。

Question

to SCUM:我的MAIL：[email protected],你若有，我给分。

Answer 1

不知道DELPHI自带的JPEG单元你是否满意?如果用JPEG单元的话把BMP中图象ASSIGN到JPEG对象上然后再存盘就可以了.

Answer 2

to 929:给个具体的例子吧，假如我要将IMAGE中的BMP图象导出为JPG，应如何写代码？

Answer 3

 可以如下,(其他格式也许也可，试一下）记得加入 use jpeg.
var
  MyJpeg: TJpegImage;
  Image1: TImage;
begin
  Image1:= TImage.Create(self);
  MyJpeg:= TJpegImage.Create;
  Image1.Picture.Bitmap.LoadFromFile('c:\windows\desktop\aa.BMP');  // Load the Bitmap from a file
  MyJpeg.Assign(Image1.Picture.Bitmap);  // Assign the BitMap to MyJpeg object
  MyJpeg.CompressionQuality:=StrToInt('75'); // 压缩比率%75
  MyJpeg.Compress;
  MyJpeg.SaveToFile('c:\windows\desktop\test.JPG'); // Save the JPEG to Disk
end;

Answer 4

好久没有写Delphi，不知道对不对：
var
  b: TBitmap;
  j: TJpegImage;
begin
  try
    b:=TBitmap.Create;
    j:=TJpegImage.Create;
    b.LoadFromFile('FileName1');
    j.Assign(b);
    j.SaveToFile('FileName2');
  finally
    j.Free;
    b.Free;
  end;end;//记得在Uses中加入Jpeg哟！