编程入门网-用Delphi制作DLL的方法
您的位置：&&
用Delphi制作DLL的方法
文章来源：csdn 作者：FlyHope2005
　一 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);
　　 dwReason参数有四种类型：
　　 DLL_PROCESS_ATTACH:进程进入时
　　 DLL_PROCESS_DETACH进程退出时
　　 DLL_THREAD_ATTACH 线程进入时
　　 DLL_THREAD_DETACH 线程退出时
　　 在初始化部分写:
　　DLLProc := @DLLEnterP
　　 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);Fexternal'yproject_dll.dll';
　　 3)调用时传过去的参数类型最好也与windows c++一样。
　　 4)调用时DLL必须在windows搜索路径中，顺序是：当前目录；Path路径；widows\windows\ssystem32;
　　六 调用动态载入
　　 1 .建立一种过程类型[如果你对过程类型的变量只是一个指针的本质清楚的话，你就知道是怎么回事了]。如：
　　 mypointer=procedure(form:Tform);F
　　 Hinst:T
　　 showform:
　　 begin
　　 Hinst:=loadlibrary('yproject_dll');//Load一个Dll,按文件名找。
　　 showform:=getprocaddress(Hinst,'showform');//按函数名找，大小写敏感。如果你知道自动化对象的本质就清楚了。
　　 showform(application.mainform);//找到函数入口指针就调用。
　　 Freelibrary(Hinst);
　　 七 .在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):stdcall
　　 Form1: TForm1;
　　 ptr:PLongI
　　 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);//用参数建立
备注：参数是主调程序的Application.MainForm
　九 .示例：
　　 DLL源代码：
　　library Project2;
　　 SysUtils,
　　 Classes,
　　 Dialogs,
　　 Forms,
　　 Unit2 in 'Unit2.pas' {Form2};
　　{$R *.RES}
　　 ccc: P
　　procedure OpenForm(mainForm:TForm);
　　 Form1: TForm1;
　　 ptr:PLongI
　　 begin
　　 ptr:=@(Application.MainForm);
　　 ptr^:=LongInt(mainForm);
　　 Form1:=TForm1.Create(mainForm);
　　procedure InputCCC(Text: Pchar);
　　 begin
　　 ccc := T
　　procedure ShowCCC;
　　 begin
　　 ShowMessage(String(ccc));
　　exports
　　 OpenF
　　 InputCCC,
　　 ShowCCC;
　　 begin
　　 调用方源代码：
　　unit Unit1;
　　interface
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　 TForm1 = class(TForm)
　　 Button1: TB
　　 Button2: TB
　　 Edit1: TE
　　 procedure Button1Click(Sender: TObject);
　　 procedure Button2Click(Sender: TObject);
　　 private
　　 { Private declarations }
　　 public
　　 { Public declarations }
　　 Form1: TForm1;
　　implementation
　　{$R *.DFM}
　　 procedure OpenForm(mainForm:TForm);External'project2.dll';
　　 procedure ShowCCC;External'project2.dll';
　　 procedure InputCCC(Text: Pchar);External'project2.dll';
　　procedure TForm1.Button1Click(Sender: TObject);
　　 Text: P
　　 begin
　　 Text := Pchar(Edit1.Text);
　　 // OpenForm(Application.MainForm);//为了调MDICHILD
　　 InputCCC(Text);//为了实验DLL中的全局变量是否在各个应用程序间共享
　　procedure TForm1.Button2Click(Sender: TObject);
　　 begin
　　 ShowCCC;//这里表明WINDOWS 32位应用程序DLL中的全局变量也是在应用程序地址空间中，16位应用程序或许不同，没有做实验。
　　十 Delphi制作的Dll与其他语言的混合编程中常遇问题：
　　 1 .与PowerBuilder混合编程
　　 在定义不定长动态数组方面在函数退出清理堆栈时老出现不可重现的地址错，原因未明，大概与PB的编译器原理有关，即使PB编译成二进制代码也如此。
Copyright&
Powered by 编程入门网 All Rights Reserved. |如何用DELPHI制作DLL动态库方法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
如何用DELPHI制作DLL动态库方法
上传于|0|0|暂无简介
阅读已结束，如果下载本文需要使用2下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩9页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢&>&&>&&>&&>&DLL动态链接库的实现及调用（VC++，Delphi）
DLL动态链接库的实现及调用（VC++，Delphi）
上传大小：2.4MB
该压缩包包括：1.动态链接库(DLL)的编译实例，包括_cdecl和stdcall两种常见函数调用约定的实现，并且解决了名字修改问题，在实例代码中有详细的说明！2.针对不同的函数调用约定，以及动态调用DLL库和静态调用DLL库分别提供了调用实例的源代码和程序！3.压缩包中包括VC++调用DLL的实例源码和Delphi调用DLL的实例源码和说明(利用前面VC++生成的DLL)！4.其中VC++调用DLL实例中还简单说明了计算string的长度，比较，大小写转换等功能实现的方法！...展开收缩
综合评分：4（2位用户评分）
收藏（(3)）
所需积分：0
下载次数：41
审核通过送C币
创建者：frank_
创建者：qq_
创建者：albertbush
课程推荐相关知识库
上传者其他资源上传者专辑
操作系统热门标签
VIP会员动态
android服务器底层网络模块的设计方法
所需积分：0
剩余积分：720
您当前C币：0
可兑换下载积分：0
兑换下载分：
兑换失败，您当前C币不够，请先充值C币
消耗C币：0
你当前的下载分为234。
DLL动态链接库的实现及调用（VC++，Delphi）
会员到期时间：
剩余下载次数：
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：Delphi中动态链接库两种调用方式的比较
Delphi中动态链接库两种调用方式的比较
一、动态链接库的概念
动态链接库（Dynamic Link Library，缩写为DLL）是一个可以被其它应用程序共享的程序模块，其中封装了一些可以被共享的例程和资源。动态链接库文件的扩展名一般是dll，也有可能是drv、sys和fon，它和可执行文件（exe）非常类似，区别在于DLL中虽然包含了可执行代码却不能单独执行，而应由Windows应用程序直接或间接调用。
动态链接是相对于静态链接而言的。所谓静态链接是指把要调用的函数或者过程链接到可执行文件中，成为可执行文件的一部分。换句话说，函数和过程的代码就在程序的exe文件中，该文件包含了运行时所需的全部代码。当多个程序都调用相同函数时，内存中就会存在这个函数的多个拷贝，这样就浪费了宝贵的内存资源。而动态链接所调用的函数代码并没有被拷贝到应用程序的可执行文件中去，而是仅仅在其中加入了所调用函数的描述信息（往往是一些重定位信息）。仅当应用程序被装入内存开始运行时，在Windows的管理下，才在应用程序与相应的DLL之间建立链接关系。当要执行所调用DLL中的函数时，根据链接产生的重定位信息，Windows才转去执行DLL中相应的函数代码。
一般情况下，如果一个应用程序使用了动态链接库，Win32系统保证内存中只有DLL的一份复制品，这是通过内存映射文件实现的。DLL首先被调入Win32系统的全局堆栈，然后映射到调用这个DLL的进程地址空间。在Win32系统中，每个进程拥有自己的32位线性地址空间，如果一个DLL被多个进程调用，每个进程都会收到该DLL的一份映像。与16位Windows不同，在Win32中DLL可以看作是每个进程自己的代码。
二、动态链接库的优点
1． 共享代码、资源和数据
使用DLL的主要目的就是为了共享代码，DLL的代码可以被所有的Windows应用程序共享。
2． 隐藏实现的细节
DLL中的例程可以被应用程序访问，而应用程序并不知道这些例程的细节。
3． 拓展开发工具如Delphi的功能
由于DLL是与语言无关的，因此可以创建一个DLL，被C++、VB或任何支持动态链接库的语言调用。这样如果一种语言存在不足，就可以通过访问另一种语言创建的DLL来弥补。
三、动态链接库的实现方法
1． Load-time Dynamic Linking
这种用法的前提是在编译之前已经明确知道要调用DLL中的哪几个函数，编译时在目标文件中只保留必要的链接信息，而不含DLL函数的代码；当程序执行时，利用链接信息加载DLL函数代码并在内存中将其链接入调用程序的执行空间中，其主要目的是便于代码共享。
2． Run-time Dynamic Linking
这种方式是指在编译之前并不知道将会调用哪些DLL函数，完全是在运行过程中根据需要决定应调用哪个函数，并用LoadLibrary和GetProcAddress动态获得DLL函数的入口地址。
四、DLL的两种调用方式在Delphi中的比较
编写DLL的目的是为了输出例程供其他程序调用，因此在DLL的工程文件中要把输出的例程用Exports关键字引出。在调用DLL的应用程序中，需要声明用到的DLL中的方法，声明格式要和DLL中的声明一样。访问DLL中的例程有静态调用和动态调用两种方式。静态调用方式就是在单元的Interface部分用External指示字列出要从DLL中引入的例程；动态调用方式就是通过调用Windows的API包括LoadLibrary函数、GetProcAddress函数以及FreeLibrary函数动态的引入DLL中的例程。
静态调用方式所需的代码较动态调用方式所需的少，但存在着一些不足，一是如果要加载的DLL不存在或者DLL中没有要引入的例程，这时候程序就自动终止运行；二是DLL一旦加载就一直驻留在应用程序的地址空间，即使DLL已不再需要了。动态调用方式就可解决以上问题，它在需要用到DLL的时候才通过LoadLibrary函数引入，用完后通过FreeLibrary函数从内存中卸载，而且通过调GetProcAddress函数可以指定不同的例程。最重要的是，如果指定的DLL出错，至多是API调用失败，不会导致程序终止。以下将通过具体的实例说明说明这调用方式的使用方法。
1． 静态调用方式
示例程序创建了一个DLL，其中仅包含一个求两个整数的和的函数，在主程序中输入两个整数，通过调用该DLL，即可求出两个整数的和。
该DLL的程序代码如下：
library AddN　　uses　　SysUtils,　　C
{$R *.res}
function AddNumber(Num1,Num2:integer): file://定义求和函数　　begin　　result:=Num1+Num2;　　　　exports　　AddN file://引出求和函数　　begin　　end.　　&　　主程序在调用该DLL时，首先在interface部分声明要调用的函数：
function AddNum(Num1,Num2:integer):external 'AddNum.dll'　　name 'AddNumber';&　　然后在按钮控件的事件中写入如下代码：
procedure TForm1.Button1Click(Sender: TObject);　　var　　Number1,Number2: 　　Sum:　　begin　　Number1:=strtoint(Edit1.Text);　　Number2:=strtoint(Edit2.Text);　　Sum:=AddNum(Number1,Number2); file://调用求和函数计算结果　　Edit3.Text:=inttostr(Sum);　　&　　2．动态调用方式
这个示例程序创建了一个显示日期的DLL，其中包含一个窗体。
程序中定义了一个ShowCalendar函数，返回在这个窗体中设定的日期。函数定义如下：
function ShowCalendar(AHandle: TH ACaption: String): TDateT　　var　　DLLForm: TDLLF　　begin　　Application.Handle := AH　　DLLForm := TDLLForm.Create(Application); file://创建并显示窗体　　try　　DLLForm.Caption := AC　　DLLForm.ShowM file://显示方式为模式化　　Result := DLLForm.calDLLCalendar.CalendarD file://返回设定日期　　finally　　DLLForm.F file://用完后卸载该窗体　　　　&　　在DLL的工程文件中用exports ShowC 语句引出该函数。下面通过一个简单的应用程序测试一下该DLL文件。新建一个工程文件，在窗体中放置一个Label控件和一个按钮控件，在按钮控件的OnClick事件中编写如下代码：
procedure TMainForm.Button1Click(Sender: TObject);　　var　　OneHandle : TH file://定义一个句柄变量　　begin　　OneHandle := LoadLibrary('Clendar.dll'); file://动态载入DLL，并返回其句柄　　try　　if OneHandle && 0 then file://如果载入成功则获取ShowCalendar函数的地址　　@ShowCalendar := GetProcAddress(OneHandle, 'ShowCalendar');　　if not (@ShowCalendar = nil) then　　file://如果找到该函数则在主窗体的Label1中显示DLL窗体中设定的日期　　Label1.Caption := DateToStr(ShowCalendar(Application.Handle, Caption))　　else　　RaiseLastWin32E　　finally　　FreeLibrary(OneHandle); file://调用完毕收回DLL占用的资源　　　　&　　从以上程序中可以看到DLL的动态调用方式比静态调用方式的优越之处。DLL例程在用到时才被调入，用完后就被卸载，大大减少了系统资源的占用。在调用LoadLibrary函数时可以明确指定DLL的完整路径，如果没有指定路径，运行时首先查找应用程序载入的目录，然后是Windows系统的System目录和环境变量Path设定的路径。
五、结束语
由于动态链接库可以实现代码和资源的共享，大大减少系统资源的占用，因此在当今的应用程序开发中起着非常重要的作用。Delphi是现今流行的应用软件开发工具，本文就如何在Delphi中使用动态链接库给出了一定程度上的阐述。
H3C认证Java认证Oracle认证
基础英语软考英语项目管理英语职场英语
.NETPowerBuilderWeb开发游戏开发Perl
二级模拟试题一级模拟试题一级考试经验四级考试资料
软件测试软件外包系统分析与建模敏捷开发
法律法规历年试题软考英语网络管理员系统架构设计师信息系统监理师
高级通信工程师考试大纲设备环境综合能力
路由技术网络存储无线网络网络设备
CPMP考试prince2认证项目范围管理项目配置管理项目管理案例项目经理项目干系人管理
职称考试题目
招生信息考研政治
网络安全安全设置工具使用手机安全
生物识别传感器物联网传输层物联网前沿技术物联网案例分析
Java核心技术J2ME教程
Linux系统管理Linux编程Linux安全AIX教程
Windows系统管理Windows教程Windows网络管理Windows故障
数据库开发Sybase数据库Informix数据库
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&