
	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

插件管理框架 for Delphi（二）

作者：闵涛文章来源：闵涛的学习笔记点击数：1903 更新时间：2009/4/23 18:35:09

1 前言

2 插件框架（untDllManager）

2.2 实现代码

unit untDllManager; interface uses Windows, Classes, SysUtils, Forms; type EDllError = Class(Exception); TDllClass = Class of TDll; TDll = Class; TDllEvent = procedure(Sender: TObject; ADll: TDll) of Object; { TDllManager o 提供对 Dll 的管理功能； o Add 时自动创建 TDll 对象，但不尝试装载； o Delete 时自动销毁 TDll 对象； } TDllManager = Class(TList) private FLock: TRTLCriticalSection; FDllClass: TDllClass; FOnDllLoad: TDllEvent; FOnDllBeforeUnLoaded: TDllEvent; function GetDlls(const Index: Integer): TDll; function GetDllsByName(const FileName: String): TDll; protected procedure Notify(Ptr: Pointer; Action: TListNotification); override; public constructor Create; destructor Destroy; override; function Add(const FileName: String): Integer; overload; function IndexOf(const FileName: String): Integer; overload; function Remove(const FileName: String): Integer; overload; procedure Lock; procedure UnLock; property DllClass: TDllClass read FDllClass write FDllClass; property Dlls[const Index: Integer]: TDll read GetDlls; default; property DllsByName[const FileName: String]: TDll read GetDllsByName; property OnDllLoaded: TDllEvent read FOnDllLoad write FOnDllLoad; property OnDllBeforeUnLoaded: TDllEvent read FOnDllBeforeUnLoaded write FOnDllBeforeUnLoaded; end; { TDll o 代表一个 Dll, Windows.HModule o 销毁时自动在 Owner 中删除自身； o 子类可通过覆盖override DoDllLoaded, 以及DoDllUnLoaded进行功能扩展; } TDll = Class(TObject) private FOwner: TDllManager; FModule: HMODULE; FFileName: String; FPermit: Boolean; procedure SetFileName(const Value: String); function GetLoaded: Boolean; procedure SetLoaded(const Value: Boolean); procedure SetPermit(const Value: Boolean); protected procedure DoDllLoaded; virtual; procedure DoBeforeDllUnLoaded; virtual; procedure DoDllUnLoaded; virtual; procedure DoFileNameChange; virtual; procedure DoPermitChange; virtual; public constructor Create; virtual; destructor Destroy; override; function GetProcAddress(const Order: Longint): FARPROC; overload; function GetProcAddress(const ProcName: String): FARPROC; overload; property FileName: String read FFileName write SetFileName; property Loaded: Boolean read GetLoaded write SetLoaded; property Owner: TDllManager read FOwner; property Permit: Boolean read FPermit write SetPermit; end; implementation { TDll } constructor TDll.Create; begin FOwner := nil; FFileName := ''''''''; FModule := 0; FPermit := True; end; destructor TDll.Destroy; var Manager: TDllManager; begin Loaded := False; if FOwner <> nil then begin //在拥有者中删除自身 Manager := FOwner; //未防止在 TDllManager中重复删除，因此需要将 //FOwner设置为 nil; <-- 此段代码和 TDllManager.Notify 需要配合 //才能确保正确。 FOwner := nil; Manager.Remove(Self); end;

[1] [2] [3] 下一页

[系统软件]InstallShield Express for delphi制作安装程序定…  [系统软件](转帖) 忘记登录密码的解决方案 for XP/2003/2000
[系统软件]交叉编译sshd for IXP425 ARM  Platform by MVL 3…  [常用软件]InstallShield Express制作Delphi数据库安装程序
[Delphi程序]为什么选择Delphi.Net ？  [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
[Delphi程序]Delphi 程序员代码编写标准指南  [Delphi程序]转贴：Conversion to Delphi 6: Missing unit Pro…
[Delphi程序]Borland Delphi 9 的新特性  [Delphi程序]Delphi 键盘码表

教程录入：mintao 责任编辑：mintao

上一篇教程：插件管理框架 for Delphi（一）

下一篇教程：插件管理框架 for Delphi（三）

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……