delphi dll 使用

dll===================

library qiu_dll;

uses
  SysUtils,
  Classes;


//再在Uses下声明一个函数：
function MyMax(X, Y: integer): integer; stdcall;
begin
  if X > Y then
    Result := X
  else
    Result := Y + 1;
end;


{$R *.res}

exports
  MyMax;  // 必须要有这句才能输出

begin
end.

使用=======================

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    btn_1: TButton;
    procedure btn_1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form2: TForm2;

function MyMax(X, Y: integer): integer; stdcall; external 'qiu_dll.dll';

implementation

{$R *.dfm}

  //在Form,interface,var后加

procedure TForm2.btn_1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(MyMax(30, 99)));
end;

end.

可以按 Ctrl-F9编译了。此时可不要按F9。DLL不是EXE┌不可单独执行的，如果你按F9，会有ErrorMsg的。这时如果DLL有Error，请修正之。再按Ctrl-F9。此时可能有Warning，不要紧，研究一下，看看就好。再按Ctrl-F9，此时就『Done , Compiled 』。同目录就会有个 *.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的方法
一 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 .建立一种过程类型[如果你对过程类型的变量只是一个指针的本质清楚的话，你就知道是怎么回事了]。如：
　　type
　 　mypointer=procedure(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.Mai