|
Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. } uses SysUtils, Classes, UnitOfficialDetailForm in ''''UnitOfficialDetailForm.pas'''' {FormOfficialDetail}, UnitOfficialMainForm in ''''UnitOfficialMainForm.pas'''' {FormOfficialMain}, UnitOfficeEntrance in ''''UnitOfficeEntrance.pas'''', UnitOfficialClass in ''''..\..\Public\Library\UnitOfficialClass.pas'''', UnitMyDataAdatper in ''''..\..\Public\Library\UnitMyDataAdatper.pas'''', UnitMyHeaders in ''''..\..\Public\Library\UnitMyHeaders.pas''''; {$R *.res} exports ShowDLLForm,FreeDLLForm; //接口函数 begin end. 插件程序一旦调用了DLL窗口，窗口实例将会保持在HALL窗口的上层，因此不用担心遮挡的问题。 4 容器程序的实现。 4.1 接口函数的引入 调用DLL库中的函数有显式和隐式两种方式，显式调用更灵活，因此我们使用显示调用。在Delphi中需要为接口函数申明函数类型，然后实例化函数类型的实例，该实例实际是一个指向函数的指针，通过指针我们可以访问到函数并传递参数、获取返回值。在单元文件的Interface部分加入函数类的申明： type //定义接口函数类型,接口函数来自DLL接口 TShowDLLForm = Function(AHandle:THandle; ACaption: String; AUserID:string):Boolean;stdcall; TFreeDLLForm = Function(AHandle:THandle; ACaption: String; AUserID:string):boolean;stdcall; 显示调用库函数需要如下几个步骤 1. 载入DLL库文件 2. 获得函数地址 3. 执行函数 4. 释放DLL库 接下来我们将详细讨论这几个步骤。 4.2 载入DLL库文件 通过调用API函数LoadLibrary可以将DLL库载入到内存中，在此我们不讨论DLL对内存管理的影响。LoadLibrary的参数是DLL文件的地址路径，如果载入成功会返回一个CARDINAL类型的变量作为DLL库的句柄；如果目标文件不存在或其他原因导致载入DLL文件失败会返回一个0。 4.3 实例化接口函数 获得接口函数指针的API函数为GetProcAddress(库文件句柄，函数名称)，如果找到函数则会返回该函数的指针，如果失败则返回NIL。 使用上文定义的函数类型定义函数指针变量，然后使用@操作符获得函数地址，这样就可以使用指针变量访问函数。主要代码如下： …… var ShowDLLForm: TShowDLLForm; //DLL接口函数实例 FreeDLLForm: TFreeDLLForm; begin try begin APlugin.ProcAddr := LoadLibrary(PChar(sPath)); APlugin.FuncFreeAddr := GetProcAddress(APlugin.ProcAddr,''''FreeDLLForm''''); APlugin.FuncAddr := GetProcAddress(APlugin.ProcAddr ,''''ShowDLLForm''''); @ShowDLLForm:=APlugin.FuncAddr ; @FreeDLLForm:=APlugin.FuncFreeAddr; if ShowDllForm(Self.Handle, APlugin.Caption , APlugin.UserID) then 上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
[聊天工具]让IE 7也用上鼠标手势 [常用软件]IE 7出炉,Firefox 2当道.谁才是“王者”？
[常用软件]绕过WGA安装IE 7 Beta3 5450 [VB.NET程序]VB.NET实现DirectSound9 (7) 录音
[VB.NET程序]DirectX 7 编程初步 [VB.NET程序]VB程序员眼中的C# 7
[Delphi程序]DELPHI7 如何在编写可视组件中传递一个事件到组件… [Delphi程序]Delphi7 的 WebService 与 数据库
[Delphi程序]Delphi7 从子线程中发送消息到主线程触发事件执行 [Delphi程序]Delphi 7 中使用RAVE报表（一）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
