如何用Delphi编写dll文件

如何用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;