動態連結函式庫是一個能夠被應用程式和其它的DLL所呼叫的過程和函數的集合體,它裡麵包含的是公共程式碼或資源。由於DLL程式碼使用了記憶體共享技術,在某些地方windows也給了DLL一些更高的權限,因而DLL中可以實現一些一般程序所不能實現的功能,如實現windows的HOOK、ISAPI等。同時,DLL也為不同語言間代碼共享提供了一條方便的途徑。因而DLL在程式設計時應用較為廣泛,本文將介紹如何在Delphi中建立和使用DLL。
一． DLL庫記憶體共享機制
從使用效果看,DLL和unit很像,它們都可以被別的工程模組所調用,但二者在內部的實現機制上確存在著差別。如果一個程式模組中用uses語句引用了某個unit,編譯程式在編譯該模組時,便會連同unit一起編譯,並把編譯後的可執行程式碼連結到本程式模組中,這就是一個程式模組能夠呼叫所引用unit中過程和函數的原因。當同一個unit被多個工程所引用時,則每個工程中都含有該unit的可執行代碼,當含有該unit的多個工程同時執行時,unit的可執行代碼會隨不同工程而多次被調入記憶體,造成記憶體資源的浪費。 DLL則不同,它即使被某個工程調用,編譯後仍是獨立的,也就是說編譯後,一個DLL庫形成一個單獨的可執行檔,而不與任何其它的可執行檔連接在一起,因而DLL函式庫並不從屬於某個特定的工程,當多個工程調用同一個DLL庫時只有第一個工程把DLL庫調入內存,其餘工程並不重複調入同一個DLL庫到內存,而是到同一個共享記憶體區讀取。並且,DLL的執行程式碼是在程式運行期間動態調入的,而不是如unit在程式運行時就與整個工程一起調入記憶體。這樣便可消除unit帶來的相同程式碼多處佔用記憶體的弊病。
二Delphi中DLL函式庫的建立
在Delphi環境中,寫一個DLL同寫一個一般的應用程式並沒有太大的差別。事實上作為DLL主體的DLL函數的編寫,除了在內存、資源的管理上有所不同外,並不需要其它特別的手段。
一般工程文件的格式為:
PRogram 工程標題;
uses 子句;
程式體
而DLLs工程文件的格式為:
library工程標題;
uses子句;
exprots子句;
程式體
它們主要的差異有兩點:
1.一般工程文件的頭標用program關鍵字,而DLL工程文件頭標用library關鍵字。不同的關鍵字通知編譯器產生不同的可執行檔。用program關鍵字產生的是.exe檔,而用library關鍵字產生的是.dll檔;
2.假如DLL要輸出供其它應用程式使用的函數或過程,則必須將這些函數或過程列在exports子句中。而這些函數或過程本身就必須用export編譯指令來編譯。
在Delphi主選單file中選new...項目,在彈出的視窗中雙擊DLL圖示,便會自動給予DLL來源模組框架,如下:
Libraryproject1;
{...註釋...}
uses
SysUtils,Classes;
begin
end.
接下來便可在USES和begin之間加入想在該DLL中實現的過程和函數的定義,並用export和exprots保字把它們引出,以便別的模組引用,在begin和end之間加入初始化代碼,初始化程式碼是用來對DLL變數初始化的。應注意,即便無初始化程式碼begin與end也不可省略,如下例:
libraryminmax;
functionMin(X,Y:Integer):Integer;export;
begin
ifX<YthenMin:=XelseMin:=Y;
end;
functionMax(X,Y:Integer):Integer;export;
begin
ifX>YthenMax:=XelseMax:=Y;
end;
exports
Minindex1,
Maxindex2;
begin
end.
編譯後,並以minmax.DLL記憶體後,一個DLL函式庫檔便形成了。
三DLL函式庫的訪問
存取DLL函式庫有兩種方式,一種是靜態引用,另一種是動態引用。
用靜態引用這種方法裝入DLL要做兩件事:為DLL庫建立一個輸入單元,以及用USES把輸入單元連接到要使用DLL函數的程式模組中。為DLL庫創建的輸入單元與普通的單元的區別僅在於:在它的接口處聲明的過程、函數,並不在它的實現部分給出真正的實現代碼,而是用external關鍵字把過程、函數的實作細節委託給外部DLL模組。
external指令的使用語法如下:
procedure/function過程/函數名;externalDLL模組名;
下面給出為上面建立的minmax.DLL函式庫所寫的輸入單元原始檔testdll.pas,從中可看出輸入單元與一般單元的一些差別,程式碼如下所示:
unittestdll;
interface
uses
functionMin(X,Y:Integer):Integer;
functionMax(X,Y:Integer):Integer;
implementation
functionMin;external'minmax.DLL';
functionMax;external'minmax.DLL';
end.
一個應用程式若想呼叫minmax.DLL中的函數,只須在其uses語句中加入testdll單元即可。
動態裝入DLL,要用到Windows的三個API函數。 Loadlibrary、Freelibrary和GetprocAddress。 loadlibrary函數用來裝入DLL函式庫,其呼叫格式如下:
functionloadlobrary(DLLfileName:Pchar):THandle:
當不再需要一個DLL函式庫時,應呼叫FreeLibrary函式將其釋放,以空出寶貴的記憶體資源,其呼叫格式如下:
procedureFreeLibrary(Libmodule:THandle)
Libmodule為由LoadLibrary呼叫得到的DLL函式庫句柄。在用loadlobrary函數裝入某個DLL函式庫和呼叫FreeLibrary釋放該DLL函式庫之間的程式段,可以使用該DLL函式庫中的過程和函式,具體使用方法是:用GetprocAddress函式把DLL函式庫中函式的位址傳遞給程式中某個函數變數,再用該變數實作DLL函數的呼叫。 GetprocAddress函數聲名如下,
functionGetprocAddress(Libmodule:THandle:procname:pchar):TFarProc:
如下例所示:
type
TTimeRec=record
Second:Integer;
Minute:Integer;
Hour:Integer;
end;
TGetTime=procedure(varTime:TTimeRec);
THandle=Integer;
var
Time:TTimeRec;
Handle:THandle;
GetTime:TGetTime;
…
begin
Handle:=LoadLibrary('DATETIME.DLL');
ifHandle<>0then
begin
@GetTime:=GetProcAddress(Handle,'GetTime');
if@GetTime<>nilthen
begin
GetTime(Time);
withTimedo
WriteLn('Thetimeis',Hour,':',Minute,':',Second);
end;
FreeLibrary(Handle);
end;
end;
在呼叫動態連結函式庫時應注意,所需動態連結函式庫須與應用程式在同一目錄或WindowsSystem目錄下。
動態連結庫是Windows下程式組織的一種重要方式,使用動態連結庫可以極大地保護使用者在不同開發工具、不同時期所做的工作,提高程式效率。