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