继承接口的接口委托是否需要包装类？

Question

Delphi 允许使用implements 关键字进行接口委托。

例如

IIndep1 = interface
  function foo2: integer;
end;

IIndep2 = interface
  function goo2: integer;
end;

TIndep1And2 = class(TInterfacedObject, IIndep1, IIndep2)
private
  FNested : IIndep1; //e.g. passed via constructor or internally created (not shown here)
public
   Constructor Create(AIndep1: IIndep1);
  function goo2: integer;
   property AsIndep1 : IIndep1 read FNested implements IIndep1;
end;

这很好用，但不适用于继承的接口。 （错误信息“缺少接口方法ILev1.foo的实现”）

ILev1 = interface
  function foo: Integer;
end;

ILev2 = interface(ILev1)
  function goo: Integer;
end;

TLev2Fails = class(TInterfacedObject, ILev1, ILev2) //Also fails with ILev2 alone (Error: "ILev1 not mentioned in interface list")
private
  FNested : ILev1; //passed via constructor or internally created 
public
   Constructor Create(AILev1: ILev1);
   function goo: Integer;
   property AsLev1 : ILev1 read FNested implements ILev1;
end;

解决方法是添加一个额外的祖先类

TLev1Wrapper = class(TInterfacedObject, ILev1)
private
  FNested : ILev1; //passed via constructor or internally created 
public
   Constructor Create(AILev1: ILev1);
   property AsLev1 : ILev1 read FNested implements ILev1;
end;

TLev2Works = class(TLev1Wrapper, ILev2)
public
  function goo: Integer;
end;

有没有办法避免包装类的祖先？

[编辑] 只是关于接口委托的说明，使用implements 的目的是避免直接满足接口，而是将该要求传递给聚合或组合成员。提供完整的界面并手动委派给组合成员会破坏使用implements 引导界面所获得的好处。事实上，在这种情况下，implements 关键字和属性可能会被删除。

Answer 1

有没有办法避免包装类的祖先？

不，继承的接口必须绑定到祖先类。由于here 解释的原因，Delphi 不会隐式绑定继承的接口。此外，它不能绑定到当前类，除非它手动将所有调用委托给组合项。

我们只剩下一个选择。一个祖先包装类，我们可以绑定ILev1

Answer 2

这看起来编译器正在尝试强制执行the expectations (read: requirements) of IUnknown.QueryInterface：

对于任何一个对象，对任何一个对象上的 IUnknown 接口的特定查询 对象的接口必须始终返回相同的指针值。

如果您能够在自己实现派生接口的同时委托基接口的实现，那么：

obj := TLev2Fails.Create(otherLev1);  // Assuming your class could compile

lev1 := obj as ILev1;     // yields reference to otherLev1 implementor
lev2 := obj as ILev2;     // yields reference to TLev2Fails instance

unk1 := lev1 as IUnknown;   // returns IUnknown of otherLev1 implementor
unk2 := lev2 as IUnknown;   // returns IUnknown of obj TLev2fails instance

如果您的嵌套对象被正确实现为 TAggregatedObject 派生类，则情况并非如此，但编译器无法知道是否是这种情况，更不用说强制执行它了它只是要求，如果您实现派生接口，那么您还必须直接实现接口本身继承的任何接口。

这种情况下的编译器错误不是很有帮助，尽管它可以被解读为告诉你什么你需要做什么，而不是为什么你需要在这种情况下执行此操作，这对于编译器错误来说并不少见。

如果您希望在这种情况下进行委托，那么您必须“手动委托”。

虽然这失去了implements 设施的好处，但它至少保留了重复使用的好处，只是不太方便。

注意：即使您的委托实现是基于 TAggregatedObject，编译器仍然无法确定这些实现细节是否满足QueryInterface，所以您仍然会收到此错误（即使使用委托接口的类引用）。

您仍然必须手动委派。

说了这么多，我目前看不出这对于没有继承关系的接口有什么不同，但很可能这是有效的，我只是没有完成所有必要的工作思想实验”向自己证明。 :)

可能是编译器只是在认为可以/应该这样做的情况下格外谨慎，而文档根本没有提到implements的这种限制。

或者它可能是编译器中的一个错误，尽管我认为该行为有足够明显的原因，并且该行为本身是如此完善和一致（在 Delphi 7 中重现了完全相同的行为）以至于相关的遗漏文档是更可能的解释。