如何用Delphi編寫dll文件

一、開使你的第一個DLL專案
　　1.File->Close all->File->New﹝DLL﹞

代碼:


　　//自動產生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 的名字大小寫沒關系，可是DLL-Func的大小寫就有關系了。
// 在 DLL-Func-Name寫成MyMax與myMAX是不同的。如果寫錯了，立即
// 的結果是你叫用到此DLL的AP根本開不起來。
//參數的大小寫就沒關系了。甚至不必同名。如原型中是 (X,Y:integer)但引
// 用時寫成(A,B:integer)，那是沒關系的。
//切記：要再加個stdcall。書上講，如果你是用delphi寫DLL，且希望不僅給
// delphi-AP也希望BCB/VC-AP等使用的話，那你最好加個Stdcall ; 的指示
//參數型態：delphi有很多種它自己的變量型態，這些當然不是DLL所喜歡的
// ，Windows/DLL的母語應該是C。所以如果要傳進傳出DLL的參數，我們
// 盡可能照規矩來用。這兩者寫起來，后者會麻煩不少。如果你對C不熟
// 的話，那也沒關系。我們以后再講。

　　{$R *.RES}

　　begin
　　end.



　　3.將這些可共享的Func送出DLL，讓外界﹝就是你的delphi-AP啦﹞使用：光如此，你的AP還不能用到這些，你還要加個Exports才行。
　　代碼:


　　{$R *.RES}
　　exports
　　MyMax ;
　　begin
　　end.



　　4.好了，可以按 Ctrl-F9編譯了。此時可不要按F9。DLL不是EXE┌不可單獨執行的，如果你按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名字大小寫沒關系。不過記得要加 extension的 .DLL。在Win95或NT，
　　// 是不必加 extension，但這兩種OS，可能越來越少了吧。要加extension


　　可以了，簡單吧。


　　上面的例子是不是很簡單？熟悉delphi的朋友可以看出以上代碼和一般的delphi程序的編寫基本是相同的，只是在TestDll函數后多了一個stdcall參數并且用exports語句聲明了TestDll函數。只要編譯上面的代碼，就可以玫揭桓雒 狣elphi.dll的動態鏈接庫。現在，讓我們來看看有哪些需要注意的地方：

　　1.在DLL中編寫的函數或過程都必須加上stdcall調用參數。在delphi 1或delphi 2環境下該調用參數是far。從delphi 3以后將這個參數變為了stdcall，目的是為了使用標準的Win32參數傳遞技術來代替優化的register參數。忘記使用stdcall參數是常見的錯誤，這個錯誤不會影響DLL的編譯和生成，但當調用這個DLL時會發生很嚴重的錯誤，導致操作系統的死鎖。原因是register參數是delphi的默認參數。

　　2.所寫的函數和過程應該用exports語句聲明為外部函數。
　　正如大家看到的，TestDll函數被聲明為一個外部函數。這樣做可以使該函數在外部就能看到，具體方法是單激鼠標右鍵用“快速查看（Quick View）”功能查看該DLL文件。（如果沒有“快速查看”選項可以從Windows CD上安裝。）TestDll函數會出現在Export Table欄中。另一個很充分的理由是，如果不這樣聲明，我們編寫的函數將不能被調用，這是大家都不愿看到的。

　　3.當使用了長字符串類型的參數、變量時要引用ShareMem。
　　delphi中的string類型很強大，我們知道普通的字符串長度最大為256個字符，但delphi中string類型在默認情況下長度可以達到2G。（對，您沒有看錯，確實是兩兆。）這時，如果您堅持要使用string類型的參數、變量甚至是記錄信息時，就要引用ShareMem單元，而且必須是第一個引用的。既在uses語句后是第一個引用的單元。如下例：


　　uses
　　ShareMem,
　　SysUtils,
　　Classes;


　　還有一點，在您的工程文件（*.dpr）中而不是單元文件（*.pas）中也要做同樣的工作，這一點delphi自帶的幫助文件沒有說清楚，造成了很多誤會。不這樣做的話，您很有可能付出死機的代價。避免使用string類型的方法是將string類型的參數、變量等聲明為Pchar或ShortString（如：s:string[10]）類型。同樣的問題會出現在當您使用了動態數組時，解決的方法同上所述。

Delphi DLL動態鏈庫編寫教程

Windows的發展要求允許同時運行的幾個程序共享一組函數的單一拷貝。動態鏈接庫就是在這種情況下出現的。動態鏈接庫不用重復編譯或鏈接，一旦裝入內存，Dlls函數可以被系統中的任何正在運行的應用程序軟件所使用，而不必再將DLLs函數的另一拷貝裝入內存。　任何應用程序都可以共享由裝入內存的DLLs管理的內存資源塊。只包含共享數據的DLLs稱為資源文件。

1.一般工程文件的頭標用program關鍵字，而DLLs工程文件頭標用library 關鍵字。不同的關鍵字通知編譯器生成不同的可執行文件。用program關鍵字生成的是.exe文件，而用library關鍵字生成的是.dll文件；

　　2.假如DLLs要輸出供其它應用程序使用的函數或過程，則必須將這些函數或過程列在exports子句中。而這些函數或過程本身必須用export編譯指令進行編譯。

　　根據DLLs完成的功能，我們把DLLs分為如下的三類：

1.完成一般功能的DLLs；2.用于數據交換的DLLs；3.用于窗體重用的DLLs。

一 Dll的制作一般分為以下幾步：

1 在一個DLL工程里寫一個過程或函數

2 寫一個Exports關鍵字，在其下寫過程的名稱。不用寫參數和調用后綴。

二 參數傳遞

1 參數類型最好與window C++的參數類型一致。最好少用DELPHI的數據類型。

2 最好有返回值[即使是一個過程]，來報出調用成功或失敗，或狀態。成功或失敗的返回值最好為1[成功]或0[失敗].一句話，與windows c++兼容。

3 用stdcall聲明后綴。

4 最好大小寫敏感。

5 無須用far調用后綴，那只是為了與windows 16位程序兼容。

三 DLL的初始化和退出清理[如果需要初始化和退出清理]

1 DLLProc[SysUtils單元的一個Pointer]是DLL的入口。在此你可用你的函數替換了它的入口。但你的函數必須符合以下要求[其實就是一個回調函數]。如下：

procedurefar;stdcall;

dwReason參數有四種類型：

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,并且數據集已關閉。否則報地址錯。

四 全局變量的使用

在widnows 32位程序中，兩個應用程序的地址空間是相互沒有聯系的。雖然DLL在內存中是一份，但變量是在各進程的地址空間中，因此你不能借助dll的全局變量來達到兩個應用程序間的數據傳遞，除非你用內存映像文件。

五 調用靜態載入

1 客戶端函數聲名:

1)大小寫敏感。

2)與DLL中的聲明一樣。如：Far;external'yproject_dll.dll';

3)調用時傳過去的參數類型最好也與windows c++一樣。

4)調用時DLL必須在windows搜索路徑中，順序是：當前目錄；Path路徑；windows;widows\system;windows\ssystem32;

六 調用動態載入

1 建立一種過程類型[如果你對過程類型的變量只是一個指針的本質清楚的話，你就知道是怎么回事了]。如：

type

mypointer=procedure(form:Tform);Far;external;

var

Hinst:Thandle;

begin

Hinst:=loadlibrary('yproject_dll');//Load一個Dll,按文件名找。

showform:=getprocaddress(Hinst,'showform');//按函數名找，大小寫敏感。如果你知道自動化對象的本質就清楚了。

showform(application.mainform);//找到函數入口指針就調用。

Freelibrary(Hinst);

end;

例：

一、開始第一個DLL

　　1.File->Close all->File->New﹝DLL﹞

代碼:　　//自動產生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 的名字大小寫沒關系，可是DLL-Func的大小寫就有關系了。??在 DLL-Func-Name寫成MyMax與myMAX是不同的。如果寫錯了，結果是此DLL的AP根本打不開。參數的大小寫就沒關系了。甚至不必同名。如原型中是 (X,Y:integer)但引用時寫成(A,B:integer)，那是沒關系的。

//切記：要再加個stdcall。書上講，如果你是用delphi寫DLL，且希望不僅給delphi-AP也希望BCB/VC-AP等使用的話，那你最好加個Stdcall ; 的指示

//參數型態：delphi有很多種它自己的變量型態，這些當然不是DLL所喜歡的，Windows/DLL的母語是C。所以如果要傳進傳出DLL的參數，我們盡可能照規矩來用。

　　{$R *.RES}

　　begin

　　end.

　　3.將這些可共享的Func送出DLL，讓外界﹝就是你的delphi-AP啦﹞使用：光如此，你的AP還不能用到這些，你還要加個Exports才行。

　　代碼:

　　{$R *.RES}

　　exports

　　MyMax ;

　　begin

　　end.

　　4.好了，可以按 Ctrl-F9編譯了。此時可不要按F9。DLL不是EXE不可單獨執行的，如果你按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 stdcall ; external 'MyTestDLL.dll' ;

　　// MyTestDLL.dll為你前時寫的DLL項目名字

// DLL名字大小寫沒關系。不過記得要加 extension的 .DLL。在Win95或NT，是不必加 extension，但這兩種OS，可能越來越少了吧。要加extension

三、dll注意事項

在delphi 1或delphi 2環境下該調用參數是far。從delphi 3以后將這個參數變為了stdcall，目的是為了使用標準的Win32參數傳遞技術來代替優化的register參數。

1.在DLL中編寫的函數或過程都必須加上stdcall調用參數。

2.所寫的函數和過程應該用exports語句聲明為外部函數。

3.當使用了長字符串類型的參數、變量時要引用ShareMem。

一、正如大家看到的，我們在external語句中指定了所要調用的DLL文件的名稱。沒有寫路徑是因為該DLL文件和調用它的主程序在同一目錄下。如果該DLL文件在C:\，則我們可將上面的引用語句寫為external ’C:\delphi.dll’。注意文件的后綴.dll必須寫上。

二、不能從DLL中調用全局變量

　　如果我們在DLL中聲明了某種全局變量，如：var s:byte 。這樣在DLL中s這個全局變量是可以正常使用的，但s不能被調用程序使用，既s不能作為全局變量傳遞給調用程序。不過在調用程序中聲明的變量可以作為參數傳遞給DLL。

三、被調用的DLL必須存在

　　這一點很重要，使用靜態調用方法時要求所調用的DLL文件以及要調用的函數或過程等等必須存在。如果不存在或指定的路徑和文件名不正確的話，運行主程序時系統會提示“啟動程序時出錯”或“找不到*.dll文件”等運行錯誤。

四、調試技巧

　　1 、我們知道DLL在編寫時是不能運行和單步調試的。有一個辦法可以，那就是在Run|parameters菜單中設置一個宿主程序。在Local頁的Host Application欄中添上宿主程序的名字就可進行單步調試、斷點觀察和運行了。

　　2 、添加DLL的版本信息。開場白中提到了版本信息對于DLL是很重要的，如果包含了版本信息，DLL的大小會增加2Kb。增加這么一點空間是值得的。很不幸我們如果直接使用Project|options菜單中Version選項是不行的，這一點delphi的幫助文件中沒有提到，經筆者研究發現，只要加一行代碼就可以了。如下例：

library delphi;

uses

SysUtils, Classes;

{$R *.RES}

//注意，上面這行代碼必須加在這個位置

functionstdcall;

begin ???Result:=i; ???end;

exports TestDll;

begin

end.

五、調用技巧

　　1 、在用靜態方法時，可以給被調用的函數或過程更名。在前面提到的C++編寫的DLL例子中，如果去掉extern ”C”語句，C++會編譯出一些奇怪的函數名，原來的TestC函數會被命名為@TestC$s等等可笑的怪名字，這是由于C++采用了C++ name mangling技術。這個函數名在delphi中是非法的，我們可以這樣解決這個問題：

改寫引用函數為

functionstdcall;

external ’Cpp.dll’;name ’@TestC$s’;?????其中name的作用就是重命名。

　　2 、可把我們編寫的DLL放到Windows目錄下或者Windows\system目錄下。這樣做可以在external語句中或LoadLibrary語句中不寫路徑而只寫DLL的名稱。但這樣做有些不妥，這兩個目錄下有大量重要的系統DLL，如果您編的DLL與它們重名的話其后果簡直不堪設想，況且您的編程技術還不至于達到將自己編寫的DLL放到系統目錄中的地步吧！

六、在delphi中動態調用DLL top

　　動態調用DLL相對復雜很多，但非常靈活。為了全面的說明該問題，這次我們舉一個調用由C++編寫的DLL的例子。首先在C++中編譯下面的DLL源程序。

#include

extern ”C” _declspec(dllexport)

int WINAPI TestC(int i)

{ ??????return i; ??????}

　　編譯后生成一個DLL文件，在這里我們稱該文件為Cpp.dll，該DLL中只有一個返回整數類型的函數TestC。為了方便說明，我們仍然引用上面的調用程序，只是將原來的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’));????//按函數名找，大小寫敏感。

if Tp<>nil then

begin

Tf:=TIntFunc(Tp);

Edit1.Text:=IntToStr(Tf(1)); {調用TestC函數}

end

else 　ShowMessage(’TestC函數沒有找到’);

finally

FreeLibrary(Th); {釋放DLL}

end

else ????ShowMessage(’Cpp.dll沒有找到’);

end;

　　大家已經看到了，這種動態調用技術很復雜，但只要修改參數，如修改LoadLibrary(’Cpp.dll’)中的DLL名稱為’delphi.dll’就可動態更改所調用的DLL。

一、定義所要調用的函數或過程的類型

　　在上面的代碼中我們定義了一個TIntFunc類型，這是對應我們將要調用的函數TestC的。在其他調用情況下也要做同樣的定義工作。并且也要加上stdcall調用參數。

二、釋放所調用的DLL

　　我們用LoadLibrary動態的調用了一個DLL，但要記住必須在使用完后手動地用FreeLibrary將該DLL釋放掉，否則該DLL將一直占用內存直到您退出Windows或關機為止。

　　現在我們來評價一下兩種調用DLL的方法的優缺點。靜態方法實現簡單，易于掌握并且一般來說稍微快一點，也更加安全可靠一些；但是靜態方法不能靈活地在運行時裝卸所需的DLL，而是在主程序開始運行時就裝載指定的DLL直到程序結束時才釋放該DLL，另外只有基于編譯器和鏈接器的系統（如delphi）才可以使用該方法。動態方法較好地解決了靜態方法中存在的不足，可以方便地訪問DLL中的函數和過程，甚至一些老版本DLL中新添加的函數或過程；但動態方法難以完全掌握，使用時因為不同的函數或過程要定義很多很復雜的類型和調用方法。對于初學者，筆者建議您使用靜態方法，待熟練后再使用動態調用方法。

七、例１：在DLL建立一個TForM

1 把你的Form Uses到Dll中，你的Form用到的關聯的單元也要Uses進來[這是最麻煩的一點，因為你的Form或許Uses了許多特殊的單元或函數]

2 傳遞一個Application參數，用它建立Form.

在DLL中建立一個TMDIChildForM

1 Dll中的MDIForm.FormStyle不用為fmMDIChild.

2 在CreateForm后寫以下兩句：

functionstdcall

var

Form1: TForm1;????

begin

ptr:=@(Application.MainForm);????//先把dll的MainForm句柄保存起來，也無須釋放，只不過是替換一下

ptr^:=LongInt(mainForm);?????????//用主調程序的mainForm替換DLL的MainForm。MainForm是特殊的WINDOW，它專門管理//Application中的Forms資源.為什么不直接Application.MainForm := mainForm,因//為Application.MainForm是只讀屬性

Form1:=TForm1.Create(mainForm);??//用參數建立

end;

備注：參數是主調程序的Application.MainForm

Delphi中高級DLL的編寫和調用

根據Delphi提供的有關 DLL編寫和調用的幫助信息，你可以很快完成一般的 DLL編寫和調用的 應用程序。本文介紹的主題是如何編寫和調用能夠傳遞各種參數（包括對象實例）的 DLL。例如， 主叫程序傳遞給 DLL一個ADOConnection 對象示例作為參數， DLL中的函數和過程調用通過該對象 實例訪問數據庫。

　　需要明確一些基本概念。對于 DLL，需要在主程序中包含 exports子句，用于向外界提供調用 接口，子句中就是一系列函數或過程的名字。對于主叫方（調用 DLL的應用程序或其它的 DLL）， 則需要在調用之前進行外部聲明，即external保留字指示的聲明。這些是編寫 DLL和調用 DLL必須 具備的要素。

　　另外需要了解Object Pascal 中有關調用協議的內容。在Object Pascal 中，對于過程和函數 有以下五種調用協議：

　　指示字 參數傳遞順序 參數清除者 參數是否使用寄存器
　　register 自左向右 被調例程 是
　　pascal 自左向右 被調例程 否
　　cdecl 自右向左 調用者 否
　　stdcall 自右向左 被調例程 否
　　safecall 自右向左 被調例程 否

　　這里的指示字就是在聲明函數或過程時附加在例程標題之后的保留字，默認為register，即是 唯一使用 CPU寄存器的參數傳遞方式，也是傳遞速度最快的方式；

　　pascal: 調用協議僅用于向后兼容，即向舊的版本兼容；
　　cdecl: 多用于 C和 C++語言編寫的例程，也用于需要由調用者清除參數的例程；
　　stdcall: 和safecall主要用于調用Windows API 函數；其中safecall還用于雙重接口。
　　在本例中，將使用調用協議cdecl ，因為被調用的 DLL中，使用的數據庫連接是由主叫方傳遞 得到的，并且需要由主叫方處理連接的關閉和銷毀。

　　下面是 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}

　　{ 下面的語句用于向調用該 DLL的程序提供調用接口 }
　　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;{ 本地數據庫連接 }
　　 Memo1: TMemo; { 用于顯示信息 }
　　 private
　　 public
　　 end;

　　{ 該過程向外提供 }
　　procedure DoTest(H: THandle; { 獲得調用者的句柄 }
　　 AConn: TADOConnection;{ 獲得調用者的數據庫連接 }
　　 S: string; { 獲得一些文本信息 }
　　 N: Integer); { 獲得一些數值信息 }
　　 cdecl; { 指定調用協議 }

　　implementation

　　{$R *.DFM}

　　procedure DoTest(H: THandle; AConn: TADOConnection; S: string; N: Integer);
　　begin
　　 Application.Handle := H; { 將過程的句柄賦值為調用者的句柄 }
　　 { 上面語句的作用在于， DLL的句柄和調用者的句柄相同，在任務欄中就不會 }
　　 { 各自出現一個任務標題了。 }
　　 with TForm1.Create(Application) do try{ 創建窗體 }
　　 Memo1.Lines.Append(‘成功調用‘); { 顯示一行信息 }
　　 ADOConnection1 := AConn; { 獲得數據庫連接的實例 }
　　 Memo1.Lines.Append(
　　 ADOConnection1.ConnectionString +
　　 ‘ - ‘ + S + ‘ - ‘ + IntToStr(N)); { 根據得到的參數顯示另一行信息 }
　　 ShowModal; { 模式化顯示窗體 }
　　 finally
　　 Free; { 調用結束時銷毀窗口 }
　　 end;
　　end;

　　end.


　　{---------- 調用者 Project1.DPR，很普通的工程文件 ----------}

　　program Project1;

　　uses
Forms,
　　 Unit1 in ‘Unit1.pas‘ {Form1};

　　{$R *.RES}

　　begin
　　 Application.Initialize;
　　 Application.CreateForm(TForm1, Form1);
　　 Application.Run;
　　end.


　　{---------- 調用者單元Unit1.PAS ----------}

　　unit Unit1;

　　interface

　　uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　 StdCtrls, Db, ADODB;

　　type
　　 TForm1 = class(TForm)
　　 Button1: TButton; { 按此按鈕進行調用 }
　　 ADOConnection1: TADOConnection; { 本地數據庫連接，將傳遞給 DLL }
　　 procedure Button1Click(Sender: TObject);{ 調用 DLL}
　　 private
　　 public
　　 end;

　　var
　　 Form1: TForm1;

　　implementation

　　{$R *.DFM}

　　{ 外部聲明必須和 DLL中的參數列表一致，否則會運行時錯誤 }
　　procedure DoTest(H: THandle; { 傳遞句柄 }
　　 AConn: TADOConnection; { 傳遞數據庫連接 }
　　 S: string; { 傳遞文本信息 }
　　 N: Integer); { 傳遞數值信息 }
　　 cdecl; { 指定調用協議 }
　　 external ‘Project2.dll‘;{ 指定過程來源 }

　　{ 調用過程 }
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　 DoTest(Application.Handle,
　　 ADOConnection1,
　　 ‘Call OK‘,
　　 256);
　　end;

　　end.
Delphi中高級DLL的編寫和調用(2)

{---------- 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;{ 本地數據庫連接 }
　　 Memo1: TMemo; { 用于顯示信息 }
　　 private
　　 public
　　 end;

　　{ 該過程向外提供 }
　　procedure DoTest(H: THandle; { 獲得調用者的句柄 }
　　 AConn: TADOConnection;{ 獲得調用者的數據庫連接 }
　　 S: string; { 獲得一些文本信息 }
　　 N: Integer); { 獲得一些數值信息 }
　　 cdecl; { 指定調用協議 }

　　implementation

　　{$R *.DFM}

　　procedure DoTest(H: THandle; AConn: TADOConnection; S: string; N: Integer);
　　begin
　　 Application.Handle := H; { 將過程的句柄賦值為調用者的句柄 }
　　 { 上面語句的作用在于， DLL的句柄和調用者的句柄相同，在任務欄中就不會 }
　　 { 各自出現一個任務標題了。 }
　　 with TForm1.Create(Application) do try{ 創建窗體 }
　　 Memo1.Lines.Append(‘成功調用‘); { 顯示一行信息 }
　　 ADOConnection1 := AConn; { 獲得數據庫連接的實例 }
　　 Memo1.Lines.Append(
　　 ADOConnection1.ConnectionString +
　　 ‘ - ‘ + S + ‘ - ‘ + IntToStr(N)); { 根據得到的參數顯示另一行信息 }
　　 ShowModal; { 模式化顯示窗體 }
　　 finally
　　 Free; { 調用結束時銷毀窗口 }
　　 end;
　　end;

　　end.


　　{---------- 調用者 Project1.DPR，很普通的工程文件 ----------}

　　program Project1;

　　uses

Forms,
　　 Unit1 in ‘Unit1.pas‘ {Form1};

　　{$R *.RES}

　　begin
　　 Application.Initialize;
　　 Application.CreateForm(TForm1, Form1);
　　 Application.Run;
　　end.


　　{---------- 調用者單元Unit1.PAS ----------}

　　unit Unit1;

　　interface

　　uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　 StdCtrls, Db, ADODB;

　　type
　　 TForm1 = class(TForm)
　　 Button1: TButton; { 按此按鈕進行調用 }
　　 ADOConnection1: TADOConnection; { 本地數據庫連接，將傳遞給 DLL }
　　 procedure Button1Click(Sender: TObject);{ 調用 DLL}
　　 private
　　 public
　　 end;

　　var
　　 Form1: TForm1;

　　implementation

　　{$R *.DFM}

　　{ 外部聲明必須和 DLL中的參數列表一致，否則會運行時錯誤 }
　　procedure DoTest(H: THandle; { 傳遞句柄 }
　　 AConn: TADOConnection; { 傳遞數據庫連接 }
　　 S: string; { 傳遞文本信息 }
　　 N: Integer); { 傳遞數值信息 }
　　 cdecl; { 指定調用協議 }
　　 external ‘Project2.dll‘;{ 指定過程來源 }

　　{ 調用過程 }
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　 DoTest(Application.Handle,
　　 ADOConnection1,
　　 ‘Call OK‘,
　　 256);
　　end;