Delphi插件创建、调试与使用应用程序扩展(2)

构造插件

我们已经创建好了父应用程序，现在该轮到创建我们希望加载的插件了。插件文件是一个标准的Delphi DLL，所以我们从Delphi IDE中创建一个新DLL工程，保存它。由于导出的插件函数将用到字符串参数，所以要在工程的uses子句中把Sharemen单元放在最前面。

uses
Sharemem, SysUtils, Classes, 
main in ’main.pas’; 

{$E plg.} 

exports
DescribePlugin; 

begin

end.

虽然插件是一个DLL文件，但是没有必要一定要给它一个.DLL的扩展名。实际上，一个原因就足以让我们有理由改变扩展名：当父应用程序寻找要加载的文件时，新的扩展名可以作为特定的文件掩模。通过使用别的扩展名（我们的例子使用了*.plg），你可以在一定程度上确信应用程序只会载入相应的文件。编译指示字$X可以实现这个改变，也可以通过Project Options对话框的Application页来设置扩展名。

第一个例子插件的代码是很简单的。注意，DescribePlugin原型与外壳应用程序中的TpluginDescribe类型相一致，使用附加的export保留字指定该过程将被导出。被导出的过程名称也将会出现在主工程源代码的exports段中。

unit main; 

interface

procedure DescribePlugin(var Desc: string);
export; stdcall;

implementation

procedure DescribePlugin(var Desc: string);
begin
Desc := ’Test plugin v1.00’; 
end;

end.

在测试这个插件之前，要先把它复制到主应用程序的路径下。最简单的办法就是在主目录的子目录下创建插件，然后把输出路径设置为主路径（Project Options对话框的Directories/Conditionals也可以作这个设置）。

调试

现在介绍一下Delphi 3中一个较好的功能：从IDE中调试DLL的能力。在DLL工程中可以通过Run paramaters对话框指定某程序为宿主应用程序，这就是指向将调用DLL的应用程序的路径（在我们这个例子中，就是刚刚创建的测试外壳程序）。然后你就可以在DLL代码中设置断点并且按F9运行它——就像在一个普通应用程序中做的那样。Delphi会运行指定的宿主程序，并且，通过编译带有调试信息的DLL，把你指引到DLL代码内的断点处。

(T113)

上一篇： Delphi实现网页表单数据的自动提交
下一篇： Delphi2005和DUnit搭建敏捷开发平台 （1）

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有