知识大全 Delphi学堂之用Delphi制作DLL小结

Posted 2022-07-14 函数

篇首语：饱带饥粮，晴带雨伞。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi学堂之用Delphi制作DLL小结相关的知识，希望对你有一定的参考价值。

Delphi学堂之用Delphi制作DLL小结 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

一 Dll的制作一般分为以下几步　　在一个DLL工程里写一个过程或函数　　写一个Exports关键字在其下写过程的名称不用写参数和调用后缀　　　　二参数传递　　参数类型最好与window C++的参数类型一致不要用DELPHI的数据类型　　最好有返回值[即使是一个过程] 来报出调用成功或失败或状态成功或失败的返回值最好为 [成功]或 [失败] 一句话与windows c++兼容　　用stdcall声明后缀　　最好大小写敏感　　无须用far调用后缀那只是为了与windows 位程序兼容　　　　三 DLL的初始化和退出清理[如果需要初始化和退出清理　　 DLLProc[SysUtils单元的一个Pointer]是DLL的入口在此你可用你的函数替换了它的入口但你的函数必须符合以下要求[其实就是一个回调函数] 如下　　procedure DllEnterPoint(dwReason: DWORD);far;stdcall;　　dwReason参数有四种类型　　DLL_PROCESS_ATTACH:进程进入时　　DLL_PROCESS_DETACH进程退出时　　DLL_THREAD_ATTACH 线程进入时　　DLL_THREAD_DETACH 线程退出时　　在初始化部分写:　　DLLProc := @DLLEnterPoint;　　DllEnterPoint(DLL_PROCESS_ATTACH);　　如Form上有TdConnection组件就Uses Activex 在初始化时写一句CoInitialize (nil);　　在退出时一定保证DConnection Connected := False 并且数据集已关闭否则报地址错　　　　四全局变量的使用　　在widnows 位程序中两个应用程序的地址空间是相互没有联系的虽然DLL在内存中是一份但变量是在各进程的地址空间中因此你不能借助dll的全局变量来达到两个应用程序间的数据传递除非你用内存映像文件　　　　五调用静态载入　　客户端函数声名:　　 )大小写敏感　　 )与DLL中的声明一样　　如 showform(form:Tform);Far;external yproject_dll dll ;　　 )调用时传过去的参数类型最好也与windows c++一样　　 )调用时DLL必须在windows搜索路径中顺序是当前目录 Path路径 windows;widows\\system;windows\\ssystem ;　　　　六调用动态载入　　建立一种过程类型[如果你对过程类型的变量只是一个指针的本质清楚的话你就知道是怎么回事了] 如　　type　　mypointer=procedure(form:Tform);Far;external;　　var　　Hinst:Thandle;　　showform:mypointer;　　begin　　Hinst:=loadlibrary( yproject_dll );//Load一个Dll 按文件名找　　showform:=getprocaddress(Hinst showform );//按函数名找大小写敏感如果你知道自动化对象的本质就清楚了　　showform(application mainform);//找到函数入口指针就调用　　Freelibrary(Hinst);　　end;　　　　七在DLL建立一个TForM　　把你的Form Uses到Dll中你的Form用到的关联的单元也要Uses进来[这是最麻烦的一点因为你的Form或许Uses了许多特殊的单元或函数]　　传递一个Application参数用它建立Form 　　　　八在DLL中建立一个TMDIChildForM　　 Dll中的MDIForm FormStyle不用为fmMDIChild 　　在CreateForm后写以下两句　　function ShowForm(mainForm:TForm):integer;stdcall　　var　　Form : TForm ;　　ptr:PLongInt;　　begin　　ptr:=@(Application MainForm);//先把dll的MainForm句柄保存起来也无须释放只不过是替换一下　　ptr^:=LongInt(mainForm);//用主调程序的mainForm替换DLL的MainForm MainForm是特殊的WINDOW 它专门管理Application中的Forms资源　　//为什么不直接Application MainForm := mainForm 因为Application MainForm是只读属性　　Form :=TForm Create(mainForm);//用参数建立　　end;　　备注参数是主调程序的Application MainForm　　　　九示例　　DLL源代码　　library Project ;　　　　uses　　SysUtils 　　Classes 　　Dialogs 　　Forms 　　Unit in Unit pas Form ;　　　　$R * RES　　var　　ccc: Pchar;　　　　procedure OpenForm(mainForm:TForm);stdcall;　　var　　Form : TForm ;　　ptr:PLongInt;　　begin　　ptr:=@(Application MainForm);　　ptr^:=LongInt(mainForm);　　Form :=TForm Create(mainForm);　　end;　　　　procedure InputCCC(Text: Pchar);stdcall;　　begin　　ccc := Text;　　end;　　　　procedure ShowCCC;stdcall;　　begin　　ShowMessage(String(ccc));　　end;　　　　exports　　OpenForm;　　InputCCC 　　ShowCCC;　　begin　　end 　　　　调用方源代码　　unit Unit ;　　　　interface　　　　uses　　Windows Messages SysUtils Classes Graphics Controls Forms Dialogs 　　StdCtrls;　　　　type　　TForm = class(TForm)　　Button : TButton;　　Button : TButton;　　Edit : TEdit;　　procedure Button Click(Sender: TObject);　　procedure Button Click(Sender: TObject);　　private　　 Private declarations 　　public　　 Public declarations 　　end;　　　　var　　Form : TForm ;　　　　implementation　　　　$R * DFM　　procedure OpenForm(mainForm:TForm);stdcall;External project dll ;　　procedure ShowCCC;stdcall;External project dll ;　　procedure InputCCC(Text: Pchar);stdcall;External project dll ;　　　　procedure TForm Button Click(Sender: TObject);　　var　　Text: Pchar;　　begin　　Text := Pchar(Edit Text);　　// OpenForm(Application MainForm);//为了调MDICHILD　　InputCCC(Text);//为了实验DLL中的全局变量是否在各个应用程序间共享　　end;　　　　procedure TForm Button Click(Sender: TObject);　　begin　　ShowCCC;//这里表明WINDOWS 位应用程序DLL中的全局变量也是在应用程序地址空间中位应用程序或许不同没有做实验　　end; cha138/Article/program/Delphi/201311/24661