Dephi資源文件中、高級應用篇

在上次，我們談到了Dephi中資源文件使用詳解以及Dephi資源文件的初級應用篇，在您對Dephi資源文件有了一定的了解后，我們現(xiàn)在來談一下Dephi資源文件的中、高級應用篇。
    中級應用篇
    上面我們已經(jīng)知道如何把一副BMP圖像從資源文件里面讀出來,但是BMP文件太大了,JPG文件應用的相對較多.那么如何把JPG圖像讀出來呢?用資源文件加流方式即可。具體方法如下:
    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;
    讀取其它圖片文件也是一樣的.比如說gif動畫文件，當然前提是你有一個gif.pas，這個單元很多站點都有的，可以自己去找找。實際應用中我還發(fā)現(xiàn)用上面的代碼可以直接顯示資源文件中的ICON和BMP。
    說到圖形處理,實際上還可以用Delphi創(chuàng)建、調(diào)用純圖標資源的DLL.比如說你可以看看超級解霸目錄下的Dll,很多就是純圖標資源而已。具體方法如下:
    1:創(chuàng)建一個Hicon.RES文件,這里不再重復.
    2:新建一文本文件Icon.dpr,內(nèi)容如下:
    library Icon;
    {$R Icon.RES}
    begin
    end
    用Delphi打開編譯即可得到Icon.dll.
    3:實際調(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;
    如果你的程序想在國際上供使用不同語言的人使用的話,用Dll來存放字符資源將是一個好方法.因為Dll不象ini文件那樣可以被人隨便修改,特別是有時侯如果想保存一些版權信息的話用Dll就再好不過了。比如說你準備開發(fā)一個"漢字簡繁體翻譯器"軟件,準備提供Gb32,Big5碼和英文三種語言菜單給用戶,那么你可以試試用Dll來保存字符資源.
    我們需要建立三個Dll.第一步當然是寫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,"漢字簡繁體翻譯器"
    IDS_BtnOpen_Caption,"打開文件"
    IDS_BtnSave_Caption,"保存文件"
    IDS_BtnBig5_Caption,"轉(zhuǎn)換成Big5"
    IDS_BtnGb32_Caption,"轉(zhuǎn)換成Gb32"
    IDS_BtnHelp_Caption,"幫助"
    IDS_Help_Shelp,"輸入文字或打開文件后按需要點擊按鈕即可轉(zhuǎn)換!"
    }