delphi實現將BMP格式圖形轉化為JPG格式圖形的方法
更新時間:2014年12月20日 10:38:56 投稿:shichen2014
這篇文章主要介紹了delphi實現將BMP格式圖形轉化為JPG格式圖形的方法,通過簡單的自定義函數調用系統(tǒng)自帶的changefileext及SaveToFile等方法來實現格式轉換功能,是非常實用的技巧,需要的朋友可以參考下
本文實例講述了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程序設計有所幫助。
相關文章
delphi mysql adbquery數據提供程序或其他服務返回 E_FAIL 狀態(tài)
這篇文章主要介紹了delphi mysql adbquery數據提供程序或其他服務返回 E_FAIL 狀態(tài)的解決方法2013-11-11