Delphi中把bmp圖片轉換成jpg圖片

//bmp圖片轉換成jpg圖片
function fun_BmpToJpg(temp path: String; ACQ: Integer): Boolean; stdcall;
var
  MyJpeg: TJpegImage;
  Bmp: TBitmap;
begin
  result := false; 
  if FileExists(temp) then
  begin
    Bmp:= TBitmapCreate;
    MyJpeg:= TJpegImageCreate;
    BmpLoadFromFile(temp);
    MyJpegAssign(Bmp);
    MyJpegCompressionQuality := ACQ;
    MyJpegCompress;
    MyJpegSaveToFile(Path);
    MyJpegfree;
    Bmpfree;
    if FileExists(path) then
      result := True;
  end;
end;
該文章轉載自網絡大本營
From:http://tw.wingwit.com/Article/program/Delphi/201311/24693.html