Как получить информацию о типе интерфейса от TGUID?

Question

Как я могу получить информацию о типе из GUID?

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

Answer 1

Вам необходимо выполнить поиск по всем RTTI в EXE. Для 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.