Delphi 用DLL实现插件的简单实例
2017-09-03 16:25
776 查看
Delphi 用DLL实现插件的简单实例
这是DLL的代码
实现代码:
library MyDll; uses SysUtils, Dialogs, Classes; procedure ShowInfo(info:PChar);stdcall; begin ShowMessage('您选择了【'+info+'】'); end; function GetCaption:Pchar; begin Result := '中国'; end; exports ShowInfo, GetCaption; {$R *.res} begin end.
这是调用窗体的代码
本例只使用了一个DLL,所以当有多个DLL时,需要循环DLL所在目录,依次加载DLL
unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, ExtCtrls; type TShowInfo = procedure (info:PChar);stdcall; TGetCaption = function : PChar;stdcall; TForm1 = class(TForm) Button1: TButton; Button2: TButton; MainMenu1: TMainMenu; Image1: TImage; procedure Button2Click(Sender: TObject); private { Private declarations } FHandel : THandle; //DLL句柄 FProAddress: Pointer; //DLL中ShowInfo的地址 showinfo: TShowInfo; //为动态加载DLL而设 procedure LoadPlusIn; //加载插件(DLL) procedure ItemClick(Sender: TObject); //自定义菜单点击事件 public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin LoadPlusIn; end; procedure TForm1.ItemClick(Sender: TObject); begin @showinfo := FProAddress; //取地址 if @showinfo <> nil then showinfo(PWideChar(TMenuItem(Sender).Caption)); //执行DLL中的ShowInfo end; procedure TForm1.LoadPlusIn; var getcaption: TGetCaption; item : TMenuItem; begin FHandel := LoadLibrary('MyDll.dll'); //加载 if FHandel = 0 then begin ShowMessage('加载失败!'); Exit; end else begin @getcaption := GetProcAddress(FHandel,'GetCaption'); //取DLL中GetCaption地址 if @getcaption <> nil then begin item := TMenuItem.Create(MainMenu1); //创建一个菜单 item.Caption := getcaption; //取Caption,即调用DLL中的GetCaption FProAddress := GetProcAddress(FHandel,'ShowInfo'); //取得DLL中ShowInfo的地址 item.OnClick := ItemClick; //赋予菜单项的点击事件 MainMenu1.Items.Add(item); //添加到主菜单 end; end; end; end.
如有疑问请留言或者到本站社区交流讨论,感谢阅读,希望能帮助到大家,谢谢大家对本站的支持!
您可能感兴趣的文章:
相关文章推荐
- 用DLL实现插件的简单演示
- JS简单实现文件上传实例代码(无需插件)
- ASP.NET jQuery 实例12 通过使用jQuery validation插件简单实现用户注册页面验证功能
- JS简单实现文件上传实例代码(无需插件)
- jquery插件方式实现table查询功能的简单实例
- Delphi插件管理框架的简单实现
- 多功能jQuery树插件zTree实现权限列表简单实例
- 用DLL实现插件的简单演示
- Delphi2010 RTTI + Attribute 简单实现ORM实例
- ASP.NET jQuery 实例12 通过使用jQuery validation插件简单实现用户注册页面验证功能
- 最简单的delphi加载C++dll实例
- ASP.NET jQuery 实例11 通过使用jQuery validation插件简单实现用户登录页面验证功能
- ASP.NET jQuery 实例11 通过使用jQuery validation插件简单实现用户登录页面验证功能
- JS简单实现文件上传实例代码(无需插件)
- C#实现多级子目录Zip压缩解压实例 NET4.6下的UTC时间转换 [译]ASP.NET Core Web API 中使用Oracle数据库和Dapper看这篇就够了 asp.Net Core免费开源分布式异常日志收集框架Exceptionless安装配置以及简单使用图文教程 asp.net core异步进行新增操作并且需要判断某些字段是否重复的三种解决方案 .NET Core开发日志
- jquery实现简单的拖拽效果实例兼容所有主流浏览器(优化篇)
- JS实现简单面向对象的颜色选择器实例
- SPring Itegration--JDBC endpoint 简单实现实例
- Delphi实现图片滚动切换的完整实例代码
- js实现简单div拖拽功能实例