在Delphi中应用AOP实现日志功能_Deiphi实例教程_Deiphi_编程开发

在Delphi中应用AOP实现日志功能

日期：2008-10-20 22:10:54　　　　来源：

　·软件中复活节彩蛋的实现　·启用或禁用打印事件的日志记录
　·模糊照片也能变高清晰 Photoshop的功能

在Delphi中应用AOP实现日志功能。
　　AOP现在很火，网上有这许多支持AOP的框架，对于Delphi来说同样也有MeAOP。不过觉得这些框架太复杂了。

　　现在有一个系统，基本上都快结束了，整体上当然是没有采用什么AOP的框架。对于这样的系统能否用上AOP的一点点好处呢？

　　项目组提出在现有的系统上加入日志记录的需求。大家一起来看看我是怎么来实现这个功能的吧。

　　AOP简要说明

　　根据网上对AOP的解释，它具有下面的特征：

　　1、将通用功能从不相关类之中分离出来；
　　
　　2、能够使得很多类共享一个功能，一旦功能发生变化，不必修改很多类，只要修改这个功能就可以了。
　　
　　AOP的核心在于保持横切关注点的分离。

　　日志功能

　　这是一个比较典型的MIS系统，现在编码基本结束。不过某个开发人员接到了一个繁琐又看上去没什么技术含量的任务——实现日志功能。这个开发者就是本人了。

　　虽然没什么难度，但还是设计一下吧，谁让我是一个自诩为高水平的程序员呢。

在Delphi中应用AOP实现日志功能（图一）

　　一个设计图就这么做出来了。其中设计一个接口ILog来封装日志实现的细节。模块甲乙丙只需要使用接口ILog就可以。满足了XXX面向对象的设计原则。太完美了！

　　泡杯茶，然后开始写代码实现这个简单而庞大的任务。
　
　　开始编码了！

　　TLog，ILog实现比较简单，在此略去不谈。稍微修改一下以前模块的代码，将ILog接口传入每一个模块中。

　　接下来只需要实现日志功能的调用就可以了。

　　模块甲：

procedure TModule1.acAction1Execute(Sender: TObject);
begin
……
Flog.LogCommand(“模块甲操作一”);
end;

procedure TModule1.acAction2Execute(Sender: TObject);
begin
……
Flog.LogCommand(“模块甲操作二”);
end;
　　模块乙：

procedure TModule2.acAction1Execute(Sender: TObject);
begin
……
Flog.LogCommand(“模块乙操作一”);
end;
　　就这样，写了大约二十几个地方，突然觉得自己太可悲了，作为一个高科技人才就干这种体力活吗？
　
　　坏味道的出现
　
　　在许许多多的地方都出现了Flog.LogCommand这样的函数调用，正是这些函数调用让我崩溃，在这么做下去估计我撑不到周末了。

　　“CV大法”已经让我觉得羞愧加恼怒，系统中到处出现了这样的重复代码。

　　无奈之中，我耷拉着脑袋走到一个同事桌前。

　　“嘿，救救我吧，我想解脱”

　　“怎么回事？”同事善意地问道。

　　“事情是这样子的……”

　　通过了一番讨论，我们一致认为这个应该用AOP的思想来解决。但怎样在Delphi中来实现AOP呢，修改整个程序框架是不可能的，我们只能在现有的基础上做。

　　正当我们要放弃的时候，突然想到了一个突破点：日志中记录的功能在程序实现的时候全部使用Action组件来做的，是否可以考虑在Action上面做文章呢？

　　曙光啊，曙光！

　　解决方式——瞒天过海

　　通俗点理解AOP，就是将一段代码统一“插入”某一类地方。但像Delphi这样的语言是很难实现“插入”代码的这一功能。不过我们可以通过事件机制来实现同样的效果。

　　Action的执行代码都写在事件OnExecute中，如果能在执行事件之前和之后执行我想要的动作是不是就可以解决了？

procedure TModule1.acAction1Execute(Sender: TObject);
begin
// do something
end;

procedure TActionHook.RegisterAction(Action: TAction);
begin
// 记录Action与原始的OnExecute事件
FActionList.Add(Action);
SetLength(FActionEvents, Length(FActionEvents) + 1);
FActionEvents[High(FActionEvents)] := Action.OnExecute;
// 瞒天过海，偷换事件
Action.OnExecute := HookActionExecute;
end;

procedure TActionHook.HookActionExecute(ASender: TObject);
begin
DoBeforeActionExecute(TAction(ASender));
// 触发原始事件
FActionEvents[FActionList.IndexOf(ASender)](ASender);
DoAfterActionExecute(TAction(ASender));
end;

procedure TActionHook.DoAfterActionExecute(Action: TAction);
begin
// 所有的Action执行完毕后调用此处
FLog.LogCommand(Action.Caption);
end;
　　采用这样的方式后，很明显我们不需要将日志相关代码分散到系统的各个地方，只需要在一个统一的地方将所有Form上的Action组件注册到TActionHook中就可以了。

　　扩展思考

　　在Delphi中可以通过事件的机制实现代码注入技术，当然同样在其他支持事件的语言中也可以实现。相比之下这种方法实现AOP比较简单，并且不需要在系统的整体结构上作什么调整，完全通过语言层面支持。

　　例子中针对Action的组件来处理日志功能，将TActionHook扩展之后可以将其他的控件操作也通过这套机制记录到日志中。

　　很多同行们都埋怨自己做的是体力活，没什么技术含量。同样在刚开始的时候，我也认为这个任务是体力活，但是如果我们能勤于思考新的解决方法，体力活绝对能够变为技术活。只有这样才能不辜负“高科技”这个美誉啊。

　　上面介绍的方法肯定不是最好的，这次拿出来和大家分享，一方面是将自己的经验献给需要的朋友，另外也特别希望大家能给一点好的建议，一起交流，共同学习。　[1]

--->QQ游戏大厅 2006 Final Patch3┊已附带QQ游戏大厅的多开功能┊纯净绿色特别版
--->QQ伴侣安全卫士 2.0.0┊已增加了老板键和一键锁定等功能┊简体中文绿色免费版
--->本地挂Q软件 TenyQQ V2.0 Beta 1┊本地批量挂Q软件、消息转发功能┊简体中文绿色特别版
--->迅雷国际版 Gigaget V5.5.1.241┊附带左右键选择下载功能┊绿色下载站免安装特别版
--->Neo Mule V4.25 R20061022┊P2P分享工具、屏蔽吸血骡功能┊汉化绿色特别版
Tags:　实现日志功能

在Delphi中应用AOP实现日志功能

Delphi中用API实现在MSN的信息提示

查看过去计划任务的日志

Photoshop CS3新功能Black & White妙用调色

◎→	本类最新
在DELPHI中用线程排序在Delphi中使用Queued Component 作非常规程序菜单掌握delphi 执行一个外部程序并等待它的完成在应用程序中跟踪MOUSE的坐标五子棋源代码显示密码的原理

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
Delphi数据压缩处理(2) Delphi数据压缩处理(1) 简析Delphi中如何进行XML编程简析Delphi中如何进行XML编程(10 Delphi下的COM编程技术简介(2) Delphi下的COM编程技术简介(1) 用Delphi 3.0编制MP3音乐点歌台