亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

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程序設計有所幫助。

相關文章

最新評論