在上次，我們談到了Dephi中資源文件使用詳解以及Dephi資源文件的初級(jí)應(yīng)用篇，在您對(duì)Dephi資源文件有了一定的了解后，我們現(xiàn)在來(lái)談一下Dephi資源文件的中、高級(jí)應(yīng)用篇。
中級(jí)應(yīng)用篇
上面我們已經(jīng)知道如何把一副BMP圖像從資源文件里面讀出來(lái),但是BMP文件太大了,JPG文件應(yīng)用的相對(duì)較多.那么如何把JPG圖像讀出來(lái)呢?用資源文件加流方式即可。具體方法如下:
1.MyJpg JPEG My.JPG
2.
Var
Stream:TStream;
MyJpg:TJpegImage;
Begin
Stream：＝TResourceStream.Cceat(HINSTANCE,'MyJpg','JPEG');
Try
MyJpg:=TJpegImage.Create;
Try
MyJpg.LoadfromStream(Stream);
Image1.Picture.Assignc(MyJpg);
Finally
MyJpg.Free;
end;
Finally
Stream.Free;
end;
end;
讀取其它圖片文件也是一樣的.比如說(shuō)gif動(dòng)畫(huà)文件，當(dāng)然前提是你有一個(gè)gif.pas，這個(gè)單元很多站點(diǎn)都有的，可以自己去找找。實(shí)際應(yīng)用中我還發(fā)現(xiàn)用上面的代碼可以直接顯示資源文件中的ICON和BMP。
說(shuō)到圖形處理,實(shí)際上還可以用Delphi創(chuàng)建、調(diào)用純圖標(biāo)資源的DLL.比如說(shuō)你可以看看超級(jí)解霸目錄下的Dll,很多就是純圖標(biāo)資源而已。具體方法如下:
1:創(chuàng)建一個(gè)Hicon.RES文件,這里不再重復(fù).
2:新建一文本文件Icon.dpr,內(nèi)容如下:
library Icon;
{$R Icon.RES}
begin
end
用Delphi打開(kāi)編譯即可得到Icon.dll.
3:實(shí)際調(diào)用方法如下:
......
Private
Hinst:THANDLE;
......
Var Hicon:THANDLE;
begin
Hinst:=Loadlibrary('Icon.dll');
If Hinst=0 Then Exit；
Hicon:=Loadicon(Hinst,Pchar(Edit1.Text));
If Hicon<>0 Then Image1.Picture.Icon.Handle:=Hicon;
FreeLibrary(Hinst);
end;
如果你的程序想在國(guó)際上供使用不同語(yǔ)言的人使用的話,用Dll來(lái)存放字符資源將是一個(gè)好方法.因?yàn)镈ll不象ini文件那樣可以被人隨便修改,特別是有時(shí)侯如果想保存一些版權(quán)信息的話用Dll就再好不過(guò)了。比如說(shuō)你準(zhǔn)備開(kāi)發(fā)一個(gè)"漢字簡(jiǎn)繁體翻譯器"軟件,準(zhǔn)備提供Gb32,Big5碼和英文三種語(yǔ)言菜單給用戶,那么你可以試試用Dll來(lái)保存字符資源.
我們需要建立三個(gè)Dll.第一步當(dāng)然是寫(xiě)Rc文件,舉Gb32碼為例,內(nèi)容如下:
/*MySc.rc*/
#define IDS_MainForm_Caption 1
#define IDS_BtnOpen_Caption 2
#define IDS_BtnSave_Caption 3
#define IDS_BtnBig5_Caption 4
#define IDS_BtnGb32_Caption 5
#define IDS_BtnHelp_Caption 6
#define IDS_Help_Shelp 7
Stringtable
{
IDS_MainForm_Caption,"漢字簡(jiǎn)繁體翻譯器"
IDS_BtnOpen_Caption,"打開(kāi)文件"
IDS_BtnSave_Caption,"保存文件"
IDS_BtnBig5_Caption,"轉(zhuǎn)換成Big5"
IDS_BtnGb32_Caption,"轉(zhuǎn)換成Gb32"
IDS_BtnHelp_Caption,"幫助"
IDS_Help_Shelp,"輸入文字或打開(kāi)文件后按需要點(diǎn)擊按鈕即可轉(zhuǎn)換!"
}
中級(jí)應(yīng)用篇
上面我們已經(jīng)知道如何把一副BMP圖像從資源文件里面讀出來(lái),但是BMP文件太大了,JPG文件應(yīng)用的相對(duì)較多.那么如何把JPG圖像讀出來(lái)呢?用資源文件加流方式即可。具體方法如下:
1.MyJpg JPEG My.JPG
2.
Var
Stream:TStream;
MyJpg:TJpegImage;
Begin
Stream：＝TResourceStream.Cceat(HINSTANCE,'MyJpg','JPEG');
Try
MyJpg:=TJpegImage.Create;
Try
MyJpg.LoadfromStream(Stream);
Image1.Picture.Assignc(MyJpg);
Finally
MyJpg.Free;
end;
Finally
Stream.Free;
end;
end;
讀取其它圖片文件也是一樣的.比如說(shuō)gif動(dòng)畫(huà)文件，當(dāng)然前提是你有一個(gè)gif.pas，這個(gè)單元很多站點(diǎn)都有的，可以自己去找找。實(shí)際應(yīng)用中我還發(fā)現(xiàn)用上面的代碼可以直接顯示資源文件中的ICON和BMP。
說(shuō)到圖形處理,實(shí)際上還可以用Delphi創(chuàng)建、調(diào)用純圖標(biāo)資源的DLL.比如說(shuō)你可以看看超級(jí)解霸目錄下的Dll,很多就是純圖標(biāo)資源而已。具體方法如下:
1:創(chuàng)建一個(gè)Hicon.RES文件,這里不再重復(fù).
2:新建一文本文件Icon.dpr,內(nèi)容如下:
library Icon;
{$R Icon.RES}
begin
end
用Delphi打開(kāi)編譯即可得到Icon.dll.
3:實(shí)際調(diào)用方法如下:
......
Private
Hinst:THANDLE;
......
Var Hicon:THANDLE;
begin
Hinst:=Loadlibrary('Icon.dll');
If Hinst=0 Then Exit；
Hicon:=Loadicon(Hinst,Pchar(Edit1.Text));
If Hicon<>0 Then Image1.Picture.Icon.Handle:=Hicon;
FreeLibrary(Hinst);
end;
如果你的程序想在國(guó)際上供使用不同語(yǔ)言的人使用的話,用Dll來(lái)存放字符資源將是一個(gè)好方法.因?yàn)镈ll不象ini文件那樣可以被人隨便修改,特別是有時(shí)侯如果想保存一些版權(quán)信息的話用Dll就再好不過(guò)了。比如說(shuō)你準(zhǔn)備開(kāi)發(fā)一個(gè)"漢字簡(jiǎn)繁體翻譯器"軟件,準(zhǔn)備提供Gb32,Big5碼和英文三種語(yǔ)言菜單給用戶,那么你可以試試用Dll來(lái)保存字符資源.
我們需要建立三個(gè)Dll.第一步當(dāng)然是寫(xiě)Rc文件,舉Gb32碼為例,內(nèi)容如下:
/*MySc.rc*/
#define IDS_MainForm_Caption 1
#define IDS_BtnOpen_Caption 2
#define IDS_BtnSave_Caption 3
#define IDS_BtnBig5_Caption 4
#define IDS_BtnGb32_Caption 5
#define IDS_BtnHelp_Caption 6
#define IDS_Help_Shelp 7
Stringtable
{
IDS_MainForm_Caption,"漢字簡(jiǎn)繁體翻譯器"
IDS_BtnOpen_Caption,"打開(kāi)文件"
IDS_BtnSave_Caption,"保存文件"
IDS_BtnBig5_Caption,"轉(zhuǎn)換成Big5"
IDS_BtnGb32_Caption,"轉(zhuǎn)換成Gb32"
IDS_BtnHelp_Caption,"幫助"
IDS_Help_Shelp,"輸入文字或打開(kāi)文件后按需要點(diǎn)擊按鈕即可轉(zhuǎn)換!"
}