- 相關(guān)推薦
Delphi 中動態(tài)鏈接庫（DLL）的建立和使用
關(guān)鍵詞：動態(tài)鏈接庫是一個能夠被應用程序和其它的DLL調(diào)用的過程和函數(shù)的集合體，它里面包含的是公共代碼或資源。由于DLL代碼使用了內(nèi)存共享技術(shù)，在某些地方windows也給了DLL一些更高的權(quán)限，因而DLL中可以實現(xiàn)一些一般程序所不能實現(xiàn)的功能，如實現(xiàn)windows的HOOK、ISAPI等。同時，DLL還為不同語言間代碼共享提供了一條方便的途徑。因而DLL在編程時應用較為廣泛，本文將介紹如何在 Delphi 中建立和使用DLL。
一．DLL 庫內(nèi)存共享機制
從使用效果看，DLL和unit 很像，它們都可以被別的工程模塊所調(diào)用，但二者在內(nèi)部的實現(xiàn)機制上確存在著差別。如果一個程序模塊中用uses語句引用了某個unit，編譯程序在編譯該模塊時，便會連同unit一起編譯，并把編譯后的可執(zhí)行代碼鏈接到本程序模塊中，這就是一個程序模塊能夠調(diào)用所引用unit中過程和函數(shù)的原因。當同一個unit被多個工程所引用時，則每個工程中都含有該unit的可執(zhí)行代碼，當含有該unit的多個工程同時執(zhí)行時，unit的可執(zhí)行代碼會隨不同工程而多次被調(diào)入內(nèi)存，造成內(nèi)存資源的浪費。DLL則不同，它即使被某個工程調(diào)用，編譯后仍是獨立的，也就是說編譯后，一個DLL庫形成一個單獨的可執(zhí)行文件，而不與任何其它的可執(zhí)行文件連接在一起，因而DLL庫并不從屬于某個特定的工程，當多個工程調(diào)用同一個DLL庫時只有第一個工程把DLL庫調(diào)入內(nèi)存，其余工程并不重復調(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同編寫一個一般的應用程序并沒有太大的區(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要輸出供其它應用程序使用的函數(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變量初始化的。應注意，即便無初始化代碼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庫文件便形成了。
三 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模塊。
external命令的使用語法如下：
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 Max; external ‘minmax.DLL’;
end.
一個應用程序若想調(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:
當不再需要一個DLL庫時，應調(diào)用FreeLibrary函數(shù)將其釋放，以空出寶貴的內(nèi)存資源，其調(diào)用格式如下：
procedure FreeLibrary (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:
如下例所示：
type
TTimeRec = record
Second: Integer;
Minute: Integer;
Hour: Integer;
end;
TGetTime = procedure(var Time: TTimeRec);
THandle = Integer;
var
Time: 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;
在調(diào)用動態(tài)鏈接庫時應注意， 所需動態(tài)鏈接庫須與應用程序在同一目錄或Windows System 目錄下。
動態(tài)鏈接庫是 Windows下程序組織的一種重要方式，使用動態(tài)鏈接庫可以極大地保護用戶在不同開發(fā)工具、不同時期所做的工作，提高編程效率。
郵編：831100
電話：0994-2348728
EMAIL：jxzt-cj@mail.xj.cninfo.net
【Delphi 中動態(tài)鏈接庫DLL的建立和使用】相關(guān)文章：
DELPHI報表的動態(tài)生成08-06
在Delphi中巧用Windows 的API函數(shù)08-06
Delphi拖放編程08-06
擬穿衣中織物模型的建立和碰撞檢測的處理08-05
蒙古的興起和元朝的建立08-17
文件的建立和刪除操作08-16
Visual Basic中如何實現(xiàn)動態(tài)報表08-06
建立和完善稅源監(jiān)控體系08-07