如何获取Delphi中作为泛型参数传递的接口的GUID？

Question

下面，Obtain() 方法有效，但 GetAs() 方法对于调用者来说会更简洁。

但是，我不知道如何将接口作为通用参数传递并获取其 GUID。

宣言：

  TInterfaceRegistry = class
  private
    fRegistry: TDictionary<TGUID, IInterface>;
  public
    ...
    procedure Register(const IID: TGUID; IntfObj: IInterface; const Replace: Boolean = False);
    function  Obtain(const IID: TGUID; out IntfObj): Boolean;
    function  GetAs<I: IInterface>(): I;
  end;

执行：

function TInterfaceRegistry.Obtain(const IID: TGUID; out IntfObj): Boolean;
var
  Found: IInterface;
begin
  Result  := fRegistry.TryGetValue(IID, Found);
  if  Result  then
    if  not Supports(Found, IID, IntfObj) then
      raise EBatSoft.Create(SEBatSoftBug);
end;

function  TInterfaceRegistry.GetAs<I>(): I;
begin
  if  not Obtain(I, Result) then
    raise EBatSoft.Create(SEDoesNotImplement);
end;

调用它看起来像这样......

  IntfReg.Register(IMyIntf, TMyImpl.Create);

获得实施：

var
  Intf: IMyIntf;
begin
  // Less type-safe (can pass anything into 2nd parameter)
  if IntfReg.Obtain(IMyIntf, Intf)  then
    ...
  // Fully type-safe, and simple
  Intf := IntfReg.GetAs<IMyIntf>();

Answer 1

您必须通过使用 typeinfo GetTypeData(TypeInfo(I)).GUID。

请记住，如果您没有为正在使用的给定接口声明任何 guid，则这可能会返回空 guid，而非通用方法根本无法编译。