一、Dll的制作一般分为以下几步:cs71234FCOM专注游戏工具及源码例子分享
1 在一个DLL工程里写一个过程或函数cs71234FCOM专注游戏工具及源码例子分享
2 写一个Exports关键字,在其下写过程的名称。不用写参数和调用后缀。cs71234FCOM专注游戏工具及源码例子分享
二、参数传递cs71234FCOM专注游戏工具及源码例子分享
1 参数类型最好与window C++的参数类型一致。不要用DELPHI的数据类型。cs71234FCOM专注游戏工具及源码例子分享
2 最好有返回值[即使是一个过程],来报出调用成功或失败,或状态。成功或失败的返回值最好为1[成功]或0[失败].一句话,与windows c++兼容。cs71234FCOM专注游戏工具及源码例子分享
3 用stdcall声明后缀。cs71234FCOM专注游戏工具及源码例子分享
4 最好大小写敏感。cs71234FCOM专注游戏工具及源码例子分享
5 无须用far调用后缀,那只是为了与windows 16位程序兼容。cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
三、DLL的初始化和退出清理[如果需要初始化和退出清理]cs71234FCOM专注游戏工具及源码例子分享
1 DLLProc[SysUtils单元的一个Pointer]是DLL的入口。在此你可用你的函数替换了它的入口。但你的函数必须符合以下要求[其实就是一个回调函数]。如下:cs71234FCOM专注游戏工具及源码例子分享
procedure DllEnterPoint(dwReason: DWORD);far;stdcall;cs71234FCOM专注游戏工具及源码例子分享
dwReason参数有四种类型:cs71234FCOM专注游戏工具及源码例子分享
DLL_PROCESS_ATTACH:进程进入时cs71234FCOM专注游戏工具及源码例子分享
DLL_PROCESS_DETACH进程退出时cs71234FCOM专注游戏工具及源码例子分享
DLL_THREAD_ATTACH 线程进入时cs71234FCOM专注游戏工具及源码例子分享
DLL_THREAD_DETACH 线程退出时cs71234FCOM专注游戏工具及源码例子分享
在初始化部分写:cs71234FCOM专注游戏工具及源码例子分享
DLLProc := @DLLEnterPoint;cs71234FCOM专注游戏工具及源码例子分享
DllEnterPoint(DLL_PROCESS_ATTACH);cs71234FCOM专注游戏工具及源码例子分享
2 如Form上有TdcomConnection组件,就Uses Activex,在初始化时写一句CoInitialize (nil);cs71234FCOM专注游戏工具及源码例子分享
3 在退出时一定保证DcomConnection.Connected := False,并且数据集已关闭。否则报地址错。cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
四、全局变量的使用cs71234FCOM专注游戏工具及源码例子分享
在widnows 32位程序中,两个应用程序的地址空间是相互没有联系的。虽然DLL在内存中是一份,但变量是在各进程的地址空间中,因此你不能借助dll的全局变量来达到两个应用程序间的数据传递,除非你用内存映像文件。cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
五、调用静态载入cs71234FCOM专注游戏工具及源码例子分享
1 客户端函数声名:cs71234FCOM专注游戏工具及源码例子分享
1)大小写敏感。cs71234FCOM专注游戏工具及源码例子分享
2)与DLL中的声明一样。cs71234FCOM专注游戏工具及源码例子分享
如: showform(form:Tform);Far;external'yproject_dll.dll';cs71234FCOM专注游戏工具及源码例子分享
3)调用时传过去的参数类型最好也与windows c++一样。cs71234FCOM专注游戏工具及源码例子分享
4)调用时DLL必须在windows搜索路径中,顺序是:当前目录;Path路径;windows;widows\system;windows\ssystem32;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
六、调用动态载入cs71234FCOM专注游戏工具及源码例子分享
1 建立一种过程类型[如果你对过程类型的变量只是一个指针的本质清楚的话,你就知道是怎么回事了]。如:cs71234FCOM专注游戏工具及源码例子分享
typecs71234FCOM专注游戏工具及源码例子分享
mypointer=procedure(form:Tform);Far;external;cs71234FCOM专注游戏工具及源码例子分享
varcs71234FCOM专注游戏工具及源码例子分享
Hinst:Thandle;cs71234FCOM专注游戏工具及源码例子分享
showform:mypointer;cs71234FCOM专注游戏工具及源码例子分享
begincs71234FCOM专注游戏工具及源码例子分享
Hinst:=loadlibrary('yproject_dll');//Load一个Dll,按文件名找。cs71234FCOM专注游戏工具及源码例子分享
showform:=getprocaddress(Hinst,'showform');//按函数名找,大小写敏感。如果你知道自动化对象的本质就清楚了。cs71234FCOM专注游戏工具及源码例子分享
showform(application.mainform);//找到函数入口指针就调用。cs71234FCOM专注游戏工具及源码例子分享
Freelibrary(Hinst);cs71234FCOM专注游戏工具及源码例子分享
end;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
七、在DLL建立一个TForMcs71234FCOM专注游戏工具及源码例子分享
1 把你的Form Uses到Dll中,你的Form用到的关联的单元也要Uses进来[这是最麻烦的一点,因为你的Form或许Uses了许多特殊的单元或函数]cs71234FCOM专注游戏工具及源码例子分享
2 传递一个Application参数,用它建立Form.cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
八、在DLL中建立一个TMDIChildForMcs71234FCOM专注游戏工具及源码例子分享
1 Dll中的MDIForm.FormStyle不用为fmMDIChild.cs71234FCOM专注游戏工具及源码例子分享
2 在CreateForm后写以下两句:cs71234FCOM专注游戏工具及源码例子分享
function ShowForm(mainForm:TForm):integer;stdcallcs71234FCOM专注游戏工具及源码例子分享
varcs71234FCOM专注游戏工具及源码例子分享
Form1: TForm1;cs71234FCOM专注游戏工具及源码例子分享
ptr:PLongInt;cs71234FCOM专注游戏工具及源码例子分享
begincs71234FCOM专注游戏工具及源码例子分享
ptr:=@(Application.MainForm);//先把dll的MainForm句柄保存起来,也无须释放,只不过是替换一下cs71234FCOM专注游戏工具及源码例子分享
ptr^:=LongInt(mainForm);//用主调程序的mainForm替换DLL的MainForm。MainForm是特殊的WINDOW,它专门管理Application中的Forms资源.cs71234FCOM专注游戏工具及源码例子分享
//为什么不直接Application.MainForm := mainForm,因为Application.MainForm是只读属性cs71234FCOM专注游戏工具及源码例子分享
Form1:=TForm1.Create(mainForm);//用参数建立cs71234FCOM专注游戏工具及源码例子分享
end;cs71234FCOM专注游戏工具及源码例子分享
备注:参数是主调程序的Application.MainFormcs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
九、示例:cs71234FCOM专注游戏工具及源码例子分享
DLL源代码:cs71234FCOM专注游戏工具及源码例子分享
library Project2;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
usescs71234FCOM专注游戏工具及源码例子分享
SysUtils,cs71234FCOM专注游戏工具及源码例子分享
Classes,cs71234FCOM专注游戏工具及源码例子分享
Dialogs,cs71234FCOM专注游戏工具及源码例子分享
Forms,cs71234FCOM专注游戏工具及源码例子分享
Unit2 in 'Unit2.pas' {Form2};cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
{$R *.RES}cs71234FCOM专注游戏工具及源码例子分享
varcs71234FCOM专注游戏工具及源码例子分享
ccc: Pchar;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
procedure OpenForm(mainForm:TForm);stdcall;cs71234FCOM专注游戏工具及源码例子分享
varcs71234FCOM专注游戏工具及源码例子分享
Form1: TForm1;cs71234FCOM专注游戏工具及源码例子分享
ptr:PLongInt;cs71234FCOM专注游戏工具及源码例子分享
begincs71234FCOM专注游戏工具及源码例子分享
ptr:=@(Application.MainForm);cs71234FCOM专注游戏工具及源码例子分享
ptr^:=LongInt(mainForm);cs71234FCOM专注游戏工具及源码例子分享
Form1:=TForm1.Create(mainForm);cs71234FCOM专注游戏工具及源码例子分享
end;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
procedure InputCCC(Text: Pchar);stdcall;cs71234FCOM专注游戏工具及源码例子分享
begincs71234FCOM专注游戏工具及源码例子分享
ccc := Text;cs71234FCOM专注游戏工具及源码例子分享
end;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
procedure ShowCCC;stdcall;cs71234FCOM专注游戏工具及源码例子分享
begincs71234FCOM专注游戏工具及源码例子分享
ShowMessage(String(ccc));cs71234FCOM专注游戏工具及源码例子分享
end;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
exportscs71234FCOM专注游戏工具及源码例子分享
OpenForm;cs71234FCOM专注游戏工具及源码例子分享
InputCCC,cs71234FCOM专注游戏工具及源码例子分享
ShowCCC;cs71234FCOM专注游戏工具及源码例子分享
begincs71234FCOM专注游戏工具及源码例子分享
end.cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
调用方源代码:cs71234FCOM专注游戏工具及源码例子分享
unit Unit1;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
interfacecs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
usescs71234FCOM专注游戏工具及源码例子分享
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,cs71234FCOM专注游戏工具及源码例子分享
StdCtrls;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
typecs71234FCOM专注游戏工具及源码例子分享
TForm1 = class(TForm)cs71234FCOM专注游戏工具及源码例子分享
Button1: TButton;cs71234FCOM专注游戏工具及源码例子分享
Button2: TButton;cs71234FCOM专注游戏工具及源码例子分享
Edit1: TEdit;cs71234FCOM专注游戏工具及源码例子分享
procedure Button1Click(Sender: TObject);cs71234FCOM专注游戏工具及源码例子分享
procedure Button2Click(Sender: TObject);cs71234FCOM专注游戏工具及源码例子分享
privatecs71234FCOM专注游戏工具及源码例子分享
{ Private declarations }cs71234FCOM专注游戏工具及源码例子分享
publiccs71234FCOM专注游戏工具及源码例子分享
{ Public declarations }cs71234FCOM专注游戏工具及源码例子分享
end;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
varcs71234FCOM专注游戏工具及源码例子分享
Form1: TForm1;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
implementationcs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
{$R *.DFM}cs71234FCOM专注游戏工具及源码例子分享
procedure OpenForm(mainForm:TForm);stdcall;External'project2.dll';cs71234FCOM专注游戏工具及源码例子分享
procedure ShowCCC;stdcall;External'project2.dll';cs71234FCOM专注游戏工具及源码例子分享
procedure InputCCC(Text: Pchar);stdcall;External'project2.dll';cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
procedure TForm1.Button1Click(Sender: TObject);cs71234FCOM专注游戏工具及源码例子分享
varcs71234FCOM专注游戏工具及源码例子分享
Text: Pchar;cs71234FCOM专注游戏工具及源码例子分享
begincs71234FCOM专注游戏工具及源码例子分享
Text := Pchar(Edit1.Text);cs71234FCOM专注游戏工具及源码例子分享
// OpenForm(Application.MainForm);//为了调MDICHILDcs71234FCOM专注游戏工具及源码例子分享
InputCCC(Text);//为了实验DLL中的全局变量是否在各个应用程序间共享cs71234FCOM专注游戏工具及源码例子分享
end;cs71234FCOM专注游戏工具及源码例子分享
cs71234FCOM专注游戏工具及源码例子分享
procedure TForm1.Button2Click(Sender: TObject);cs71234FCOM专注游戏工具及源码例子分享
begincs71234FCOM专注游戏工具及源码例子分享
ShowCCC;//这里表明WINDOWS 32位应用程序DLL中的全局变量也是在应用程序地址空间中,16位应用程序或许不同,没有做实验。cs71234FCOM专注游戏工具及源码例子分享
end;
声明:本文系互联网搜索而收集整理,不以盈利性为目的,文字、图文资料源于互联网且共享于互联网。
如有侵权,请联系 yao4fvip#qq.com (#改@) 删除。