在Delphi中是否可以将接口绑定到未实现它的对象

我知道 Delphi XE2 有新的 TVirtualInterface 用于在运行时创建接口的实现。不幸的是我没有使用 XE2，我想知道在旧版本的 Delphi 中做这种事情涉及什么样的黑客行为。

假设我有以下界面：

  IMyInterface = interface
  ['{8A827997-0058-4756-B02D-8DCDD32B7607}']
    procedure Go;
  end;

是否可以在运行时绑定到该接口而不需要编译器的帮助？

TMyClass = class(TObject, IInterface)
public
  function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
  function _AddRef: Integer; stdcall;
  function _Release: Integer; stdcall;
  procedure Go; //I want to dynamically bind IMyInterface.Go here
end;

我尝试过简单的硬转换：

var MyInterface: IMyInterface;
begin
  MyInterface := IMyInterface(TMyClass.Create);
end;

但编译器会阻止这种情况。

然后我尝试了一个as强制转换并至少编译：

MyInterface := TMyClass.Create as IMyInterface;

所以我想关键是要得到QueryInterface返回指向正在查询的接口的实现的有效指针。我将如何在运行时构建一个？

我已经研究过 System.pas 所以我至少模糊地熟悉如何GetInterface, GetInterfaceEntry and InvokeImplGetter工作。 （值得庆幸的是，Embacadero 选择保留 pascal 源以及优化的程序集）。我可能没读对，但似乎可以存在偏移量为零的接口条目，在这种情况下，还有另一种方法可以使用分配接口InvokeImplGetter.

我的最终目标是模拟具有反射支持的语言中可用的动态代理和模拟的一些功能。如果我可以成功绑定到与接口具有相同方法名称和签名的对象，那么这将是重要的第一步。这有可能吗，还是我找错了树？

理论上可以在运行时向现有类添加对接口的支持，但这确实很棘手，并且需要 D2010 或更高版本才能支持 RTTI。

每个类都有一个VMT，VMT有一个接口表指针。 （请参阅 TObject.GetInterfaceTable 的实现。）接口表包含接口条目，其中包含一些元数据，包括 GUID 和指向接口 vtable 本身的指针。如果您确实愿意，您可以创建接口表的副本（不要在原始表中执行此操作；您可能最终会损坏内存！）向其中添加一个新条目，其中包含带有指针的新接口 vtable指向正确的方法（您可以通过使用 RTTI 查找它们来匹配），然后更改类的接口表指针以指向新表。

要特别小心。这种工作确实不适合胆小的人，而且在我看来，它的用处也有限。但是，是的，这是可能的。