電子發(fā)燒友App
如何用Delphi編寫dll文件
一、開使你的第一個DLL專案
1.File->Close all->File->New﹝DLL﹞
代碼:
//自動產(chǎn)生Code如下
library Project2;
//這有段廢話
uses
SysUtils,
Classes;
{$R *.RES}
begin
end.
2.加個Func進來：
代碼:
library Project2;
uses
SysUtils,
Classes;
Function MyMax ( X , Y : integer ) : integer ; stdcall ;
begin
if X > Y then
Result := X
else
Result := Y ;
end ;
//切記：Library 的名字大小寫沒關(guān)系，可是DLL-Func的大小寫就有關(guān)系了。
// 在 DLL-Func-Name寫成MyMax與myMAX是不同的。如果寫錯了，立即
// 的結(jié)果是你叫用到此DLL的AP根本開不起來。
//參數(shù)的大小寫就沒關(guān)系了。甚至不必同名。如原型中是 (X,Y:integer)但引
// 用時寫成(A,B:integer)，那是沒關(guān)系的。
//切記：要再加個stdcall。書上講，如果你是用delphi寫DLL，且希望不僅給
// delphi-AP也希望BCB/VC-AP等使用的話，那你最好加個Stdcall ; 的指示
//參數(shù)型態(tài)：delphi有很多種它自己的變量型態(tài)，這些當(dāng)然不是DLL所喜歡的
// ，Windows/DLL的母語應(yīng)該是C。所以如果要傳進傳出DLL的參數(shù)，我們
// 盡可能照規(guī)矩來用。這兩者寫起來，后者會麻煩不少。如果你對C不熟
// 的話，那也沒關(guān)系。我們以后再講。
{$R *.RES}
begin
end.
3.將這些可共享的Func送出DLL，讓外界﹝就是你的delphi-AP啦﹞使用：光如此，你的AP還不能用到這些，你還要加個Exports才行。
代碼:
{$R *.RES}
exports
MyMax ;
begin
end.
4.好了，可以按 Ctrl-F9編譯了。此時可不要按F9。DLL不是EXE┌不可單獨執(zhí)行的，如果你按F9，會有ErrorMsg的。這時如果DLL有Error，請修正之。再按Ctrl-F9。此時可能有Warning，不要緊，研究一下，看看就好。再按Ctrl-F9，此時就『Done , Compiled 』。同目錄就會有個 *.dll 。恭喜，大功告成了。
二、進行測試：開個新application：
1.加個TButton
代碼:
ShowMessage ( IntToStr(MyMax(30,50)) ) ;
2.告知Exe到那里抓個Func
代碼:
//在Form,interface,var后加
Function MyMax ( X , Y : integer ) : integer ; stdcall ; external 'MyTestDLL.dll' ;
// MyTestDLL.dll為你前時寫的DLL項目名字
// DLL名字大小寫沒關(guān)系。不過記得要加 extension的 .DLL。在Win95或NT，
// 是不必加 extension，但這兩種OS，可能越來越少了吧。要加extension
可以了，簡單吧。
上面的例子是不是很簡單？熟悉delphi的朋友可以看出以上代碼和一般的delphi程序的編寫基本是相同的，只是在TestDll函數(shù)后多了一個stdcall參數(shù)并且用exports語句聲明了TestDll函數(shù)。只要編譯上面的代碼，就可以玫揭桓雒 狣elphi.dll的動態(tài)鏈接庫?，F(xiàn)在，讓我們來看看有哪些需要注意的地方：
1.在DLL中編寫的函數(shù)或過程都必須加上stdcall調(diào)用參數(shù)。在delphi 1或delphi 2環(huán)境下該調(diào)用參數(shù)是far。從delphi 3以后將這個參數(shù)變?yōu)榱藄tdcall，目的是為了使用標(biāo)準(zhǔn)的Win32參數(shù)傳遞技術(shù)來代替優(yōu)化的register參數(shù)。忘記使用stdcall參數(shù)是常見的錯誤，這個錯誤不會影響DLL的編譯和生成，但當(dāng)調(diào)用這個DLL時會發(fā)生很嚴(yán)重的錯誤，導(dǎo)致操作系統(tǒng)的死鎖。原因是register參數(shù)是delphi的默認參數(shù)。
2.所寫的函數(shù)和過程應(yīng)該用exports語句聲明為外部函數(shù)。
正如大家看到的，TestDll函數(shù)被聲明為一個外部函數(shù)。這樣做可以使該函數(shù)在外部就能看到，具體方法是單激鼠標(biāo)右鍵用“快速查看（Quick View）”功能查看該DLL文件。（如果沒有“快速查看”選項可以從Windows CD上安裝。）TestDll函數(shù)會出現(xiàn)在Export Table欄中。另一個很充分的理由是，如果不這樣聲明，我們編寫的函數(shù)將不能被調(diào)用，這是大家都不愿看到的。
3.當(dāng)使用了長字符串類型的參數(shù)、變量時要引用ShareMem。
delphi中的string類型很強大，我們知道普通的字符串長度最大為256個字符，但delphi中string類型在默認情況下長度可以達到2G。（對，您沒有看錯，確實是兩兆。）這時，如果您堅持要使用string類型的參數(shù)、變量甚至是記錄信息時，就要引用ShareMem單元，而且必須是第一個引用的。既在uses語句后是第一個引用的單元。如下例：
uses
ShareMem,
SysUtils,
Classes;
還有一點，在您的工程文件（*.dpr）中而不是單元文件（*.pas）中也要做同樣的工作，這一點delphi自帶的幫助文件沒有說清楚，造成了很多誤會。不這樣做的話，您很有可能付出死機的代價。避免使用string類型的方法是將string類型的參數(shù)、變量等聲明為Pchar或ShortString（如：s:string[10]）類型。同樣的問題會出現(xiàn)在當(dāng)您使用了動態(tài)數(shù)組時，解決的方法同上所述。
Delphi DLL動態(tài)鏈庫編寫教程
Windows的發(fā)展要求允許同時運行的幾個程序共享一組函數(shù)的單一拷貝。動態(tài)鏈接庫就是在這種情況下出現(xiàn)的。動態(tài)鏈接庫不用重復(fù)編譯或鏈接，一旦裝入內(nèi)存，Dlls函數(shù)可以被系統(tǒng)中的任何正在運行的應(yīng)用程序軟件所使用，而不必再將DLLs函數(shù)的另一拷貝裝入內(nèi)存?！∪魏螒?yīng)用程序都可以共享由裝入內(nèi)存的DLLs管理的內(nèi)存資源塊。只包含共享數(shù)據(jù)的DLLs稱為資源文件。
1.一般工程文件的頭標(biāo)用program關(guān)鍵字，而DLLs工程文件頭標(biāo)用library 關(guān)鍵字。不同的關(guān)鍵字通知編譯器生成不同的可執(zhí)行文件。用program關(guān)鍵字生成的是.exe文件，而用library關(guān)鍵字生成的是.dll文件；
2.假如DLLs要輸出供其它應(yīng)用程序使用的函數(shù)或過程，則必須將這些函數(shù)或過程列在exports子句中。而這些函數(shù)或過程本身必須用export編譯指令進行編譯。
根據(jù)DLLs完成的功能，我們把DLLs分為如下的三類：
1.完成一般功能的DLLs；2.用于數(shù)據(jù)交換的DLLs；3.用于窗體重用的DLLs。
一 Dll的制作一般分為以下幾步：
1 在一個DLL工程里寫一個過程或函數(shù)
2 寫一個Exports關(guān)鍵字，在其下寫過程的名稱。不用寫參數(shù)和調(diào)用后綴。
二 參數(shù)傳遞
1 參數(shù)類型最好與window C++的參數(shù)類型一致。最好少用DELPHI的數(shù)據(jù)類型。
2 最好有返回值[即使是一個過程]，來報出調(diào)用成功或失敗，或狀態(tài)。成功或失敗的返回值最好為1[成功]或0[失敗].一句話，與windows c++兼容。
3 用stdcall聲明后綴。
4 最好大小寫敏感。
5 無須用far調(diào)用后綴，那只是為了與windows 16位程序兼容。
三 DLL的初始化和退出清理[如果需要初始化和退出清理]
1 DLLProc[SysUtils單元的一個Pointer]是DLL的入口。在此你可用你的函數(shù)替換了它的入口。但你的函數(shù)必須符合以下要求[其實就是一個回調(diào)函數(shù)]。如下：
procedurefar;stdcall;
dwReason參數(shù)有四種類型：
DLL_PROCESS_ATTACH:進程進入時 ??????DLL_PROCESS_DETACH進程退出時
DLL_THREAD_ATTACH 線程進入時 ???????DLL_THREAD_DETACH 線程退出時
在初始化部分寫:
DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH);
2 如Form上有TdcomConnection組件,就Uses Activex,在初始化時寫一句CoInitialize (nil);
3 在退出時一定保證DcomConnection.Connected := False,并且數(shù)據(jù)集已關(guān)閉。否則報地址錯。
四 全局變量的使用
在widnows 32位程序中，兩個應(yīng)用程序的地址空間是相互沒有聯(lián)系的。雖然DLL在內(nèi)存中是一份，但變量是在各進程的地址空間中，因此你不能借助dll的全局變量來達到兩個應(yīng)用程序間的數(shù)據(jù)傳遞，除非你用內(nèi)存映像文件。
五 調(diào)用靜態(tài)載入
1 客戶端函數(shù)聲名:
1)大小寫敏感。
2)與DLL中的聲明一樣。如：Far;external'yproject_dll.dll';
3)調(diào)用時傳過去的參數(shù)類型最好也與windows c++一樣。
4)調(diào)用時DLL必須在windows搜索路徑中，順序是：當(dāng)前目錄；Path路徑；windows;widows\system;windows\ssystem32;
六 調(diào)用動態(tài)載入
1 建立一種過程類型[如果你對過程類型的變量只是一個指針的本質(zhì)清楚的話，你就知道是怎么回事了]。如：
type
mypointer=procedure(form:Tform);Far;external;
var
Hinst:Thandle;
begin
Hinst:=loadlibrary('yproject_dll');//Load一個Dll,按文件名找。
showform:=getprocaddress(Hinst,'showform');//按函數(shù)名找，大小寫敏感。如果你知道自動化對象的本質(zhì)就清楚了。
showform(application.mainform);//找到函數(shù)入口指針就調(diào)用。
Freelibrary(Hinst);
end;
例：
1.File->Close all->File->New﹝DLL﹞
代碼: //自動產(chǎn)生Code如下
library Project2;
????uses
????SysUtils, Classes;
????{$R *.RES}
????begin
????end.
2.加個Func進來：
????代碼:
????library Project2;
????uses
????SysUtils, Classes;
Function stdcall ;
begin
if X > Y then ??????Result := X
else ???????????????Result := Y ;
end ;
//切記：Library 的名字大小寫沒關(guān)系，可是DLL-Func的大小寫就有關(guān)系了。??在 DLL-Func-Name寫成MyMax與myMAX是不同的。如果寫錯了，結(jié)果是此DLL的AP根本打不開。參數(shù)的大小寫就沒關(guān)系了。甚至不必同名。如原型中是 (X,Y:integer)但引用時寫成(A,B:integer)，那是沒關(guān)系的。
//切記：要再加個stdcall。書上講，如果你是用delphi寫DLL，且希望不僅給delphi-AP也希望BCB/VC-AP等使用的話，那你最好加個Stdcall ; 的指示
//參數(shù)型態(tài)：delphi有很多種它自己的變量型態(tài)，這些當(dāng)然不是DLL所喜歡的，Windows/DLL的母語是C。所以如果要傳進傳出DLL的參數(shù)，我們盡可能照規(guī)矩來用。
{$R *.RES}
begin
end.
3.將這些可共享的Func送出DLL，讓外界﹝就是你的delphi-AP啦﹞使用：光如此，你的AP還不能用到這些，你還要加個Exports才行。
代碼:
{$R *.RES}
exports
MyMax ;
begin
end.
4.好了，可以按 Ctrl-F9編譯了。此時可不要按F9。DLL不是EXE不可單獨執(zhí)行的，如果你按F9，會有ErrorMsg的。這時如果DLL有Error，請修正之。再按Ctrl-F9。此時可能有Warning，不要緊，研究一下，看看就好。再按Ctrl-F9，此時就『Done , Compiled 』。同目錄就會有個 *.dll 。恭喜，大功告成了。
1.加個TButton
????????代碼: ShowMessage ( IntToStr(MyMax(30,50)) ) ;
2.告知Exe到那里抓個Func
????????代碼: //在Form,interface,var后加
Function stdcall ; external 'MyTestDLL.dll' ;
// MyTestDLL.dll為你前時寫的DLL項目名字
// DLL名字大小寫沒關(guān)系。不過記得要加 extension的 .DLL。在Win95或NT，是不必加 extension，但這兩種OS，可能越來越少了吧。要加extension
在delphi 1或delphi 2環(huán)境下該調(diào)用參數(shù)是far。從delphi 3以后將這個參數(shù)變?yōu)榱藄tdcall，目的是為了使用標(biāo)準(zhǔn)的Win32參數(shù)傳遞技術(shù)來代替優(yōu)化的register參數(shù)。
1.在DLL中編寫的函數(shù)或過程都必須加上stdcall調(diào)用參數(shù)。
2.所寫的函數(shù)和過程應(yīng)該用exports語句聲明為外部函數(shù)。
3.當(dāng)使用了長字符串類型的參數(shù)、變量時要引用ShareMem。
一、正如大家看到的，我們在external語句中指定了所要調(diào)用的DLL文件的名稱。沒有寫路徑是因為該DLL文件和調(diào)用它的主程序在同一目錄下。如果該DLL文件在C:\，則我們可將上面的引用語句寫為external ’C:\delphi.dll’。注意文件的后綴.dll必須寫上。
二、不能從DLL中調(diào)用全局變量
如果我們在DLL中聲明了某種全局變量，如：var s:byte 。這樣在DLL中s這個全局變量是可以正常使用的，但s不能被調(diào)用程序使用，既s不能作為全局變量傳遞給調(diào)用程序。不過在調(diào)用程序中聲明的變量可以作為參數(shù)傳遞給DLL。
三、被調(diào)用的DLL必須存在
這一點很重要，使用靜態(tài)調(diào)用方法時要求所調(diào)用的DLL文件以及要調(diào)用的函數(shù)或過程等等必須存在。如果不存在或指定的路徑和文件名不正確的話，運行主程序時系統(tǒng)會提示“啟動程序時出錯”或“找不到*.dll文件”等運行錯誤。
1 、我們知道DLL在編寫時是不能運行和單步調(diào)試的。有一個辦法可以，那就是在Run|parameters菜單中設(shè)置一個宿主程序。在Local頁的Host Application欄中添上宿主程序的名字就可進行單步調(diào)試、斷點觀察和運行了。
2 、添加DLL的版本信息。開場白中提到了版本信息對于DLL是很重要的，如果包含了版本信息，DLL的大小會增加2Kb。增加這么一點空間是值得的。很不幸我們?nèi)绻苯邮褂肞roject|options菜單中Version選項是不行的，這一點delphi的幫助文件中沒有提到，經(jīng)筆者研究發(fā)現(xiàn)，只要加一行代碼就可以了。如下例：
library delphi;
uses
SysUtils, Classes;
{$R *.RES}
//注意，上面這行代碼必須加在這個位置
functionstdcall;
begin ???Result:=i; ???end;
exports TestDll;
begin
end.
1 、在用靜態(tài)方法時，可以給被調(diào)用的函數(shù)或過程更名。在前面提到的C++編寫的DLL例子中，如果去掉extern ”C”語句，C++會編譯出一些奇怪的函數(shù)名，原來的TestC函數(shù)會被命名為@TestC$s等等可笑的怪名字，這是由于C++采用了C++ name mangling技術(shù)。這個函數(shù)名在delphi中是非法的，我們可以這樣解決這個問題：
改寫引用函數(shù)為
functionstdcall;
external ’Cpp.dll’;name ’@TestC$s’;?????其中name的作用就是重命名。
2 、可把我們編寫的DLL放到Windows目錄下或者Windows\system目錄下。這樣做可以在external語句中或LoadLibrary語句中不寫路徑而只寫DLL的名稱。但這樣做有些不妥，這兩個目錄下有大量重要的系統(tǒng)DLL，如果您編的DLL與它們重名的話其后果簡直不堪設(shè)想，況且您的編程技術(shù)還不至于達到將自己編寫的DLL放到系統(tǒng)目錄中的地步吧！
六、在delphi中動態(tài)調(diào)用DLL top
動態(tài)調(diào)用DLL相對復(fù)雜很多，但非常靈活。為了全面的說明該問題，這次我們舉一個調(diào)用由C++編寫的DLL的例子。首先在C++中編譯下面的DLL源程序。
#include
extern ”C” _declspec(dllexport)
int WINAPI TestC(int i)
{ ??????return i; ??????}
編譯后生成一個DLL文件，在這里我們稱該文件為Cpp.dll，該DLL中只有一個返回整數(shù)類型的函數(shù)TestC。為了方便說明，我們?nèi)匀灰蒙厦娴恼{(diào)用程序，只是將原來的Button1Click過程中的語句用下面的代碼替換掉了。
procedure
type
TIntFunc=function(i:integer):integer;stdcall;
var
Th:Thandle; ?? Tp:TFarProc;
begin
Th:=LoadLibrary(’Cpp.dll’); {裝載DLL}
if Th>0 then
try
Tp:=GetProcAddress(Th,PChar(’TestC’));????//按函數(shù)名找，大小寫敏感。
if Tp<>nil then
begin
Tf:=TIntFunc(Tp);
Edit1.Text:=IntToStr(Tf(1)); {調(diào)用TestC函數(shù)}
end
else ShowMessage(’TestC函數(shù)沒有找到’);
finally
FreeLibrary(Th); {釋放DLL}
end
else ????ShowMessage(’Cpp.dll沒有找到’);
end;
大家已經(jīng)看到了，這種動態(tài)調(diào)用技術(shù)很復(fù)雜，但只要修改參數(shù)，如修改LoadLibrary(’Cpp.dll’)中的DLL名稱為’delphi.dll’就可動態(tài)更改所調(diào)用的DLL。
一、定義所要調(diào)用的函數(shù)或過程的類型
在上面的代碼中我們定義了一個TIntFunc類型，這是對應(yīng)我們將要調(diào)用的函數(shù)TestC的。在其他調(diào)用情況下也要做同樣的定義工作。并且也要加上stdcall調(diào)用參數(shù)。
二、釋放所調(diào)用的DLL
我們用LoadLibrary動態(tài)的調(diào)用了一個DLL，但要記住必須在使用完后手動地用FreeLibrary將該DLL釋放掉，否則該DLL將一直占用內(nèi)存直到您退出Windows或關(guān)機為止。
現(xiàn)在我們來評價一下兩種調(diào)用DLL的方法的優(yōu)缺點。靜態(tài)方法實現(xiàn)簡單，易于掌握并且一般來說稍微快一點，也更加安全可靠一些；但是靜態(tài)方法不能靈活地在運行時裝卸所需的DLL，而是在主程序開始運行時就裝載指定的DLL直到程序結(jié)束時才釋放該DLL，另外只有基于編譯器和鏈接器的系統(tǒng)（如delphi）才可以使用該方法。動態(tài)方法較好地解決了靜態(tài)方法中存在的不足，可以方便地訪問DLL中的函數(shù)和過程，甚至一些老版本DLL中新添加的函數(shù)或過程；但動態(tài)方法難以完全掌握，使用時因為不同的函數(shù)或過程要定義很多很復(fù)雜的類型和調(diào)用方法。對于初學(xué)者，筆者建議您使用靜態(tài)方法，待熟練后再使用動態(tài)調(diào)用方法。
1 把你的Form Uses到Dll中，你的Form用到的關(guān)聯(lián)的單元也要Uses進來[這是最麻煩的一點，因為你的Form或許Uses了許多特殊的單元或函數(shù)]
2 傳遞一個Application參數(shù)，用它建立Form.
在DLL中建立一個TMDIChildForM
1 Dll中的MDIForm.FormStyle不用為fmMDIChild.
2 在CreateForm后寫以下兩句：
functionstdcall
var
Form1: TForm1;????
begin
ptr:=@(Application.MainForm);????//先把dll的MainForm句柄保存起來，也無須釋放，只不過是替換一下
ptr^:=LongInt(mainForm);?????????//用主調(diào)程序的mainForm替換DLL的MainForm。MainForm是特殊的WINDOW，它專門管理//Application中的Forms資源.為什么不直接Application.MainForm := mainForm,因//為Application.MainForm是只讀屬性
Form1:=TForm1.Create(mainForm);??//用參數(shù)建立
end;
備注：參數(shù)是主調(diào)程序的Application.MainForm
Delphi中高級DLL的編寫和調(diào)用
根據(jù)Delphi提供的有關(guān) DLL編寫和調(diào)用的幫助信息，你可以很快完成一般的 DLL編寫和調(diào)用的 應(yīng)用程序。本文介紹的主題是如何編寫和調(diào)用能夠傳遞各種參數(shù)（包括對象實例）的 DLL。例如， 主叫程序傳遞給 DLL一個ADOConnection 對象示例作為參數(shù)， DLL中的函數(shù)和過程調(diào)用通過該對象 實例訪問數(shù)據(jù)庫。
需要明確一些基本概念。對于 DLL，需要在主程序中包含 exports子句，用于向外界提供調(diào)用 接口，子句中就是一系列函數(shù)或過程的名字。對于主叫方（調(diào)用 DLL的應(yīng)用程序或其它的 DLL）， 則需要在調(diào)用之前進行外部聲明，即external保留字指示的聲明。這些是編寫 DLL和調(diào)用 DLL必須 具備的要素。
另外需要了解Object Pascal 中有關(guān)調(diào)用協(xié)議的內(nèi)容。在Object Pascal 中，對于過程和函數(shù) 有以下五種調(diào)用協(xié)議：
指示字 參數(shù)傳遞順序 參數(shù)清除者 參數(shù)是否使用寄存器
register 自左向右 被調(diào)例程 是
pascal 自左向右 被調(diào)例程 否
cdecl 自右向左 調(diào)用者 否
stdcall 自右向左 被調(diào)例程 否
safecall 自右向左 被調(diào)例程 否
這里的指示字就是在聲明函數(shù)或過程時附加在例程標(biāo)題之后的保留字，默認為register，即是 唯一使用 CPU寄存器的參數(shù)傳遞方式，也是傳遞速度最快的方式；
pascal: 調(diào)用協(xié)議僅用于向后兼容，即向舊的版本兼容；
cdecl: 多用于 C和 C++語言編寫的例程，也用于需要由調(diào)用者清除參數(shù)的例程；
stdcall: 和safecall主要用于調(diào)用Windows API 函數(shù)；其中safecall還用于雙重接口。
在本例中，將使用調(diào)用協(xié)議cdecl ，因為被調(diào)用的 DLL中，使用的數(shù)據(jù)庫連接是由主叫方傳遞 得到的，并且需要由主叫方處理連接的關(guān)閉和銷毀。
下面是 DLL完整源程序和主叫程序完整源程序。包括以下四個文件：
Project1.DPR {主叫程序}
Unit1.PAS {主叫程序單元}
Project2.DPR {DLL}
Unit2.PAS {DLL單元}
{---------- DLL 主程序 Project2.DPR ----------}
library Project2;
uses
SysUtils,
Classes,
Unit2 in ‘Unit2.pas‘ {Form1};
{$R *.RES}
{ 下面的語句用于向調(diào)用該 DLL的程序提供調(diào)用接口 }
exports
DoTest; { 過程來自單元Unit2 }
begin
end.
{---------- DLL中的單元 Unit2.PAS ----------}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, StdCtrls, Menus;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;{ 本地數(shù)據(jù)庫連接 }
Memo1: TMemo; { 用于顯示信息 }
private
public
end;
{ 該過程向外提供 }
procedure DoTest(H: THandle; { 獲得調(diào)用者的句柄 }
AConn: TADOConnection;{ 獲得調(diào)用者的數(shù)據(jù)庫連接 }
S: string; { 獲得一些文本信息 }
N: Integer); { 獲得一些數(shù)值信息 }
cdecl; { 指定調(diào)用協(xié)議 }
implementation
{$R *.DFM}
procedure DoTest(H: THandle; AConn: TADOConnection; S: string; N: Integer);
begin
Application.Handle := H; { 將過程的句柄賦值為調(diào)用者的句柄 }
{ 上面語句的作用在于， DLL的句柄和調(diào)用者的句柄相同，在任務(wù)欄中就不會 }
{ 各自出現(xiàn)一個任務(wù)標(biāo)題了。 }
with TForm1.Create(Application) do try{ 創(chuàng)建窗體 }
Memo1.Lines.Append(‘成功調(diào)用‘); { 顯示一行信息 }
ADOConnection1 := AConn; { 獲得數(shù)據(jù)庫連接的實例 }
Memo1.Lines.Append(
ADOConnection1.ConnectionString +
‘ - ‘ + S + ‘ - ‘ + IntToStr(N)); { 根據(jù)得到的參數(shù)顯示另一行信息 }
ShowModal; { 模式化顯示窗體 }
finally
Free; { 調(diào)用結(jié)束時銷毀窗口 }
end;
end;
end.
{---------- 調(diào)用者 Project1.DPR，很普通的工程文件 ----------}
program Project1;
uses
Forms,
Unit1 in ‘Unit1.pas‘ {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
{---------- 調(diào)用者單元Unit1.PAS ----------}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, ADODB;
type
TForm1 = class(TForm)
Button1: TButton; { 按此按鈕進行調(diào)用 }
ADOConnection1: TADOConnection; { 本地數(shù)據(jù)庫連接，將傳遞給 DLL }
procedure Button1Click(Sender: TObject);{ 調(diào)用 DLL}
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ 外部聲明必須和 DLL中的參數(shù)列表一致，否則會運行時錯誤 }
procedure DoTest(H: THandle; { 傳遞句柄 }
AConn: TADOConnection; { 傳遞數(shù)據(jù)庫連接 }
S: string; { 傳遞文本信息 }
N: Integer); { 傳遞數(shù)值信息 }
cdecl; { 指定調(diào)用協(xié)議 }
external ‘Project2.dll‘;{ 指定過程來源 }
{ 調(diào)用過程 }
procedure TForm1.Button1Click(Sender: TObject);
begin
DoTest(Application.Handle,
ADOConnection1,
‘Call OK‘,
256);
end;
end.
Delphi中高級DLL的編寫和調(diào)用(2)
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, StdCtrls, Menus;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;{ 本地數(shù)據(jù)庫連接 }
Memo1: TMemo; { 用于顯示信息 }
private
public
end;
{ 該過程向外提供 }
procedure DoTest(H: THandle; { 獲得調(diào)用者的句柄 }
AConn: TADOConnection;{ 獲得調(diào)用者的數(shù)據(jù)庫連接 }
S: string; { 獲得一些文本信息 }
N: Integer); { 獲得一些數(shù)值信息 }
cdecl; { 指定調(diào)用協(xié)議 }
implementation
{$R *.DFM}
procedure DoTest(H: THandle; AConn: TADOConnection; S: string; N: Integer);
begin
Application.Handle := H; { 將過程的句柄賦值為調(diào)用者的句柄 }
{ 上面語句的作用在于， DLL的句柄和調(diào)用者的句柄相同，在任務(wù)欄中就不會 }
{ 各自出現(xiàn)一個任務(wù)標(biāo)題了。 }
with TForm1.Create(Application) do try{ 創(chuàng)建窗體 }
Memo1.Lines.Append(‘成功調(diào)用‘); { 顯示一行信息 }
ADOConnection1 := AConn; { 獲得數(shù)據(jù)庫連接的實例 }
Memo1.Lines.Append(
ADOConnection1.ConnectionString +
‘ - ‘ + S + ‘ - ‘ + IntToStr(N)); { 根據(jù)得到的參數(shù)顯示另一行信息 }
ShowModal; { 模式化顯示窗體 }
finally
Free; { 調(diào)用結(jié)束時銷毀窗口 }
end;
end;
end.
{---------- 調(diào)用者 Project1.DPR，很普通的工程文件 ----------}
program Project1;
uses
Forms,
Unit1 in ‘Unit1.pas‘ {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
{---------- 調(diào)用者單元Unit1.PAS ----------}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, ADODB;
type
TForm1 = class(TForm)
Button1: TButton; { 按此按鈕進行調(diào)用 }
ADOConnection1: TADOConnection; { 本地數(shù)據(jù)庫連接，將傳遞給 DLL }
procedure Button1Click(Sender: TObject);{ 調(diào)用 DLL}
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ 外部聲明必須和 DLL中的參數(shù)列表一致，否則會運行時錯誤 }
procedure DoTest(H: THandle; { 傳遞句柄 }
AConn: TADOConnection; { 傳遞數(shù)據(jù)庫連接 }
S: string; { 傳遞文本信息 }
N: Integer); { 傳遞數(shù)值信息 }
cdecl; { 指定調(diào)用協(xié)議 }
external ‘Project2.dll‘;{ 指定過程來源 }
{ 調(diào)用過程 }
procedure TForm1.Button1Click(Sender: TObject);
begin
DoTest(Application.Handle,
ADOConnection1,
‘Call OK‘,
256);
end;
工商網(wǎng)監(jiān)
評論