delphi - Delphi 中如何将接口(interface)转换为对象

Question

在delphi 2009中，我有一个对IInterface的引用，我想将其转换为底层TObject

使用TObject(IInterface)显然在Delphi 2009中不起作用(尽管它应该在Delphi 2010中起作用)

我的搜索引导我到 a function that should do the trick ，但它对我不起作用，当我尝试调用返回对象的方法时，我得到了 AV。

^{我无法真正修改类，而且我知道这会破坏 OOP}

Answer 1

除了依赖 Delphi 的内部对象布局之外，您还可以让对象实现另一个接口(interface)，该接口(interface)将简单地返回对象。当然，只有当您首先有权访问对象的源代码时，这才有效，但如果您无权访问对象的源代码，您可能甚至不应该使用这些技巧。

interface 

type
  IGetObject = interface
    function GetObject: TObject;
  end;

  TSomeClass = class(TInterfacedObject, IGetObject)
  public
    function GetObject: TObject;
  end;

implementation

function TSomeClass.GetObject: TObject;
begin
  Result := Self;
end;