Delphi 中動(dòng)態(tài)鏈接庫(kù)（DLL）的建立和使用

1、Delphi 中動(dòng)態(tài)鏈接庫(kù)（DLL）的建立和使用     關(guān)鍵詞：動(dòng)態(tài)鏈接庫(kù)是一個(gè)能夠被應(yīng)用程序和其它的DLL調(diào)用的過(guò)程和函數(shù)的集合體，它里面包含的是公共代碼或資源。由于DLL代碼使用了內(nèi)存共享技術(shù)，在某些地方windows也給了DLL一些更高的權(quán)限，因而DLL中可以實(shí)現(xiàn)一些一般程序所不能實(shí)現(xiàn)的功能，如實(shí)現(xiàn)windows的HOOK、ISAPI等。同時(shí)，DLL還為不同語(yǔ)言間代碼共享提供了一條方便的途徑。因而DLL在編程時(shí)應(yīng)用較為廣泛，本文將介紹如何在 Delphi 中建立和使用DLL。一DLL 庫(kù)內(nèi)存共享機(jī)制從使用效果看，DLL和unit 很像，它們都可以

2、被別的工程模塊所調(diào)用，但二者在內(nèi)部的實(shí)現(xiàn)機(jī)制上確存在著差別。如果一個(gè)程序模塊中用uses語(yǔ)句引用了某個(gè)unit，編譯程序在編譯該模塊時(shí)，便會(huì)連同unit一起編譯，并把編譯后的可執(zhí)行代碼鏈接到本程序模塊中，這就是一個(gè)程序模塊能夠調(diào)用所引用unit中過(guò)程和函數(shù)的原因。當(dāng)同一個(gè)unit被多個(gè)工程所引用時(shí)，則每個(gè)工程中都含有該unit的可執(zhí)行代碼，當(dāng)含有該unit的多個(gè)工程同時(shí)執(zhí)行時(shí)，unit的可執(zhí)行代碼會(huì)隨不同工程而多次被調(diào)入內(nèi)存，造成內(nèi)存資源的浪費(fèi)。DLL則不同，它即使被某個(gè)工程調(diào)用，編譯后仍是獨(dú)立的，也就是說(shuō)編譯后，一個(gè)DLL庫(kù)形成一個(gè)單獨(dú)的可執(zhí)行文件，而不與任何其它的可執(zhí)行文件連接在一起，因而

3、DLL庫(kù)并不從屬于某個(gè)特定的工程，當(dāng)多個(gè)工程調(diào)用同一個(gè)DLL庫(kù)時(shí)只有第一個(gè)工程把DLL庫(kù)調(diào)入內(nèi)存，其余工程并不重復(fù)調(diào)入同一個(gè)DLL庫(kù)到內(nèi)存，而是到同一個(gè)共享內(nèi)存區(qū)讀取。并且，DLL的執(zhí)行代碼是在程序運(yùn)行期間動(dòng)態(tài)調(diào)入的，而不是如unit在程序運(yùn)行時(shí)就與整個(gè)工程一起調(diào)入內(nèi)存。這樣便可消除unit帶來(lái)的相同代碼多處占用內(nèi)存的弊病。二 Delphi中DLL庫(kù)的建立在Delphi環(huán)境中，編寫一個(gè)DLL同編寫一個(gè)一般的應(yīng)用程序并沒(méi)有太大的區(qū)別。事實(shí)上作為DLL主體的DLL函數(shù)的編寫，除了在內(nèi)存、資源的>' target='_blank' class='infotext

4、key'>管理上有所不同外，并不需要其它特別的手段。一般工程文件的格式為：program 工程標(biāo)題;uses 子句;程序體而DLLs工程文件的格式為：library 工程標(biāo)題;uses 子句;exprots 子句;程序體它們主要的區(qū)別有兩點(diǎn)：1.一般工程文件的頭標(biāo)用program關(guān)鍵字，而DLL工程文件頭標(biāo)用library 關(guān)鍵字。不同的關(guān)鍵字通知編譯器生成不同的可執(zhí)行文件。用program關(guān)鍵字生成的是.exe文件，而用library關(guān)鍵字生成的是.dll文件；2.假如DLL要輸出供其它應(yīng)用程序使用的函數(shù)或過(guò)程，則必須將這些函數(shù)或過(guò)程列在exports子句中。而這些函數(shù)或過(guò)程本

5、身必須用export編譯指令進(jìn)行編譯。在Delphi主菜單file 中選new.項(xiàng)，在彈出的窗口中雙擊DLL圖標(biāo)，便會(huì)自動(dòng)給出DLL源模塊框架,如下：Library project1;.注釋.usesSysUtils, Classes;beginend.接下來(lái)便可在USES和begin之間加入想在該DLL中實(shí)現(xiàn)的過(guò)程和函數(shù)的定義，并用export和exprots保字把它們引出，以便別的模塊引用，在begin和end之間加入初始化代碼，初始化代碼是用來(lái)對(duì)DLL變量初始化的。應(yīng)注意，即便無(wú)初始化代碼begin與end也不可省略，如下例:library minmax;function Min(X,

6、Y: Integer): Integer; export;beginif X < Y then Min := X else Min := Y;end;function Max(X, Y: Integer): Integer; export;beginif X > Y then Max := X else Max := Y;end;exportsMin index 1,Max index 2;beginend.經(jīng)編譯后，并以minmax.DLL存盤后，一個(gè)DLL庫(kù)文件便形成了。三 DLL庫(kù)的訪問(wèn)訪問(wèn)DLL庫(kù)有兩種方式，一種是靜態(tài)引用，另一種是動(dòng)態(tài)引用。用靜態(tài)引用這種方法裝入DLL要做

7、兩件事情：為DLL 庫(kù)創(chuàng)建一個(gè)輸入單元，以及用USES把輸入單元連接到要使用DLL 函數(shù)的程序模塊中。為DLL庫(kù)創(chuàng)建的輸入單元與普通的單元的區(qū)別僅在于：在它的接口處聲明的過(guò)程、函數(shù)，并不在它的實(shí)現(xiàn)部分給出真正的實(shí)現(xiàn)代碼，而是用external關(guān)鍵字把過(guò)程、函數(shù)的實(shí)現(xiàn)細(xì)節(jié)委托給外部DLL模塊。external命令的使用語(yǔ)法如下：procedure /function 過(guò)程/函數(shù)名；external DLL模塊名；下面給出為上面創(chuàng)建的minmax.DLL庫(kù)寫的輸入單元源文件testdll .pas，從中可看出輸入單元 與一般 單元的一些差別，代碼如下所示：unit testdll;interfac

8、eusesfunction Min (X, Y: Integer): Integer;function Max (X, Y: Integer): Integer;implementationfunction Min; external minmax.DLL;function Max; external minmax.DLL;end.一個(gè)應(yīng)用程序若想調(diào)用minmax.DLL中的函數(shù)，只須在其uses語(yǔ)句中加入testdll 單元即可。 動(dòng)態(tài)裝入DLL，要用到Windows的三個(gè)API函數(shù)。Loadlibrary、Freelibrary和GetprocAddress 。loadlibrary函數(shù)用

9、來(lái)裝入DLL庫(kù)，其調(diào)用格式如下：function loadlobrary (DLLfileName：Pchar): THandle:當(dāng)不再需要一個(gè)DLL庫(kù)時(shí)，應(yīng)調(diào)用FreeLibrary函數(shù)將其釋放，以空出寶貴的內(nèi)存資源，其調(diào)用格式如下：procedure FreeLibrary (Libmodule:THandle)Libmodule 為由LoadLibrary調(diào)用得到的DLL庫(kù)句柄。在用loadlobrary 函數(shù)裝入某個(gè)DLL庫(kù)和調(diào)用FreeLibrary釋放該DLL庫(kù)之間的程序段中， 可以使用該DLL庫(kù)中的過(guò)程和函數(shù)，具體使用方法是：用GetprocAddress函數(shù)把DLL庫(kù)中函數(shù)的

10、地址傳遞給程序中某個(gè)函數(shù)變量，再用該變量實(shí)現(xiàn)DLL函數(shù)的調(diào)用。GetprocAddress函數(shù)聲名如下，function GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc:如下例所示：typeTTimeRec = recordSecond: Integer;Minute: Integer;Hour: Integer;end;TGetTime = procedure(var Time: TTimeRec);THandle = Integer;varTime: TTimeRec;Handle: THandle;GetTime: TGetTime;.beginHandle := LoadLibrary('DATETIME.DLL');if Handle <> 0 thenbeginGetTime := GetProcAddress(Handle, 'GetTime');if GetTime <> nil thenbeginGetTime(Time);with Time doWriteLn('The time is ', Hour, ':', Minute, ':', Second);end;FreeLibrary(