注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

Delphi开发DLL  

2013-10-20 18:26:32|  分类: delphi xe5 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Delphi开发DLL  

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调用参数。

二、释放 饔玫腄LL

  我们用LoadLibrary动态的调用了一个DLL,但要记住必须在使用完后手动地用FreeLibrary将该DLL释放掉,否则该DLL将一直占用内存直到您退出Windows或关机为止。


  现在我们来评价一下两种调用DLL的方法的优缺点。静态方法实现简单,易于掌握并且一般来说稍微快一点,也更加安全可靠一些;但是静态方法不能灵活地在运行时装卸所需的DLL,而是在主程序开始运行时就装载指定的DLL直到程序结束时才释放该DLL,另外只有基于编译器和链接器的系统(如delphi)才可以使用该方法。动态方法较好地解决了静态方法中存在的不足,可以方便地访问DLL中的函数和过程,甚至一些老版本DLL中新添加的函数或过程;但动态方法难以完全掌握,使用时因为不同的函数或过程要定义很多很复杂的类型和调用方法。对于初学者,笔者建议您使用静态方法,待熟练后再使用动态调用方法。


七、例1:在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

  评论这张
 
阅读(425)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017