Delphi 如何从TGUID获取接口类型信息？

如何从GUID获取类型信息

procedure MyProcedure(const InterfaceId: TGuid);
var
  MyTypeInfo: PTypeInfo;
begin
  MyTypeInfo := TypeInfo(InterfaceId);  //E2133 TYPEINFO standard function expects a type identifier
  ...
end;

---

您必须搜索EXE中的所有RTTI。对于Delphi 2010及以上版本：

unit RTTI.Utilities;

interface

uses System.TypInfo;

function InterfaceTypeInfoOfGUID(const AGUID : TGUID) : PTypeInfo;

implementation

uses System.RTTI;

function InterfaceTypeInfoOfGUID(const AGUID : TGUID) : PTypeInfo;

var
   Context : TRttiContext;
   ItemType : TRttiType;

begin
   for ItemType in Context.GetTypes do
      begin
         if ItemType is TRTTIInterfaceType then
            begin
               if TRTTIInterfaceType(ItemType).GUID = AGUID then
                  exit(TRTTIInterfaceType(ItemType).Handle);
            end
      end;
   Result := nil;
end;

end.

---

您是否可以使用RTTI枚举所有接口，并检查与您的GUI匹配的接口？这正是您必须要做的。在D2010和更高版本中使用扩展RTTI更容易实现，但必须使用标准RTTI。