查询未知接口类型

Question

在此代码中：

TTest<IntfT: IInterface> = class
protected
  fObj : TInterfacedObject;
public
  function  GetVal: IntfT;
end;

如果我希望GetVal函数将fObj作为IntfT返回，我将如何实现它？

我试过：

result := fObj as IntfT;

和

fObj.QueryInterface(IntfT,result);

和

result := fObj as IInterface;

但似乎什么都起不到作用。这似乎是一件很简单的事情，我一直在想，我一定是错过了什么。

有什么想法吗？

编辑

在我看来，现在最有希望的是QueryInterface。目前，编译器抱怨IntfT不是GUID，我的印象是，如果我有合适的GUID，一切都会很愉快。有人知道如何从在这种情况下工作的接口类型获取IID吗？

Answer 1

以下是我想出的解决方案：

function TTest<IntfT>.GetVal: IntfT;
begin
  fObj.QueryInterface(GetTypeData(TypeInfo(T)).Guid,result);
end;

这似乎是可行的。(顺便说一句，这是因为fObj实际上不是一个TInterfacedObject，而是一个具有公共QueryInterface方法的不同接口实现类)。

Answer 2

result := fObj as IntfT;应该可以工作，但显然编译器并不完全将接口理解为泛型。你应该向QC报告这件事。

fObj.QueryInterface(IntfT,result);无法工作，因为QueryInterface是TInterfacedObject的受保护的成员。另外，QueryInterface通过调用GetInterface来工作，GetInterface查找GUID，而GUID和泛型并不能很好地混合在一起。

result := fObj as IInterface;确实为我编译了。你有什么问题吗？