ephi编写调用有窗体有返回值的的实现方1.doc

PAGE delphi编写调用有窗体有返回值的dll的实现方法 本人使用的delphi是5.0版，用delphi编写dll工程很简单，在新建。。中就有创建Dll的选项。在编写DLL工程时，需要注意的包括，工程单元有很大差异，一个关键字是program ，一个关键字是library。dll工程单元中还包括 exports 子句，那些需要提供给其他主叫程序调用的过程，都需要包括在exports中（只是列出函数的名字，不需要参数表）。对于主叫方（调用dll的应用程序或者其他dll），则需要在调用之前进行外部声明，即external保留字指示的声明。 另外需要了解object pascal中有关调用协议的内容，在object pascal中对于过程或函数有以下五种调用协议： 指示字 参数传递顺序 参数清除者 参数是否使用寄存器 register 自左向右 被调例程 是 pascal 自左向右 被调例程 否 cdecl 自右向左 调用者 否 stdcall 自右向左 被调用例程 否 safecall 自右向左 被调用例程 否 这里的指示字就是在声明函数或过程时附加在例程标题之后的保留字，默认为register，即是 唯一使用 CPU寄存器的参数传递方式，也是传递速度最快的方式； pascal: 调用协议仅用于向后兼容，即向旧的版本兼容； 　cdecl: 多用于 C和 C++语言编写的例程，也用于需要由调用者清除参数的例程； 　stdcall: 和safecall主要用于调用Windows API 函数；其中safecall还用于双重接口。 现在以一个实例来说明一个用delphi编写的程序如何调用包含form窗体dll的程序。 Dll工程： library Project2; { Important note about DLL memory management: ShareMem must be the first unit in your librarys USES clause AND your projects (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. } uses SysUtils, Classes, Unit1 in Unit1.pas {Form1}; {$R *.RES} exports Execute name Execute;{过程来自于 Unit1} begin end. —————————————————————————————————————— unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Db, ADODB; type TForm1 = class(TForm) ADOcon: TADOConnection; Memo1: TMemo; private { Private declarations } public { Public declarations } end; function Execute(ApplicHandle: TApplication; MainHandle: THandle; AdoObj: TADOConnection; Ado