用Delphi实现动态代理(1)：概述

用Delphi实现动态代理(1)：概述

[Mental Studio]猛禽[Blog]

一、问题

所谓动态代理（Dynamic Proxy），要先从GoF的Proxy模式说起。

假设有一个IFoo接口：

{$M+}
    IFoo = Interface( IInterface )
        ['{3A85E46D-F3D4-4D9C-A06C-4E7C1BAC9361}']
        Function  doSth( dummy : Integer ) : String; StdCall;
        Procedure bar; StdCall;
    End;
{$M-}

接口提供者对其作了实现，并提供了一个工厂方法（Factory Method）来向用户提供了实例的创建，如下：

TFooImpl = class(TInterfacedObject, IFoo)
Protected
    Function  doSth( dummy : Integer ) : String; StdCall;
    Procedure bar; StdCall;
end;

(*
    TFooImpl的实现代码，略
*)

//  创建实例的工厂方法
Function GetFooObject( ) : IFoo;
Begin
    Result := TFooImpl.Create As IFoo;
End;

作为这个接口的用户，只有IFoo接口的定义，并且可以一个创建的实现IFoo接口的实例，但没有实现类TFooImpl的定义和实现代码。如果现在用户需要为IFoo.doSth增加事务功能（假设doSth被实现为对数据库作更新操作），要怎么办？
 

二、静态代理解决方案

GoF的Proxy模式就是解决方案之一：

如图所示，首先要定义一个新的IFoo接口实现--TStaticProxy。其中用了一个属性FImpl记录了TFooImpl的实例。然后在 TStaticProxy中实现doSth和bar，并且将不需要变更的bar函数直接委托给FImpl处理，而在doSth的实现里加入事务处理即可。 TStaticProxy的代码大致如下ÿ