| Delphi中DLL的创建和使用 | 您所在的位置：网站首页 › 如何新建dll文件 › Delphi中DLL的创建和使用 |
|
参考：http://blog.csdn.net/ninetowns2008/article/details/6311663 结合这篇博客：http://www.cnblogs.com/xumenger/p/4372289.html 再结合：http://blog.csdn.net/lailai186/article/details/8770487
1.DLL简介；2.调用DLL；3.创建DLL；4.两个技巧；5.初始化；6.例外处理
1.DLL简介 DLL是Dynamic-Link Libraries（动态链接库）的缩写，库里面是一些可执行的模块以及资源（如：位图、图标……）。可以认为DLL和EXE基本上是一回事，只是DLL不能直接执行，而必须通过应用程序或者其他DLL调用。 DLL为应用程序间的资源共享提供了方便，同时也是多种语言混合编程的重要手段。由此可见学习使用DLL是Windows程序员必须掌握的一项重要技术
2.如何调用DLL 在Delphi中有两种方法调用DLL中的函数和过程，即外部声明或动态加载 外部声明 在Delphi中外部声明时访问外部例程最容易和最常用的方式，有两种声明方式：通过名字、通过索引号。举例如下：在MYDLL.DLL中有两个函数和一个过程，则其外部声明可以写成 function test1: Integer; external 'mydll'; //或者external 'mydll.dll'; //直接通过名称调用test1（注意名称大小写敏感） function test11: Integer; external 'mydll' name 'test1'; //通过名称调用test1，在程序中使用新名称（原名称仍然大小写敏感） procedure test2; external 'mydll' index 1; //通过索引号调用TEST2。程序中可以使用与DLL中不一样的名称使用外部声明的缺点是程序启动时如果找不到mydll.dll将无法运行，即使没有调用其中的模块。动态加载的方法可以避免这种情况 动态加载 通过调用Windows API中的相关函数，将DLL调入内存并获得指向函数或过程的指针，执行完模块后释放内存。除了节约内存之外，这种方法的很大的优点是能处理找不到dll或者装入过程中出错的情况。这样即使某个dll有问题，应用程序的其他部分仍然能够正常运行。动态加载的例子如下 var hDll : THandle; Test1 : function : integer; begin hDll := LoadLibrary('mydll.dll'); //注意LoadLibrary函数的参数是一个PChar类型的，不是string，该参数是指要加载的DLL的DLL名 if hDll < 32 then exit; //如果Dll无法记载则跳出 @Test1 := GetProcAddress(hDll, MakeIntResource(1)); //取得mydll.dll中的第一个函数的地址。 //取得mydll 中的第一个函数的地址 .... FreeLibrary(hDll); end;
3.用Delphi创建DLL 用Delphi创建一个DLL是十分简单的，首先需要新建一个DLL的Project（如果使用Delphi3.0则可以在File->New对话框中选择DLL），当然也可以自己写，现在这个Project是这样的 library Project1; uses SysUtils, Classes; begin end.当然这是一个空的DLL，现在让我们来加入一个函数，让它成为我们的第一个可以使用的DLL。完成后的文件是这样的 library dll1; uses SysUtils, Classes; function Test1(a, b: Integer): Integer; begin Result := a+b; end; exports Test1 index 1; begin end.在这个DLL里我们声明了一个加法函数，然后用exports语句输出它，只有被输出的函数或过程才能被其他程序调用。exports语句的语法是 exports 函数名 [index ];index是为函数手工指定索引号，以便其他程序确定函数地址；也可以不指定，如果没有使用index 关键字，Delphi将按照exports 后的顺序从1开始自动分配索引号。现在我们可以调用这个DLL了，下面给出一个实例，运行后form1 的标题将变成 1+2=3 //声明部分 function Test1(a, b: Integer): Integer; external 'dll1'; //注意此处是大小写敏感的 //运行部分 form1.caption := '1+2=' + IntToStr(test1(1,2));
4.使用DLL的两个技巧 把现有的项目改成DLL 学会制作DLL之前，大多数程序员手中都积攒下来不少已经完成的项目，如果现在需要把这些项目做成DLL而不是可执行文件，重新写一遍显然是没有必要的，只要按照下面的步骤对已有的项目文件进行修改就可以了 (1)打开项目文件（.DPR），删除单元底部 begin 和 end. 之间的所有语句（一般情况下这些语句是有Delphi 自动生成的）。如果项目中没有用到Form，则从uses 子句中删除表单单元（Form），然后转向(2) (2)对项目进行修改，令除了 Main Form之外的所有Form 都是动态生成的，这样我们只要在DLL 输出的一个函数或过程中生成Main Form，即可调用执行整个项目。我们假设Main Form的名字是MyMainForm，项目的名字是MyDll，现在在单元底部的begin语句加入之前加入一个过程，过程的名字是RunMyDll，这个过程动态生成Main Form，从而运行整个项目。RunMyDll的写法如下 procedure InitDll2; begin Application.CreateForm(TMyMainForm, MyMainForm); MyMainForm.Show; //如果MyMainForm不可视就不用加这一句 end;(3)如果想要输出其他函数或者过程，而原来的项目中没有，则可以在单元底部的begin语句之前加上这些代码 (4)在单元底部的begin 语句之前加上一个 exports小节，然后写出所有想输出的函数或过程的名字（最好指定索引号）。注意如果执行了第(2)补，一定要输出 RunMyDll的过程 (5)将项目文件顶部的保留字program改为library (6)编译 现在就可以在其他程序中调用本项目中的函数和过程了，只要执行 RunMyDll 就可以执行这个项目，和执行原来的可执行文件一模一样 创建一个引入文件 如果DLL比较复杂，则为它的声明专门创建一个引入程序单元将是十分有意义的，并且会使这个DLL变得更加容易维护。引入单元的格式如下 unit MyInport; {Import unit for MyDll.Dll} interface procedure RunMyDll; implementation procedure RunMyDll; external 'MyDll' index 1; end.这样以后想要使用MyDll的例程时，只要简单的在程序模块中的uses子句中加上 MyImport就可以了
5.DLL的初始化和善后工作 一般的DLL不需要做初始化和善后工作。但是如果你想让你的DLL在被载入时先设定一些初始设定，或者退出时释放资源，则可以有三种方法达到目的 利用在 Unit 的Initialization 与 Finalization这两个小节 可以在Unit的这两个小节里安排Unit 的进入和退出，但是 Program 与 Library并没有这两个部分，所以只能写在Unit里面 利用 ExitProc 变量 在Library 的begin .. end.中间是可以写代码的，这里可以放置DLL初始化代码。如果想要做善后工作，则可以利用ExitProc 变量。我们首先在初始化代码中把 ExitProc中包含的默认的善后过程地址保存下来，然后把自定义的过程的地址赋给他，这样DLL退出时就会执行我们制定的程序；在自定义的过程的最后，把ExitProc恢复原来的默认值，以便DLL 能股继续完成原来默认的善后工作。下面是示例 library MyDLL; ... OldExitProc : pointer; ... procedure MyExitProc; begin ...//善后程序 ExitProc := OldExitProc; end; ... begin ...//初始化程序 OldExitProc := ExitProc; ExitProc := @MyExitProc; end.以上的代码同样是关于Delphi的指针和函数指针的一个很好的应用的例子，值得研究一下 利用DllProc变量 和ExitProc 一样，DllProc也是一个在Systemd单元里预定义的变量。在使用DLLProc时，必须先写好一个具有以下原型的程序： 骗人哦测读热 DLLHandler(Reason : Integer); 并在Library 的 begin ... end.之间，将这个DLLHandle程序的执行地址赋值给DLLProc，这时候就可以根据参数Reason的值分别作出相应的处理。另外注意将 windows单元加入uses子句中。示例 library TestDLL; ... procedure MyDLLHandler(Reason : Integer); begn case Reason of DLL_Process_Attach; //整个DLL的初始化代码 DLL_Process_Detach; //整个DLL的善后程序 DLL_Thread_Attach; //当主叫端开始一个Thread时 DLL_Thread_Detach; //当主叫端终止一个Thread时 end; end; ... begin .. //初始化代码 DLLProc := @MyDLLHandler; MyDLLHandler(DLL_Process_Attach); end;由上例可知，当DLL支持多进程的处理是，DLLProc非常适合使用
6.DLL中的例外处理 在用Delphi制作DLL的时候，在例外处理方面请注意以下三点 如果uses子句中没有SysUtils的话，无法使用例外处理 如果DLL中没有对例外进行处理的话，这个例外会向外传导到主叫端的应用程序。如果该应用程序也是Delphi写的话，这个例外可以由主叫端进行处理 承上，如果主叫端的程序不是Delphi 或Borland C++ Builder，则例外以作业系统错误的形式来处理，例外编号是$0EEDFACE，ExceptionInformation中地第一个进入点是例外发生的地址，第二个进入点是指向Delphi 例外物件的引用 |
| CopyRight 2018-2019 实验室设备网 版权所有 |