DelphiDll创建与调用资源-CSDN文库

共21个文件

dll：3个

cfg：2个

dof：2个

需积分: 10 162 浏览量 2008-10-29 08:57:50 上传评论收藏 289KB RAR 举报

DelphiDLL创建与调用是Windows应用程序开发中的一个重要技术，它允许我们把一些常用功能封装到一个DLL（Dynamic Link Library）文件中，然后在多个应用程序之间共享这些代码，以提高程序的复用性和效率。本篇文章将深入探讨如何在Delphi环境中创建DLL，并在其他程序中调用其函数。我们需要了解DLL的基本概念。DLL是一种可执行文件格式，它包含可由多个程序同时使用的代码和数据。Windows操作系统广泛支持DLL，因为它们可以减少内存占用，提高系统性能，并方便代码更新。 **创建Delphi DLL** 1. **新建项目**：打开Delphi IDE，选择"File" -> "New" -> "VCL Forms Application"。由于DLL通常不需要图形用户界面，所以这里可以简单创建一个空白项目。 2. **添加接口单元**：为了使其他应用程序能够访问DLL中的函数，我们需要定义一个接口单元。在项目中添加一个新的单元文件，声明你打算公开的函数和类型。 ```delphi unit MyDllInterfaces; interface uses System.SysUtils; type TMyDll = class public class function HelloWorld: string; stdcall; end; implementation class function TMyDll.HelloWorld: string; begin Result := 'Hello, World from DLL!'; end; end; ``` 3. **实现DLL主单元**：在主单元中实现DLL入口点，导入接口单元，并实现其中的函数。 ```delphi unit MyDll; interface uses MyDllInterfaces; implementation {$IFDEF VER250} {$EXTERNALSYM DllEntryPoint} {$ENDIF} function DllEntryPoint(hinst: HINST; reason: DWORD; reserved: Pointer): Integer; stdcall; begin Result := 1; end; exports TMyDll.HelloWorld; begin end. ``` 4. **编译DLL**：现在，你可以编译这个项目，生成名为`TestDll.dll`的动态链接库文件。 **调用Delphi DLL** 在另一个Delphi项目中调用这个DLL，你需要完成以下步骤： 1. **导入DLL**：在项目中引入`System.LoadLibrary`和`System.GetProcAddress`这两个函数，用于加载和获取DLL函数地址。 2. **声明DLL接口**：在新项目的接口部分，声明DLL中的函数，与`MyDllInterfaces`单元中的声明保持一致。 ```delphi uses System.SysUtils, MyDllInterfaces; // 如果你有接口单元的话 var MyDllInstance: TMyDll; function HelloWorld: string; stdcall; external 'TestDll.dll'; ``` 3. **加载和调用DLL**：在程序运行时，先使用`LoadLibrary`加载DLL，然后使用`GetProcAddress`获取函数地址。之后，你可以像调用普通函数一样调用DLL中的函数。 ```delphi procedure TForm1.Button1Click(Sender: TObject); begin if LoadLibrary('TestDll.dll') <> 0 then begin @HelloWorld := GetProcAddress(HInstance, 'HelloWorld'); if Assigned(HelloWorld) then Memo1.Lines.Add(HelloWorld); FreeLibrary(HInstance); end else ShowMessage('Failed to load DLL.'); end; ``` 通过以上步骤，你已经成功地创建了一个Delphi DLL，并在另一个Delphi程序中调用了它的函数。这个过程也可以应用到更复杂的场景，例如数据处理、图形渲染或者其他特定的功能模块。记住，关键在于正确地定义和导出DLL接口，以及在调用端正确地加载和使用这些接口。在实际项目中，你可能还需要处理线程安全、错误处理和资源管理等问题。

资源详情

资源评论

资源推荐

收起资源包目录

TestDll.rar （21个子文件）

TestDll

TestDll.~dpr 844B

TestDll.dof 2KB

TestDll.cfg 406B

UseDll

UseDll.cfg 406B

Main.ddp 51B

Main.dfm 1KB

UseDll.exe 376KB

Project1.dll 86KB

Main.dcu 4KB

Main.~ddp 51B

UseDll.res 876B

TestDll.dll 86KB

Main.pas 778B

UseDll.dof 2KB

Main.~dfm 1KB

Main.~pas 778B

UseDll.dpr 184B

TestDll.dll 86KB

Readme.txt 7KB

TestDll.dpr 852B

TestDll.res 876B

delphi创建DLL动态链接库2008-03-24 16:31Windows 的执行文件可以划分为两种形式程序和动态连接库（DLLs）。一般程序运行是用.EXE文件，但应用程序有时也可以调用存储在DLL 中的函数。当我们调用Windows 中的API 函数的时候，实际上就是调用存储在DLL 中的函数。在如下几种情况下，调用DLL 是合理的： 1）不同的程序使用相同的DLL ，这样只需要将DLL 在内存中装载一次，节省了内存的开销。 2）当某些内容需要升级的时候，如果使用DLL 只需要改变 DLL 就可以了，而不需要把整个程序都进行变动。 3）由于DLL 是独立于语言的，所以，当不同语言习惯的人共同开发一个大型项目的时候，使用DLL 便于程序系统的交流，当然，Delphi开发的DLL 也可以在诸如Visual BASIC，C++ 等系统中使用。下面通过几个例子，说明Delphi开发动态连接库的方法和规范。第一节动态连接库的构建和调用方法一、动态连接库构建 File---New---Other---DLL Wizard 这就创建了一个动态连接库的基本模块 library Project2; uses SysUtils, Classes; {$R *.res} begin end. 把工程名改为Mydll，并写入必要的函数 library mydll; uses SysUtils,Classes,Dialogs,windows; function Triple(N:Integer):integer;stdcall; begin result:=N+3; end; function Double(N:Integer):integer;stdcall; begin result:=N+2; end; function Triple1(N:Integer):integer;stdcall; begin showmessage('计算N+3'); result:=N+3; end; function Double1(N:Integer):integer;stdcall; begin messagebox(0,'计算N+2','计算N+2',mb_ok); result:=N+2; end; exports Triple name 'Tr', Double name 'Do', Triple1 name 'TrM', Double1 name 'DoM'; Triple,Double,Triple1,Double1; {$R *.RES} begin end. 其中函数：Triple：把传入值加三 Double：把传入值加二 Triple1：把传入值加三并显示提示 Double1：把传入值加二并显示提示从这个例子中可以看出DLL 程序的几个规则： 1）在DLL 程序中，输出函数必须被声明为stdcall，以使用标准的Win32 参数传递技术来代替优化的Register。（说明：在Delphi中Register方式是缺省的调用约定，这个约定尽量采用寄存器来传递参数，传递次序从左到右，最多可用到3 个CPU 的寄存器，如果参数多于3 个，剩下的就通过栈来传送，使用寄存器传送可保证参数传递的速度最快。而stdcall 方式是通过Windows 的标准调用来传递参数，传递秩序从左到右，这种方式适合调用Windows 的API ，在DLL 中，当然要使用这种方式）。 2）所有的输出函数都必须列在exports子句下面，这使的子例程在DLL外部就可以看到。 exports Triple name 'Tr', Double name 'Do', Triple1 name 'TrM', Double1 name 'DoM'; 列出了用户使用这个函数的接口名字。虽然别名不是必须的，但最好给个别名，以便用户程序更容易找到这个函数，同时还要指出， Delphi 6.0取消了Delphi 5.0中允许使用的index ，如果还用Index 来指明接口名字，Delphi 6.0中将提示错误。实例中给出了两种提示方法，主要想说明一个问题： showmessage('')，是VCL 提供的函数，由于多次编译VCL，做出的程序会比较大。而messagebox(0,'','',mb_ok) 是Windows提供的API 函数，做出的程序会比较小。这就是说，编写DLL 程序的时候，要尽量避免多次编译VCL 。作为一个实例，这里把两种方法都列出来了。保存编译：Projrct---Build Mydll 这就完成了一个简单的动态连接库的编写。二、动态连接库的调用首先在implementation下做调用声明 const gdi32='mydll.dll'; function triple(n:integer):integer;stdcall;external gdi32 name 'Tr'; function Double(N:Integer):integer;stdcall;external gdi32 name 'Do'; function triple1(n:integer):integer;stdcall;external gdi32 name 'TrM'; function Double1(N:Integer):integer;stdcall;external gdi32 name 'DoM'; 以后程序中就可以作为普通的函数使用了，例如： procedure TForm1.Button1Click(Sender: TObject); var N:integer; begin N:=updown1.position; edit1.text:=inttostr(triple(N)); end; 第二节 DLL 中的Delphi窗体一、在DLL 中放置窗的的方法在DLL 中，除了放置标准的函数和过程以外，也可以放置已经做好的的delphi窗体，也可以把做好的窗体供其它程序使用，方法是： 1）首先按普通方法制作窗体，不过在interface区域，对接口函数做如下声明 function Createform(capt:string):string;stdcall; 2）在implementation下加入接口函数 function Createform(capt:string):string;stdcall; var Form1: TForm1; begin form1:=Tform1.Create(application); form1.show; form1.caption:=capt; end; 3）制作DLL 动态连接库，但要声明： uses unit1 in 'unit1.pas'; exports {写入接口标示符} Createform name 'Myform'; 4）调用窗体的程序按普通方法制作，但是在implementation下首先声明要调用的DLL函数 const gdi32='myFormdll.dll'; function Createform(capt:string):string;stdcall;external gdi32 name 'Myform'; procedure TForm3.Button1Click(Sender: TObject); var n,m:string; begin m:='我的窗体'; Createform(m);var n,m:string; end; 二、DLL 中的调用窗体时的数据传递在窗体调用时，可以用普通的函数方法传递数据，下面举个例子。 1）建立窗体做一个改变颜色窗体，放在DLL 中，可以用普通的方法来做，但要作如下声明： function mycolor(col:longint):longint;stdcall; function Getcolor:longint;stdcall; 其中，mycolor为构造窗体；Getcolor为传递颜色数据。在implementation区声明一个窗体内全局的变量 var color1:longint; 下面写出相应的程序 function mycolor(col:longint):longint;stdcall; var Form1: TForm1; begin form1:=Tform1.Create(application); form1.show; form1.panel1.Color:=col; form1.edit1.Text:=inttostr(form1.panel1.Color); result:=color1; end; function Getcolor:longint;stdcall; begin result:=color1; end; procedure TForm1.ScrollBar1Change(Sender: TObject); begin panel2.Color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position); edit2.Text:=inttostr(panel2.Color); color1:=panel2.Color; end; procedure TForm1.Button2Click(Sender: TObject); begin Free; //析构Form1 end; 2）建立动态连接库运行成功后，再建立动态连接库： library FormDLL; {从文件调入} uses unit1 in 'unit1.pas'; exports {写入接口标示符} Mycolor name 'My', Getcolor name 'Get'; begin end. 3）建立调用的程序首先声明要调用的DLL函数 const gdi32='formDll.dll'; function Mycolor(col:longint):longint;stdcall;external gdi32 name 'My'; function Getcolor:longint;stdcall;external gdi32 name 'Get'; 然后写出相应的程序 procedure TForm1.Button1Click(Sender: TObject); begin Mycolor(color); end; procedure TForm1.Button2Click(Sender: TObject); begin color:=getcolor; end; 我们可以看到，在改变颜色的窗体中做了颜色变化后，当前窗体的颜色将发生变化。