Delphi编写动态连接库DLL

这是转贴的一篇文章，是关于用Delphi编写DLL的，写得很好很完整，我把她转贴过来然后整理网上其它一些资料，稍作修改，留做自己的资料库，以后做项目的时候方便备查，呵呵

第一节、开使你的第一个DLL专案，步骤如下： 1）File->Close all->File->New﹝DLL﹞

集成环境自动生成代码如下:

//------------------------------------------------------

//自动产生Code如下 

//------------------------------------------------------



library Project2; 



uses 



  SysUtils, Classes; 



{$R *.RES} 



begin 



end.

2）加个Func进来：

//------------------------------------------------------ 

//切记：

//1）Library 的名字大小写没关系，可是DLL-Func的大小写就有关系了。

//在DLL-Func-Name写成MyMax与myMAX是不同的。如果写错了，立即的结果是你叫用到此DLL的AP根本开不起来。参数的大小写就没关系了。甚至不必同名。如原型中是 (X,Y:integer)但引 用时写成(A,B:integer)，那是没关系的。

//------------------------------------------------------ 

//切记：

//2）要再加个stdcall。

//书上讲，如果你是用Delphi写DLL，且希望不仅给Delphi-AP也希望BCB/VC-AP等使用的话，那你最好加个Stdcall ; 的指示参数型态。Delphi有很多种它自己的变量型态，这些当然不是DLL所喜欢的 ，Windows/DLL的母语应该是C。所以如果要传进传出DLL的参数，我们尽可能照规矩来用。这两者写起来，后者会麻烦不少。如果你对C不熟的话，那也没关系。我们以后再讲。

//------------------------------------------------------



library Project2; 

uses 

  SysUtils, 

  Classes; 



        Function MyMax ( X , Y : integer ) : integer ; stdcall ; 

        begin 

        if X > Y then 

            Result := X 

        else 

            Result := Y ; 

        end ; 



{$R *.RES} 



begin 

end. 

//------------------------------------------------------ 
//切记：1）Library 的名字大小写没关系，可是DLL-Func的大小写就有关系了。在DLL-Func-Name写成MyMax与myMAX是不同的。如果写错了，立即的结果是你叫用到此DLL的AP根本开不起来。参数的大小写就没关系了。甚至不必同名。如原型中是 (X,Y:integer)但引 用时写成(A,B:integer)，那是没关系的。 
//切记：2）要再加个stdcall。书上讲，如果你是用Delphi写DLL，且希望不仅给Delphi-AP也希望BCB/VC-AP等使用的话，那你最好加个Stdcall ; 的指示参数型态：Delphi有很多种它自己的变量型态，这些当然不是DLL所喜欢的 ，Windows/DLL的母语应该是C。所以如果要传进传出DLL的参数，我们尽可能照规矩来用。这两者写起来，后者会麻烦不少。如果你对C不熟的话，那也没关系。我们以后再讲。
//------------------------------------------------------ 

library Project2; 
uses 
  SysUtils, 
  Classes; 

        Function MyMax ( X , Y : integer ) : integer ; stdcall ; 
        begin 
        if X > Y then 
            Result := X 
        else 
            Result := Y ; 
        end ; 

{$R *.RES} 

begin 
end. 

3）将这些可共享的Func送出DLL，你还要加个Exports才行。让外界﹝就是你的Delphi-AP啦﹞使用。

{$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后加 //MyTestDLL.dll为你前时写的DLL项目名字 //DLL名字大小写没关系。不过记得要加 extension的 .DLL。 //在Win95或NT，是不必加 extension，但这两种OS，可能越来越少了吧。 //所以要加extension欧。 //------------------------------------------------------

Function MyMax ( X , Y : integer ) : integer ; stdcall ; external 'MyTestDLL.dll' ;

 

//------------------------------------------------------

//自动产生Code如下 

//------------------------------------------------------



library Project2; 



uses 



  SysUtils, Classes; 



{$R *.RES} 



begin 



end.