動態鏈接庫是一個能夠被應用程序和其它的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源模塊框架,如下:
Library project1;
{...注釋...}
uses
SysUtils, Classes;
begin
end.
接下來便可在USES和begin之間加入想在該DLL中實現的過程和函數的定義,並用export和exprots保字把它們引出,以便別的模塊引用,在begin和end之間加入初始化代碼,初始化代碼是用來對DLL變量初始化的。應注意,即便無初始化代碼begin與end也不可省略,如下例:
library minmax;
function Min(X, Y: Integer): Integer; export;
begin
if X %26lt; Y then Min := X else Min := Y;
end;
function Max(X, Y: Integer): Integer; export;
begin
if X %26gt; Y then Max := X else Max := Y;
end;
exports
Min index 1,
Max index 2;
begin
end.
經
編譯後,並以minmax.DLL存盤後,一個DLL庫文件便形成了。
三 DLL庫的訪問
訪問DLL庫有兩種方式,一種是靜態引用,另一種是動態引用。
用靜態引用這種方法裝入DLL要做兩件事情:為DLL 庫創建一個輸入單元,以及用USES把輸入單元連接到要使用DLL 函數的程序模塊中。為DLL庫創建的輸入單元與普通的單元的區別僅在於:在它的接口處聲明的過程、函數,並不在它的實現部分給出真正的實現代碼,而是用external關鍵字把過程、函數的實現細節委托給外部DLL模塊。
external命令的使用語法如下:
procedure /function 過程/函數名;external DLL模塊名;
下面給出為上面創建的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’;
