Delphi制作DLL

一 Dll的制作一般步骤­

二 参数传递­

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

四 全局变量的使用­

五 调用静态载入­

六 调用动态载入­

七 在DLL建立一个TForM­

八 在DLL中建立一个TMDIChildForM­

九 示例：­

十 Delphi制作的Dll与其他语言的混合编程中常遇问题：­

十一 相关资料­

­

一 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的入口。在此你可用你的函数替换了它的入口。但你的函数必须符合以下要求[其实就是一个回调函数]。如下：­

procedure DllEnterPoint(dwReason: DWORD);far;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中的声明一样。­

   如： showform(form:Tform);Far;external'yproject_dll.dll';­

3)调用时传过去的参数类型最好也与windows c++一样。­

4)调用时DLL必须在windows搜索路径中，顺序是：当前目录；Path路径；windows;widows/system;windows/ssystem32;­

­

六 调用动态载入­

1 建立一种过程类型（或者是一个Function）[如果你对过程类型的变量只是一个指针的本质清楚的话，你就知道是怎么回事了]。如：­

type­

   mypointer=procedure(form:Tform);Far;external;    //mypointer=function(form:Tform);Far;external;­

var­

  Hinst:Thandle;­

  showform:mypointer;­

begin­

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

   showform:=getprocaddress(Hinst,'showform');//按函数名找，大小写敏感。如果你知道自动化对象的本质就清楚了。­

  showform(application.mainform);//找到函数入口指针就调用。­

  Freelibrary(Hinst);­

end;­

­

七 在DLL建立一个TForM­

1 把你的Form Uses到Dll中，你的Form用到的关联的单元也要Uses进来[这是最麻烦的一点，因为你的Form或许Uses了许多特殊的单元或函数]­

2 传递一个Application参数，用它建立Form.­

­

八 在DLL中建立一个TMDIChildForM­

1 Dll中的MDIForm.FormStyle不用为fmMDIChild.­

2 在CreateForm后写以下两句：­

function ShowForm(mainForm:TForm):integer;stdcall­

var­

  Form1: TForm1;­

  ptr:PLongInt;­

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­

­

九 示例：­

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.­

­

调用方源代码：­

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);//为了调MDICHILD­

  InputCCC(Text);//为了实验DLL中的全局变量是否在各个应用程序间共享­

end;­

­

procedure TForm1.Button2Click(Sender: TObject);­

begin­

  ShowCCC;//这里表明WINDOWS 32位应用程序DLL中的全局变量也是在应用程序地址空间中，16位应用程序或许不同，没有做实验。­

end;­

­

十 Delphi制作的Dll与其他语言的混合编程中常遇问题：­

1 与PowerBuilder混合编程­

  在定义不定长动态数组方面在函数退出清理堆栈时老出现不可重现的地址错，原因未明，大概与PB的编译器原理有关，即使PB编译成二进制代码也如此。   ­

­

在DELPHI中编写DLL时，如果DLL有创建ADO对象要被调用函数开始处写：CoInitialize(nil);­

结束时写：CoUninitialize;­

如要返回字符串要用PChar，最好用PChar用out或var方式返回，PChar的内存分配和释放在调用函数处理：GetMem(p, Size);FreeMem(p);­

­

procedure CommonDLL(AHnd: THandle;  //AApp: TApplication;­

  ADllFileName: PChar;­

  AConnStr: PChar; AUserID: integer; ABillTypeID: integer);­

var­

  LPtr:PLongint;­

  strCon: widestring;­

  strDllFileName: string;­

begin­

  CoInitialize(nil);­

  strCon := StrPas(AConnstr);­

  strDllFileName := StrPas(ADllFileName);­

  try­

    Application.Handle := AHnd;­

    Screen := AScr;­

    LPtr := @Application.MainForm;­

    LPtr^ := Longint(AApp.MainForm);­

­

  finally­

  end;­

  CoUninitialize;­

end;­

­

­

在加载DLL时要保存原来的句柄，退出DLL时还原句柄：­

var­

  OldHnd: THandle;­

//  OldApp: TApplication;­

  OldScr: TScreen;­

­

procedure InitDll(dWseason: DWORD);­

begin­

  case dWseason of­

    DLL_PROCESS_ATTACH:­

      begin­

        OldHnd := Application.Handle;­

//        OldApp := Application;­

        OldScr := Screen;­

      end;­

    DLL_PROCESS_DETACH:­

      begin­

        Application.Handle := OldHnd;­

//        OldApp := GApplication;­

        OldScr := GScreen;­

      end;­

  end;­

end;­

­

begin­

  DllProc := @InitDll;­

  InitDll(DLL_PROCESS_ATTACH);­

end.­

­

­

在DLL被用函数中有创建窗体对象，一定要记得传Application或者Application.Handle。­

DLL中的窗体一般要用FormClass.Create(application)来创建比较好。­

­

我见过有DLL会传Screen对象到DLL，这个我不没具体了解为什么，也希望有知道朋友告诉我有一下传Screen对象有什么作用，有什么优缺点。­

  ­

­

传Screen是为了使主程序主窗体的MDIChildCount正常增加，­

否则，不管打开多少DLL中的MDIChild窗体，MDIChildCount都不会增加。­

第一章 为什么要使用动态链接库（DLL） top ­

提起DLL您一定不会陌生，在Windows中有着大量的以DLL为后缀的文件，它们是保证Windows正常运行和维护升级的重要保证。（举个例子，笔者的Win95 System目录下尽有500多个DLL文件。）其实，DLL是一种特殊的可执行文件。说它特殊主要是因为一般它都不能直接运行，需要宿主程序比如*.EXE程序或其他DLL的动态调用才能够使用。简单的说，在通常情况下DLL是经过编译的函数和过程的集合。 ­

使用DLL技术主要有以下几个原因： ­

­

一、减小可执行文件大小。 ­

DLL技术的产生有很大一部分原因是为了减小可执行文件的大小。当操作系统进入Windows时代后，其大小已经达到几十兆乃至几百兆。试想如果还是使用DOS时代的单执行文件体系的话一个可执行文件的大小可能将达到数十兆，这是大家都不能接受的。解决的方法就是采用动态链接技术将一个大的可执行文件分割成许多小的可执行程序。 ­

­

二、实现资源共享。 ­

这里指的资源共享包括很多方面，最多的是内存共享、代码共享等等。早期的程序员经常碰到这样的事情，在不同的编程任务中编写同样的代码。这种方法显然浪费了很多时间，为了解决这个问题人们编写了各种各样的库。但由于编程语言和环境的不同这些库一般都不能通用，而且用户在运行程序时还需要这些库才行，极不方便。DLL的出现就像制定了一个标准一样，使这些库有了统一的规范。这样一来，用不同编程语言的程序员可以方便的使用用别的编程语言编写的DLL。另外，DLL还有一个突出的特点就是在内存中只装载一次，这一点可以节省有限的内存，而且可以同时为多个进程服务。 ­

­

三、便于维护和升级。 ­

细心的朋友可能发现有一些DLL文件是有版本说明的。（查看DLL文件的属性可以看到，但不是每一个DLL文件都有）这是为了便于维护和升级。举个例子吧，早期的Win95中有一个BUG那就是在闰年不能正确显示2月29日这一天。后来，Microsoft发布了一个补丁程序纠正了这个BUG。值得一提的是，我们并没有重装Win95，而是用新版本的DLL代替了旧版本的DLL。（具体是哪一个DLL文件笔者一时想不起来了。）另一个常见的例子是驱动程序的升级。例如，著名的DirectX就多次升级，现在已经发展到了6.0版了。更妙的是，当我们试图安装较低版本的DLL时，系统会给我们提示，避免人为的操作错误。例如我们升级某硬件的驱动程序时，经常碰到Windows提示我们当前安装的驱动程序比原来的驱动程序旧。 ­

­

四、比较安全。 ­

这里说的安全也包括很多方面。比如，DLL文件遭受病毒的侵害机率要比普通的EXE文件低很多。另外，由于是动态链接的，这给一些从事破坏工作的“高手”们多少带来了一些反汇编的困难。 ­

­

第二章 在Delphi中编写DLL­

­

注意：在这里笔者假定读者使用的是Delphi 3或Delphi 4开场白说了那么多，总该言归正传了。编写DLL其实也不是一件十分困难的事，只是要注意一些事项就够了。为便于说明，我们先举一个例子。 ­

­

library Delphi; ­

­

uses ­

SysUtils, ­

Classes; ­

­

function TestDll(i:integer):integer;stdcall; ­

begin ­

Result:=i; ­

end; ­

­

exports ­

TestDll; ­

­

begin ­

end. ­

­

上面的例子是不是很简单？熟悉Delphi的朋友可以看出以上代码和一般的Delphi程序的编写基本是相同的，只是在TestDll函数后多了一个stdcall参数并且用exports语句声明了TestDll函数。只要编译上面的代码，就可以得到一个名为Delphi.dll的动态链接库。现在，让我们来看看有哪些需要注意的地方。 一、在DLL中编写的函数或过程都必须加上stdcall调用参数。在Delphi 1或Delphi 2环境下该调用参数是far。从Delphi 3以后将这个参数变为了stdcall，目的是为了使用标准的Win32参数传递技术来代替优化的register参数。忘记使用stdcall参数是常见的错误，这个错误不会影响DLL的编译和生成，但当调用这个DLL时会发生很严重的错误，导致操作系统的死锁。原因是register参数是Delphi的默认参数。 ­

­

二、所写的函数和过程应该用exports语句声明为外部函数。 ­

正如大家看到的，TestDll函数被声明为一个外部函数。这样做可以使该函数在外部就能看到，具体方法是单激鼠标右键用“快速查看（Quick View）”功能查看该DLL文件。（如果没有“快速查看”选项可以从Windows CD上安装。）TestDll函数会出现在Export Table栏中。另一个很充分的理由是，如果不这样声明，我们编写的函数将不能被调用，这是大家都不愿看到的。 ­

­

三、当使用了长字符串类型的参数、变量时要引用ShareMem。 ­

Delphi中的string类型很强大，我们知道普通的字符串长度最大为256个字符，但Delphi中string类型在默认情况下长度可以达到2G。（对，您没有看错，确实是两兆。）这时，如果您坚持要使用string类型的参数、变量甚至是记录信息时，就要引用ShareMem单元，而且必须是第一个引用的。既在uses语句后是第一个引用的单元。如下例： ­

uses ­

ShareMem, ­

SysUtils, ­

Classes; ­

还有一点，在您的工程文件（*.dpr）中而不是单元文件（*.pas）中也要做同样的工作，这一点Delphi自带的帮助文件没有说清楚，造成了很多误会。不这样做的话，您很有可能付出死机的代价。避免使用string类型的方法是将string类型的参数、变量等声明为Pchar或ShortString（如：s:string[10]）类型。同样的问题会出现在当您使用了动态数组时，解决的方法同上所述。 ­