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

Question

一个比较普通的方法：//将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;

Answer 1

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