关于用Delphi实现动态代理

<!--StartFragment -->本来想上周末没能用DELPHI实现动态代理就算了，可是这几天却始终放不下这个想法，这实在是一个太美妙的想法了。而且在认真看了VCL对SOAP的实现后，现在至少有九成的把握可以实现这样一个动态代理。

那么动态代理有什么用？

这要先从GoF的Proxy模式说起。

假设有下面这样一个接口及其实现：

现在，如果你是这个接口的用户，而这个接口及其实现者提供了一个：

  Foo : IFoo;

给你，其中Foo指向TFooImpl的一个实例。现在你有了IFoo的定义，和这个Foo实例--注意，你没有TFooImpl的定义和实现代码。如果现在要求你为所有的IFoo.doSth增加事务功能（假设doSth被实现为对数据库作更新操作），要怎么办？

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

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

TStaticProxy = class( TInterfacedObject, IIFoo )
private
  FImpl : IFoo;
public
  constructor Create( aImpl : IFoo );
  function doSth( ... ) : xxx;
  function bar( ... ) : xxx;
end;

constructor TStaticProxy.Create( aImpl : IFoo );
Begin
  FImpl := aImpl;
End;

function TStaticProxy.doSth( ... ) : xxx;
Begin
  BeginTransaction;
  Result := FImpl.doSth( ... );
  EndTransaction;
End;

function TStaticProxy.bar( ... ) : xxx;
Begin
  Result := FImpl.bar( ... );
End;

然后，在所有需要用到Foo对象的地方，改用新的NewFoo对象，如下：

var
  NewFoo : IFoo;
Begin
  NewFoo := TStaticProxy.Create( Foo ) As IFoo;
  ...  //  之后就可以把NewFoo完全当作Foo一样使用了。
End;

可见，我们通过了一个Proxy类代理了所有对IFoo接口的操作，相当于在从IFoo到TFooImpl之间插入了自己的代码，在某种程度上，这就是AOP所谓的“横切”。当然如果你能有TFooImpl的代码的话，就简单了，只要如下：

从TFooImpl派生一个TNewFooImpl，然后在其中Override一下TFooImpl中的doSth即可，然后就创建TNewFooImpl的实例来代替Foo引用即可。

但问题就在于你必须拥用TFooImpl的代码，并且可以变更所提供的Foo实例，但这在很多时候是做不到的--除非不是用DELPHI，而是如 Python一类的动态语言^O^。比如组件容器，比如远程实例等。还有像“虚代理”（就是当创建FImpl代价很高时，就在创建时只创建代理类，然后在真正需要时才创建FImpl的实例）

但上面这种静态代理还是很麻烦。首先，如果IFoo的成员函数很多的话，必须要一一为它们加上代理实现；其次，如果在应用中有很多接口需要代理时，就必须一一为它们写这样的专用代理类；第三，需要变更代理功能时，需要修改所有的代理类……

特别是像组件容器或是通用远程代理这样，对要实现的接口并不能确定的情况下，静态代理一点用也没有。

所以我们需要“动态代理”。我是在看了GIGIX发表在今年第一期《程序员》上的《动态代理的前世今生》一文后，虽然他说是的JAVA在 JDK1.3中提出的，在java.lang.reflect中的proxy。但这却让我突发奇想，发现其实完全可以在DELPHI里也实现这样一个动态代理。

一个典型的动态代理如下：

这样，我们只需要把要增加在功能做成一个IInvocationHandler接口的实例，如图中的TFooInvHandler。然后动态创建一个支持IFoo接口的TDynamicProxy的实例--它是一个动态代理，只需要传入相应的参数：要实现的接口和相应的InvHandler实例即可，不需要为每个接口写一个代理。当然如GIGIX文中所说，对于C++来说，这个可以用模板实现，但问题在于模板归根到底是一种编译时的动态化技术，对于组件容器这样需要运行时动态化的应用，它还是不能实现。最后，InvHandler通过RTTI去调用具体的实现Foo。

它的用法大致如下：

TFooInvHandler = class( TInterfacedObject, IInvocationHandler )
private
  FImpl : IFoo;
public
  constructor Create( aImpl : IFoo );
  function Invoke( IID, MethodName, Args[] ) : xxx;
end;

constructor TFooInvHandler.Create( aImpl : IFoo );
Begin
  FImpl := aImpl;
End;

function TFooInvHandler.Invoke( IID, MethodName, Args[] ) : xxx
Begin
  If ( IID = IFoo ) AND ( MethodName = 'doSth' ) Then
  Begin
     BeginTransaction;
     Result := DoInvoke( FImpl, IID, MethodName, Args[] );
     EndTransaction;
  End
  Else
     Result := DoInvoke( FImpl, IID, MethodName, Args[] );
End;

var
  Handler : IInvocationHandler;
  NewFoo : IFoo;
Begin
  Handler := TFooInvHandler.Create( Foo );
  NewFoo := TDynamicProxy.Create( TypeInfo(IFoo), Handler ) As IFoo;
  ...  //  之后就可以把NewFoo完全当作Foo一样使用了。
End;

注意：其中IInvocationHandler接口我还没想好要怎么定义，所以这段代码只是大致说明一下问题。另外，其中的DoInvoke就是通过RTTI来调用FImpl的。

从上面的代码可以看到，TDynamicProxy通过参数IFoo动态生成了一个对IFoo接口的代理，并且通过Handler参数插入一个处理接口IInvocationHandler，由TDynamicProxy把对IFoo接口的调用全部转成对IInvocationHandler接口的调用，最后由TFooInvHandler类来视情况处理。在这里，可以通过运行时配置方式来动态决定是否需要切入事务所处理，需要对哪个接口的哪个方法切入。

有了这样一个动态代理，还可以很方便地在InvocationHandler里切入如安全性检查，LOG等。这样的话，用DELPHI来实现AOP也不成问题了。

现在我面临的问题就是：如何来定义这个IInvocationHandler。

其实这里最主要的问题就是参数的传递的问题。接口可以用IID表示，方法可以用方法名，但参数变化太多了：一是数量不确定，可以有任意多个参数；二是类型不确定；三是传值参数和引用参数的问题。如前面那个例子用的是简单的办法，就是用一个不定长的Variant数组来记录，可以解决前两个问题，但第三个问题就比较麻烦，难道要用一个Tuple来作返回值？太麻烦了吧。

在VCL的SOAP实现里是通过一个TInvContext在记录的，但这样的话对于Handler的开发者来说，就不得不面对TInvContext的内部复杂性，易用性太差。

这就是我现在还不能确定实现的那一成。-_-|||

猛禽 Feb.03-05