AOP现在很火,网上有这许多支持AOP的框架,对于Delphi来说同样也有MeAOP。不过觉得这些框架太复杂了。

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

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

AOP简要说明

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

1、将通用功能从不相关类之中分离出来;

2、能够使得很多类共享一个功能,一旦功能发生变化,不必修改很多类,只要修改这个功能就可以了。

AOP的核心在于保持横切关注点的分离。

日志功能

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

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

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

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

开始编码了!

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

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

模块甲:

Pascal Code
1
2
3
4
5
6
7
8
9
10
 
procedure TModule1.acAction1Execute(Sender: TObject);
begin 
   //……
  Flog.LogCommand(“模块甲 操作一”);
end;
procedure TModule1.acAction2Execute(Sender: TObject);
begin 
   //……
  Flog.LogCommand(“模块甲 操作二”);
end;

模块乙:

Pascal Code
1
2
3
4
5
 
procedure TModule2.acAction1Execute(Sender: TObject);
begin 
  //……
  Flog.LogCommand(“模块乙 操作一”);
end;

就这样,写了大约二十几个地方,突然觉得自己太可悲了,作为一个高科技人才就干这种体力活吗?

坏味道的出现

在许许多多的地方都出现了Flog.LogCommand这样的函数调用,正是这些函数调用让我崩溃,在这么做下去估计我撑不到周末了。

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

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

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

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

“事情是这样子的……”

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

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

曙光啊,曙光!

解决方式——瞒天过海

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

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

Pascal Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
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;

相关的UML图如下:

采用这样的方式后,很明显我们不需要将日志相关代码分散到系统的各个地方,只需要在一个统一的地方将所有Form上的Action组件注册到TActionHook中就可以了。

扩展思考

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

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

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

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

在Delphi中应用AOP实现日志功能的更多相关文章

  1. .Net中的AOP读书笔记系列之AOP介绍

    返回<.Net中的AOP>系列学习总目录 本篇目录 AOP是什么? Hello,World! 小结 本系列的源码本人已托管于Coding上:点击查看,想要注册Coding的可以点击该连接注 ...

  2. JVM学习--开启应用的gc日志功能

    一.开启方法 For Java 1.4, 5, 6, 7, 8 pass this JVM argument to your application: -XX:+PrintGCDetails -XX: ...

  3. Spring AOP 实现写事件日志功能

    什么是AOP?AOP使用场景?AOP相关概念?Spring AOP组件?如何使用Spring AOP?等等这些问题请参考博文:Spring AOP 实现原理 下面重点介绍如何写事件日志功能,把日志保存 ...

  4. Springboot中使用AOP统一处理Web请求日志

    title: Springboot中使用AOP统一处理Web请求日志 date: 2017-04-26 16:30:48 tags: ['Spring Boot','AOP'] categories: ...

  5. Spring Boot中使用AOP统一处理Web请求日志

    AOP为Aspect Oriented Programming的缩写,意为:面向切面编程,通过预编译方式和运行期动态代理实现程序功能的统一维护的一种技术.AOP是Spring框架中的一个重要内容,它通 ...

  6. Spring Boot中使用AOP记录请求日志

    这周看别人写的springboot后端代码中有使用AOP记录请求日志,以前没接触过,因此学习下. 一.AOP简介 AOP为Aspect Oriented Programming的缩写,意为:面向切面编 ...

  7. 46. Spring Boot中使用AOP统一处理Web请求日志

    在之前一系列的文章中都是提供了全部的代码,在之后的文章中就提供核心的代码进行讲解.有什么问题大家可以给我留言或者加我QQ,进行咨询. AOP为Aspect Oriented Programming的缩 ...

  8. Spring MVC 中使用AOP 进行统一日志管理--注解实现

    1.AOP简介 AOP称为面向切面编程 AOP的基本概念 (1)Aspect(切面):通常是一个类,里面可以定义切入点和通知 (2)JointPoint(连接点):程序执行过程中明确的点,一般是方法的 ...

  9. SpringBoot中使用AOP打印接口日志的方法(转载)

    前言 AOP 是 Aspect Oriented Program (面向切面)的编程的缩写.他是和面向对象编程相对的一个概念.在面向对象的编程中,我们倾向于采用封装.继承.多态等概念,将一个个的功能在 ...

随机推荐

  1. Windows下Eclipse安装PyDev

    事后证明PyDev不好用,推荐使用pycharm!!!   1.安装eclipse,这个网上一大堆,就不说了 2.安装python,这个网上一大堆,就不说了 3.Eclipse安装PyDev 第一种在 ...

  2. [超级基础]Web安全之SQL注入由浅入深(?)

    前言 断断续续看Web安全到现在了,感觉对很多基础知识还是一知半解,停留在模糊的层次.所以准备系统总结一下. Sql注入我以前一直不以为然,一是现在能sql的站确实很少,二是有像sqlmap的工具可以 ...

  3. Halcon17 Linux 下载

    Halcon17 Linux 下载地址:http://www.211xun.com/download_page_10.html HALCON 17 是一套机器视觉图像处理库,由一千多个算子以及底层的数 ...

  4. scp -v 查看具体的过程

    前几天跟同事讨论scp 多个文件和 scp多个文件夹的压缩包那个快. 老大说,压缩包快,压缩包传输可以避免每个文件的重建连接,不过文件系统的遍历.目录创建.检验会有一些开销. 他建议我scp -v看下 ...

  5. ibatis核心内容概述

    核心提示:SqlMap的配置是iBatis中应用的核心.这部分任务占据了iBatis开发的70的工作量. 1.命名空间: sqlMap namespace=Account,在此空间外要引用此空间的元素 ...

  6. Linux硬链接和软链接(符号链接)

    硬链接与软连接 :https://blog.csdn.net/u013777351/article/details/50557260 索引节点:https://blog.csdn.net/jessey ...

  7. 移动WEB前端开发资源的一些素材

    meta篇: <meta name="viewport" content="width=device-width,initial-scale=1.0,user-sc ...

  8. compiler related

    1. 词法分析 词法分析器根据词法规则识别出源程序中的各个记号(token),每个记号代表一类单词(lexeme).源程序中常见的记号可以归为几大类:关键字.标识符.字面量和特殊符号.词法分析器的输入 ...

  9. 安装配置Vim中文帮助文档

    1.home/.vimrc是用户自己的vim配置文件,在这个配置文件中设置的配置只影响该用安装前的准备工作: 在home目录下列新建文件夹  : .vim ------------------> ...

  10. C++学习(一):现代C++尝试

    C++是一门与时俱进的语言. 早期的C++关注的主要问题是通用性,却没有太多关注易用性的问题,使得C++成为了一门多范式语言,但是使用门槛较高. 从2011开始,C++的标准进行了较大的更新,开始更多 ...