DLL的建立與調用
[轉]
動(dòng)態(tài)鏈接庫是一個(gè)能夠被應用程序和其它的DLL調用的過(guò)程和函數的集合體,它里面包含的是公共代碼或資源。由于DLL代碼使用了內存共享技術(shù),在某些地方windows也給了DLL一些更高的權限,因而DLL中可以實(shí)現一些一般程序所不能實(shí)現的功能,如實(shí)現windows的HOOK、ISAPI等。
同時(shí),DLL還為不同語(yǔ)言間代碼共享提供了一條方便的途徑。因而DLL在編程時(shí)應用較為廣泛,本文將介紹如何在 Delphi 中建立和使用DLL。
一．DLL 庫內存共享機制
從使用效果看,DLL和unit 很像,它們都可以被別的工程模塊所調用,但二者在內部的實(shí)現機制上確存在著(zhù)差別。如果一個(gè)程序模塊中用uses語(yǔ)句引用了某個(gè)unit,編譯程序在編譯該模塊時(shí),便會(huì )連同unit一起編譯,并把編譯后的可執行代碼鏈接到本程序模塊中,這就是一個(gè)程序模塊能夠調用所引用unit中過(guò)程和函數的原因。
當同一個(gè)unit被多個(gè)工程所引用時(shí),則每個(gè)工程中都含有該unit的可執行代碼,當含有該unit的多個(gè)工程同時(shí)執行時(shí),unit的可執行代碼會(huì )隨不同工程而多次被調入內存,造成內存資源的浪費。DLL則不同,它即使被某個(gè)工程調用,編譯后仍是獨立的。
也就是說(shuō)編譯后,一個(gè)DLL庫形成一個(gè)單獨的可執行文件,而不與任何其它的可執行文件連接在一起,因而DLL庫并不從屬于某個(gè)特定的工程,當多個(gè)工程調用同一個(gè)DLL庫時(shí)只有第一個(gè)工程把DLL庫調入內存,其余工程并不重復調入同一個(gè)DLL庫到內存,而是到同一個(gè)共享內存區讀取。并且,DLL的執行代碼是在程序運行期間動(dòng)態(tài)調入的,而不是如unit在程序運行時(shí)就與整個(gè)工程一起調入內存。這樣便可消除unit帶來(lái)的相同代碼多處占用內存的弊病。
二 Delphi中DLL庫的建立
在Delphi環(huán)境中,編寫(xiě)一個(gè)DLL同編寫(xiě)一個(gè)一般的應用程序并沒(méi)有太大的區別。事實(shí)上作為DLL主體的DLL函數的編寫(xiě),除了在內存、資源的管理上有所不同外,并不需要其它特別的手段。
一般工程文件的格式為:
program 工程標題;
uses 子句;
程序體
而DLLs工程文件的格式為:
library 工程標題;
uses 子句;
exprots 子句;
絳蛺?
它們主要的區別有兩點(diǎn):
1.一般工程文件的頭標用program關(guān)鍵字,而DLL工程文件頭標用library 關(guān)鍵字。不同的關(guān)鍵字通知編譯器生成不同的可執行文件。用program關(guān)鍵字生成的是.exe文件,而用library關(guān)鍵字生成的是.dll文件;
2.假如DLL要輸出供其它應用程序使用的函數或過(guò)程,則必須將這些函數或過(guò)程列在exports子句中。而這些函數或過(guò)程本身必須用export編譯指令進(jìn)行編譯。 在Delphi主菜單file 中選new...項,在彈出的窗口中雙擊DLL圖標,便會(huì )自動(dòng)給出DLL源模塊框架,如下:
Library project1;
{...注釋...}
uses
SysUtils, Classes;
begin
end.
接下來(lái)便可在USES和begin之間加入想在該DLL中實(shí)現的過(guò)程和函數的定義,并用export和exprots保字把它們引出,以便別的模塊引用,在begin和end之間加入初始化代碼,初始化代碼是用來(lái)對DLL變量初始化的。應注意,即便無(wú)初始化代碼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存盤(pán)后,一個(gè)DLL庫文件便形成了。
三 DLL庫的訪(fǎng)問(wèn)
訪(fǎng)問(wèn)DLL庫有兩種方式,一種是靜態(tài)引用,另一種是動(dòng)態(tài)引用。
用靜態(tài)引用這種方法裝入DLL要做兩件事情:為DLL 庫創(chuàng )建一個(gè)輸入單元,以及用USES把輸入單元連接到要使用DLL 函數的程序模塊中。為DLL庫創(chuàng )建的輸入單元與普通的單元的區別僅在于:在它的接口處聲明的過(guò)程、函數,并不在它的實(shí)現部分給出真正的實(shí)現代碼,而是用external關(guān)鍵字把過(guò)程、函數的實(shí)現細節委托給外部DLL模塊。
external命令的使用語(yǔ)法如下:
procedure /function 過(guò)程/函數名;external DLL模塊名;
下面給出為上面創(chuàng )建的minmax.DLL庫寫(xiě)的輸入單元源文件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.
一個(gè)應用程序若想調用minmax.DLL中的函數,只須在其uses語(yǔ)句中加入testdll 單元即可。
動(dòng)態(tài)裝入DLL,要用到Windows的三個(gè)API函數。Loadlibrary、Freelibrary和GetprocAddress 。 loadlibrary函數用來(lái)裝入DLL庫,其調用格式如下:
function loadlobrary (DLLfileName:Pchar): THandle:
當不再需要一個(gè)DLL庫時(shí),應調用FreeLibrary函數將其釋放,以空出寶貴的內存資源,其調用格式如下:
procedure FreeLibrary (Libmodule:THandle)
Libmodule 為由LoadLibrary調用得到的DLL庫句柄。在用loadlobrary 函數裝入某個(gè)DLL庫和調用FreeLibrary釋放該DLL庫之間的程序段中, 可以使用該DLL庫中的過(guò)程和函數,具體使用方法是:用GetprocAddress函數把DLL庫中函數的地址傳遞給程序中某個(gè)函數變量,再用該變量實(shí)現DLL函數的調用。GetprocAddress函數聲名如下
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;
在調用動(dòng)態(tài)鏈接庫時(shí)應注意, 所需動(dòng)態(tài)鏈接庫須與應用程序在同一目錄或Windows System 目錄下。
動(dòng)態(tài)鏈接庫是 Windows下程序組織的一種重要方式,使用動(dòng)態(tài)鏈接庫可以極大地保護用戶(hù)在不同開(kāi)發(fā)工具、不同時(shí)期所做的工作,提高編程效率。
一 Dll的制作一般步驟
二 參數傳遞
三 DLL的初始化和退出清理[如果需要初始化和退出清理]
四 全局變量的使用
五 調用靜態(tài)載入
六 調用動(dòng)態(tài)載入
七 在DLL建立一個(gè)TForM
八 在DLL中建立一個(gè)TMDIChildForM
九 示例：
十 Delphi制作的Dll與其他語(yǔ)言的混合編程中常遇問(wèn)題：
十一 相關(guān)資料
一 Dll的制作一般分為以下幾步：
1 .在一個(gè)DLL工程里寫(xiě)一個(gè)過(guò)程或函數
2 .寫(xiě)一個(gè)Exports關(guān)鍵字，在其下寫(xiě)過(guò)程的名稱(chēng)。不用寫(xiě)參數和調用后綴。
二 參數傳遞
1 .參數類(lèi)型最好與window C++的參數類(lèi)型一致。不要用DELPHI的數據類(lèi)型。
2 .最好有返回值[即使是一個(gè)過(guò)程]，來(lái)報出調用成功或失敗，或狀態(tài)。成功或失敗的返回值最好為1[成功]或0[失敗].一句話(huà)，與windows c++兼容。
3 .用stdcall聲明后綴。
4 .最好大小寫(xiě)敏感。
5 .無(wú)須用far調用后綴，那只是為了與windows 16位程序兼容。
三 DLL的初始化和退出清理[如果需要初始化和退出清理]
1 .DLLProc[SysUtils單元的一個(gè)Pointer]是DLL的入口。在此你可用你的函數替換了它的入口。但你的函數必須符合以下要求[其實(shí)就是一個(gè)回調函數]。如下：
procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
dwReason參數有四種類(lèi)型：
DLL_PROCESS_ATTACH:進(jìn)程進(jìn)入時(shí)
DLL_PROCESS_DETACH進(jìn)程退出時(shí)
DLL_THREAD_ATTACH 線(xiàn)程進(jìn)入時(shí)
DLL_THREAD_DETACH 線(xiàn)程退出時(shí)
在初始化部分寫(xiě):
DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH);
2 .如Form上有TdcomConnection組件,就Uses Activex,在初始化時(shí)寫(xiě)一句CoInitialize (nil);
3 .在退出時(shí)一定保證DcomConnection.Connected := False,并且數據集已關(guān)閉。否則報地址錯。
四 全局變量的使用
在widnows 32位程序中，兩個(gè)應用程序的地址空間是相互沒(méi)有聯(lián)系的。雖然DLL在內存中是一份，但變量是在各進(jìn)程的地址空間中，因此你不能借助dll的全局變量來(lái)達到兩個(gè)應用程序間的數據傳遞，除非你用內存映像文件。
五 調用靜態(tài)載入
1 客戶(hù)端函數聲名:
1)大小寫(xiě)敏感。
)與DLL中的聲明一樣。
如： showform(form:Tform);Far;external'yproject_dll.dll';
3)調用時(shí)傳過(guò)去的參數類(lèi)型最好也與windows c++一樣。
4)調用時(shí)DLL必須在windows搜索路徑中，順序是：當前目錄；Path路徑；windows;widows\system;windows\ssystem32;
六 調用動(dòng)態(tài)載入
1 .建立一種過(guò)程類(lèi)型[如果你對過(guò)程類(lèi)型的變量只是一個(gè)指針的本質(zhì)清楚的話(huà)，你就知道是怎么回事了]。如：
type
mypointer=procedure(form:Tform);Far;external;
var
Hinst:Thandle;
showform:mypointer;
begin
Hinst:=loadlibrary('yproject_dll');//Load一個(gè)Dll,按文件名找。
showform:=getprocaddress(Hinst,'showform');//按函數名找，大小寫(xiě)敏感。如果你知道自動(dòng)化對象的本質(zhì)就清楚了。
showform(application.mainform);//找到函數入口指針就調用。
Freelibrary(Hinst);
end;
七 .在DLL建立一個(gè)TForM
1 把你的Form Uses到Dll中，你的Form用到的關(guān)聯(lián)的單元也要Uses進(jìn)來(lái)[這是最麻煩的一點(diǎn)，因為你的Form或許Uses了許多特殊的單元或函數]
2 傳遞一個(gè)Application參數，用它建立Form.
八 .在DLL中建立一個(gè)TMDIChildForM
1 Dll中的MDIForm.FormStyle不用為fmMDIChild.
2 在CreateForm后寫(xiě)以下兩句：
function ShowForm(mainForm:TForm):integer;stdcall
var
Form1: TForm1;
ptr:PLongInt;
begin
ptr:=@(Application.MainForm);//先把dll的MainForm句柄保存起來(lái)，也無(wú)須釋放，只不過(guò)是替換一下
ptr^:=LongInt(mainForm);//用主調程序的mainForm替換DLL的MainForm。MainForm是特殊的WINDOW，它專(zhuān)門(mén)管理Application中的Forms資源.
//為什么不直接Application.MainForm := mainForm,因為Application.MainForm是只讀屬性
Form1:=TForm1.Create(mainForm);//用參數建立
end;
備注：參數是主調程序的Application.MainForm
九 .示例：
DLL源代碼：
library Project2;
uses
SysUtils,
Classes,
Dialogs,
Forms,
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
var
ccc: Pchar;
procedure OpenForm(mainForm:TForm);stdcall;
var
Form1: TForm1;
ptr:PLongInt;
begin
ptr:=@(Application.MainForm);
ptr^:=LongInt(mainForm);
Form1:=TForm1.Create(mainForm);
end;
procedure InputCCC(Text: Pchar);stdcall;
begin
ccc := Text;
end;
procedure ShowCCC;stdcall;
begin
ShowMessage(String(ccc));
end;
exports
OpenForm;
InputCCC,
ShowCCC;
begin
end.
調用方源代碼：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure OpenForm(mainForm:TForm);stdcall;External'project2.dll';
procedure ShowCCC;stdcall;External'project2.dll';
procedure InputCCC(Text: Pchar);stdcall;External'project2.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
Text: Pchar;
begin
Text := Pchar(Edit1.Text);
// OpenForm(Application.MainForm);//為了調MDICHILD
InputCCC(Text);//為了實(shí)驗DLL中的全局變量是否在各個(gè)應用程序間共享
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCCC;//這里表明WINDOWS 32位應用程序DLL中的全局變量也是在應用程序地址空間中，16位應用程序或許不同，沒(méi)有做實(shí)驗。
end;
十 Delphi制作的Dll與其他語(yǔ)言的混合編程中常遇問(wèn)題：
1 .與PowerBuilder混合編程
在定義不定長(cháng)動(dòng)態(tài)數組方面在函數退出清理堆棧時(shí)老出現不可重現的地址錯，原因未明，大概與PB的編譯器原理有關(guān)，即使PB編譯成二進(jìn)制代碼也如此。
