delphi:如何将TGUID转换为PTypeInfo指针?
发布时间:2020-12-15 09:24:58 所属栏目:大数据 来源:网络整理
导读:我有一个TGUID变量,我想通过Rtti将其“转换”为描述该接口的PTypeInfo. AGUID := StringToGUID('{19BB9F78-1FB1-4B0F-B691-82EE5CD7A941}');.. transform AGUID to PTypeInfo ..AInterface = GlobalContainer.Resolve( PTypeInfo expected); Delphi 2010 解
我有一个TGUID变量,我想通过Rtti将其“转换”为描述该接口的PTypeInfo.
AGUID := StringToGUID('{19BB9F78-1FB1-4B0F-B691-82EE5CD7A941}'); .. transform AGUID to PTypeInfo .. AInterface = GlobalContainer.Resolve( <PTypeInfo> expected); Delphi 2010 解决方法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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |