delphi完成將BMP格式圖形轉化為JPG格式圖形的辦法

delphi完成將BMP格式圖形轉化為JPG格式圖形的辦法。本站提示廣大學習愛好者：（delphi完成將BMP格式圖形轉化為JPG格式圖形的辦法）文章只能為提供參考，不一定能成為您想要的結果。以下是delphi完成將BMP格式圖形轉化為JPG格式圖形的辦法正文

本文實例講述了delphi完成將BMP格式圖形轉化為JPG格式圖形的辦法。分享給大家供大家參考。詳細完成辦法如下：

procedure ConvertBMPtoJPG(SFileName,DFileName:string);
Var
  J:TJpegImage;
  I:TBitmap;
  S,D:String;
begin
  s:=SFileName;
  d:=DFileName;
  J:=TJpegImage.Create;
  I:=TBitmap.Create;
  I.LoadFromFile(s);
  J.Assign(I);
  I.Free;
  d:=changefileext(d,'.jpg');
  J.SaveToFile(d);
  Application.processmessages;
  J.Free;
end;

希望本文所述對大家的Delphi順序設計有所協助。