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