我已经证明我可以使用 Delphi 2010 从其 GUID 获取接口的名称(例如 IMyInterface 转换为字符串“IMyInterface”。我想在 Delphi 7 中实现此目的(为了兼容性)。这可能吗?或者是存在基本的编译器限制。
是的,您可以获取它,下面显示了使用 IExample 类型如何获取名称。
旧的 Delphi 7 RTTI 是通过 TypInfo Unit 完成的。
program Project6;
{$APPTYPE CONSOLE}
uses
SysUtils,TypInfo;
type
IExample = interface
['{4902F666-F3FC-4999-BD8C-F226851201D6}']
procedure blah;
end;
begin
Writeln(GetTypeName(TypeInfo(IExample)));
readln
end.
刚刚注意到您说您想从 GUID 中获取它,而不仅仅是类型。这需要类型的 GUID 注册表。 Delphi 7 中的 RTTI 可用于获取类型。
下面将以返回公会为例。
Writeln(GUIDToString(GetTypeData(TypeInfo(IExample)).Guid));
下面是一个示例注册表,它将接口的 TypeInfo() 映射到它的 GUID。
它可以优化,但我这样做是为了说明这个概念。
unit Unit11;
interface
uses
TypInfo,SysUtils, Contnrs;
type
TGuidMap = class(TObject)
Guid : TGUID;
TypeInfo : PTypeInfo;
end;
procedure RegisterInterface(InterfaceType : PTypeInfo);
function GetInterfaceType(Guid : TGUID) : PTypeInfo;
implementation
var
GuidMapList : TObjectList;
procedure RegisterInterface(InterfaceType : PTypeInfo);
var
Map : TGuidMap;
begin
Map := TGuidMap.Create;
Map.TypeInfo := InterfaceType;
Map.Guid := GetTypeData(InterfaceType).Guid;
GuidMapList.Add(Map);
end;
function GetInterfaceType(Guid : TGUID) : PTypeInfo;
var
I : Integer;
begin
result := nil;
for I := 0 to GuidMapList.Count - 1 do
begin
if IsEqualGUID(TGuidMap(GuidMapList.Items[I]).Guid,Guid) then
begin
result := TGuidMap(GuidMapList.Items[I]).TypeInfo;
break;
end;
end;
end;
Initialization
GuidMapList := TObjectList.Create(true);
finalization
GuidMapList.Free;
end.
要将项目添加到注册表,您可以调用
RegisterInterface(TypeInfo(IExample));
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)