delphi實(shí)現(xiàn)將BMP格式圖形轉(zhuǎn)化為JPG格式圖形的方法
更新時(shí)間：2014年12月20日 10:38:56 投稿：shichen2014
這篇文章主要介紹了delphi實(shí)現(xiàn)將BMP格式圖形轉(zhuǎn)化為JPG格式圖形的方法,通過(guò)簡(jiǎn)單的自定義函數(shù)調(diào)用系統(tǒng)自帶的changefileext及SaveToFile等方法來(lái)實(shí)現(xiàn)格式轉(zhuǎn)換功能,是非常實(shí)用的技巧,需要的朋友可以參考下
本文實(shí)例講述了delphi實(shí)現(xiàn)將BMP格式圖形轉(zhuǎn)化為JPG格式圖形的方法。分享給大家供大家參考。具體實(shí)現(xiàn)方法如下：
復(fù)制代碼 代碼如下:
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;
希望本文所述對(duì)大家的Delphi程序設(shè)計(jì)有所幫助。
相關(guān)文章
delphi mysql adbquery數(shù)據(jù)提供程序或其他服務(wù)返回 E_FAIL 狀態(tài)
這篇文章主要介紹了delphi mysql adbquery數(shù)據(jù)提供程序或其他服務(wù)返回 E_FAIL 狀態(tài)的解決方法2013-11-11
在用Delphi 編程處理文本文件的時(shí)候，如果要裝載的文件比較大，你可能會(huì)想在文件裝載過(guò)程中提供一個(gè)裝載進(jìn)度的提示－－那么你就必需自己編寫(xiě)直接通過(guò)文件打開(kāi)/讀取函數(shù)來(lái)裝載文件內(nèi)容的函數(shù)。2008-03-03
Delphi實(shí)現(xiàn)圖片滾動(dòng)切換的完整實(shí)例代碼
這篇文章主要介紹了Delphi實(shí)現(xiàn)圖片滾動(dòng)切換的完整實(shí)例代碼,通過(guò)本實(shí)例，讀者可以進(jìn)一步掌握Delphi控件及圖形處理的技巧,需要的朋友可以參考下2014-07-07
本文通過(guò)實(shí)例代碼給大家介紹ListView 百分比進(jìn)度條，本文使用的是delphi語(yǔ)言實(shí)現(xiàn)的，代碼比較簡(jiǎn)單實(shí)用，希望的朋友參考下2016-02-02
Delphi實(shí)現(xiàn)樹(shù)型結(jié)構(gòu)具體實(shí)例
這篇文章介紹了Delphi實(shí)現(xiàn)樹(shù)型結(jié)構(gòu)具體實(shí)例，有需要的朋友可以參考一下2013-10-10
Delphi遠(yuǎn)程連接Mysql的實(shí)現(xiàn)方法
這篇文章主要介紹了Delphi遠(yuǎn)程連接Mysql的實(shí)現(xiàn)方法,需要的朋友可以參考下2014-09-09
Delphi書(shū)籍15本網(wǎng)盤(pán)下載地址整理
由Delphi園地整理的Delphi書(shū)籍15本常用的參考書(shū)籍，需要的朋友可以下載了。2011-12-12
這篇文章介紹了Delphi 生成excel中餅圖的實(shí)例代碼，有需要的朋友可以參考一下2013-08-08
這篇文章主要為大家詳細(xì)介紹了Delphi菜單組件TMainMenu的使用方法，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2017-11-11
多線程應(yīng)該是編程工作者的基礎(chǔ)技能, 但這個(gè)基礎(chǔ)對(duì)我來(lái)講的確有點(diǎn)難(起碼昨天以前是這樣).2009-04-04