Delphi中動態(tài)鏈接庫(DLL)的建立和使用

字號:

動態(tài)鏈接庫是一個能夠被應(yīng)用程序和其它的DLL調(diào)用的過程和函數(shù)的集合體,它里面包含的是公共代碼或資源。由于DLL代碼使用了內(nèi)存共享技術(shù),在某些地方Windows也給了DLL一些更高的權(quán)限,因而DLL中可以實現(xiàn)一些一般程序所不能實現(xiàn)的功能,如實現(xiàn)windows的HOOK、ISAPI等。同時,DLL還為不同語言間代碼共享提供了一條方便的途徑。因而DLL在編程時應(yīng)用較為廣泛,本文將介紹如何在 Delphi 中建立和使用DLL。
    一.DLL 庫內(nèi)存共享機制
    從使用效果看,DLL和unit 很像,它們都可以被別的工程模塊所調(diào)用,但二者在內(nèi)部的實現(xiàn)機制上確存在著差別。如果一個程序模塊中用uses語句引用了某個unit,編譯程序在編譯該模塊時,便會連同unit一起編譯,并把編譯后的可執(zhí)行代碼鏈接到本程序模塊中,這就是一個程序模塊能夠調(diào)用所引用unit中過程和函數(shù)的原因。當(dāng)同一個unit被多個工程所引用時,則每個工程中都含有該unit的可執(zhí)行代碼,當(dāng)含有該unit的多個工程同時執(zhí)行時,unit的可執(zhí)行代碼會隨不同工程而多次被調(diào)入內(nèi)存,造成內(nèi)存資源的浪費。
    DLL則不同,它即使被某個工程調(diào)用,編譯后仍是獨立的,也就是說編譯后,一個DLL庫形成一個單獨的可執(zhí)行文件,而不與任何其它的可執(zhí)行文件連接在一起,因而DLL庫并不從屬于某個特定的工程,當(dāng)多個工程調(diào)用同一個DLL庫時只有第一個工程把DLL庫調(diào)入內(nèi)存,其余工程并不重復(fù)調(diào)入同一個DLL庫到內(nèi)存,而是到同一個共享內(nèi)存區(qū)讀取。并且,DLL的執(zhí)行代碼是在程序運行期間動態(tài)調(diào)入的,而不是如unit在程序運行時就與整個工程一起調(diào)入內(nèi)存。這樣便可消除unit帶來的相同代碼多處占用內(nèi)存的弊病。
    二 Delphi中DLL庫的建立
    在Delphi環(huán)境中,編寫一個DLL同編寫一個一般的應(yīng)用程序并沒有太大的區(qū)別。事實上作為DLL主體的DLL函數(shù)的編寫,除了在內(nèi)存、資源的管理上有所不同外,并不需要其它特別的手段。
    一般工程文件的格式為:
    program工程標題; 
    uses子句; 
    程序體
    而DLLs工程文件的格式為:
    library 工程標題; 
    uses 子句; 
    exprots 子句; 
    程序體
    它們主要的區(qū)別有兩點:
    1.一般工程文件的頭標用program關(guān)鍵字,而DLL工程文件頭標用library 關(guān)鍵字。不同的關(guān)鍵字通知編譯器生成不同的可執(zhí)行文件。用program關(guān)鍵字生成的是.exe文件,而用library關(guān)鍵字生成的是.dll文件;
    2.假如DLL要輸出供其它應(yīng)用程序使用的函數(shù)或過程,則必須將這些函數(shù)或過程列在exports子句中。而這些函數(shù)或過程本身必須用export編譯指令進行編譯。
    在Delphi主菜單file 中選new...項,在彈出的窗口中雙擊DLL圖標,便會自動給出DLL源模塊框架,如下:
    Library project1;
    {...注釋...}
    uses
    SysUtils, Classes;
    begin
    end. 
    接下來便可在USES和begin之間加入想在該DLL中實現(xiàn)的過程和函數(shù)的定義,并用export和exprots保字把它們引出,以便別的模塊引用,在begin和end之間加入初始化代碼,初始化代碼是用來對DLL變量初始化的。應(yīng)注意,即便無初始化代碼begin與end也不可省略,如下例:
    library minmax;
    function Min(X, Y: Integer): Integer; export;
    begin
    if X < Y then Min := X else Min := Y;
    end;
    function Max(X, Y: Integer): Integer; export;
    begin
    if X > Y then Max := X else Max := Y;
    end;
    exports
    Min index 1,
    Max index 2;
    begin
    end.
    經(jīng)編譯后,并以minmax.DLL存盤后,一個DLL庫文件便形成了。