Delphi 中如何将接口转换为对象

Question

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

使用TObject(IInterface)显然不起作用在Delphi 2009中（虽然它应该在Delphi 2010中工作）

我的搜索引导我到一个应该可以解决问题的函数，但它对我不起作用，当我尝试调用返回对象的方法时，我得到了 AV。

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

Answer 1

你是对的。从 Delphi 2010 开始，您可以使用 as 运算符，例如通过 aObject := aInterface as TObject 甚至 aObject := TObject(aInterface)。

此 as 运算符使用特殊的隐藏接口 GUID (ObjCastGUID) 来检索对象实例，调用增强版本的 TObject.GetInterface，这会Delphi 2010 之前不存在。请参阅 System.pas 单元的源代码以了解其工作原理。

我已经发布了一些适用于 Delphi 6 到 XE2 的代码，包括 Delphi 2009< /a>.

请参阅 http://blog .synopse.info?post/2012/06/13/从界面检索对象实例

Answer 2

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

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;

Answer 3

当您知道实现对象是 TComponent 后代时，有一个不错的选择。

您可以使用 IInterfaceComponentReference 接口，该接口在 Classes 单元中定义：

IInterfaceComponentReference = interface
  ['{E28B1858-EC86-4559-8FCD-6B4F824151ED}']
  function GetComponent: TComponent;
end;

然后在 TComponent 中声明（并实现以返回 self)：

  TComponent = class(TPersistent, IInterface, IInterfaceComponentReference)

因此，如果您知道实现对象是一个TComponent，那么您可以执行以下操作：

function InterfaceToComponent(const AInterface: IInterface): TComponent;
var
  vReference: IInterfaceComponentReference;
begin
  if Supports(AInterface, IInterfaceComponentReference, vReference) then
    result := vReference.GetComponent
  else
    result := nil;
end;

Answer 4

简而言之：您不应该或添加一个带有为您返回指针的方法的接口。其他任何事情都是黑客行为。

请注意，接口“实例”可以用另一种语言实现（它们与 COM 兼容）和/或可以是进程外某些内容的存根等。

总而言之：接口实例仅同意该接口，而不同意其他任何内容，当然不是作为 Delphi TObject 实例实现的

Answer 5

Hallvard 的 hack 非常具体于 Delphi 编译器如何生成代码。这在过去一直非常稳定，但听起来他们在 Delphi 2009 中改变了一些重要的东西。我这里只安装了 2007，而 Hallvard 的代码工作得很好。

GetImplementingObject 返回 NIL 吗？

如果是这样，那么如果您在 GetImplementingObject 例程中的 case 语句上进行调试并设置断点，那么 QueryInterfaceThunk.AddInstruction 的值在调试器中的计算结果是什么？

Answer 6

var
  N, F: NativeInt; // NativeInt is Integer(in delphi 32bit ) 
  S: TObject;
begin
  N := NativeInt(Args[0].AsInterface) - 12; 
  {subtract 12 byte to get object address(in x86 ,1 interface on class) }
  S := TObject(N);    
  writeln(S.ToString);

end;