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

1、delphi 中動態(tài)鏈接庫（dll）的建立和使用 關(guān)鍵詞： 動態(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)機

2、制上確存在著差別。如果一個程序模塊中用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)多個工

3、程調(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 工程標(biāo)題; uses 子句; 程序體 而dlls工程文件的格

4、式為： library 工程標(biāo)題; uses 子句; exprots 子句; 程序體 它們主要的區(qū)別有兩點： 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ù)或過程，則必須將這些函數(shù)或過程列在exports子句中。而這些函數(shù)或過程本身必須用export編譯指令進行編譯。 在delphi主菜單file 中選new.項，在彈出的窗口中雙擊dll圖標(biāo)，便會自動給出dll源模塊框架

5、,如下： 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 max := x else

6、max := y; end; exports min index 1, max index 2; begin end. 經(jīng)編譯后，并以minmax.dll存盤后，一個dll庫文件便形成了。 三 dll庫的訪問 訪問dll庫有兩種方式，一種是靜態(tài)引用，另一種是動態(tài)引用。 用靜態(tài)引用這種方法裝入dll要做兩件事情：為dll 庫創(chuàng)建一個輸入單元，以及用uses把輸入單元連接到要使用dll 函數(shù)的程序模塊中。為dll庫創(chuàng)建的輸入單元與普通的單元的區(qū)別僅在于：在它的接口處聲明的過程、函數(shù)，并不在它的實現(xiàn)部分給出真正的實現(xiàn)代碼，而是用external關(guān)鍵字把過程、函數(shù)的實現(xiàn)細節(jié)委托給外部dll模塊。 ex

7、ternal命令的使用語法如下： procedure /function 過程/函數(shù)名；external dll模塊名； 下面給出為上面創(chuàng)建的minmax.dll庫寫的輸入單元源文件testdll .pas，從中可看出輸入單元 與一般 單元的一些差別，代碼如下所示： unit testdll; interface uses function min (x, y: integer): integer; function max (x, y: integer): integer; implementation function min; external minmax.dll; function

8、max; external minmax.dll; end. 一個應(yīng)用程序若想調(diào)用minmax.dll中的函數(shù)，只須在其uses語句中加入testdll 單元即可。 動態(tài)裝入dll，要用到windows的三個api函數(shù)。loadlibrary、freelibrary和getprocaddress 。loadlibrary函數(shù)用來裝入dll庫，其調(diào)用格式如下： function loadlobrary (dllfilename：pchar): thandle: 當(dāng)不再需要一個dll庫時，應(yīng)調(diào)用freelibrary函數(shù)將其釋放，以空出寶貴的內(nèi)存資源，其調(diào)用格式如下： procedure free

9、library (libmodule:thandle) libmodule 為由loadlibrary調(diào)用得到的dll庫句柄。在用loadlobrary 函數(shù)裝入某個dll庫和調(diào)用freelibrary釋放該dll庫之間的程序段中， 可以使用該dll庫中的過程和函數(shù)，具體使用方法是：用getprocaddress函數(shù)把dll庫中函數(shù)的地址傳遞給程序中某個函數(shù)變量，再用該變量實現(xiàn)dll函數(shù)的調(diào)用。getprocaddress函數(shù)聲名如下， function getprocaddress (libmodule:thandle:procname:pchar):tfarproc: 如下例所示： typ

10、e ttimerec = record second: integer; minute: integer; hour: integer; end; tgettime = procedure(var time: ttimerec); thandle = integer; vartime: ttimerec; handle: thandle; gettime: tgettime; . begin handle := loadlibrary(datetime.dll); if handle 0 then begin gettime := getprocaddress(handle, gettime); if gettime nil then begin gettime(time); with time do writeln(the time is , hour, :, minute, :, second); end; freelibrary(handle); end; end;