delphi：如何将TGUID转换为PTypeInfo指针？

Question

我有一个TGUID变量，我想通过RTTI来 “改造” 它来描述该接口的PTypeInfo ..

AGUID := StringToGUID('{19BB9F78-1FB1-4B0F-B691-82EE5CD7A941}'); 

.. transform AGUID to PTypeInfo .. 

AInterface = GlobalContainer.Resolve(<PTypeInfo> expected); 

德尔福2010+

Answer 1

function GetInterfaceTypeInfo(const GUID: TGUID): PTypeInfo; 
var 
    Ctx: TRttiContext; 
    AType: TRttiType; 
begin 
    Result := nil; 
    Ctx := TRttiContext.Create; 
    try 
    for AType in Ctx.GetTypes do 
     if (AType.TypeKind = tkInterface) and IsEqualGUID(GetTypeData(AType.Handle)^.Guid, GUID) then 
     begin 
     Result := AType.Handle; 
     Break; 
     end; 
    finally 
    Ctx.Free; 
    end; 
end;