使用Delphi RTTI获取接口的字符串名称

发布于 2024-09-06 19:22:15 字数 129 浏览 7 评论 0原文

我已经证明我可以使用 Delphi 2010 从其 GUID 获取接口的名称（例如 IMyInterface 转换为字符串“IMyInterface”。我想在 Delphi 7 中实现此目的（为了兼容性）。这可能吗？或者是存在基本的编译器限制。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

面犯桃花 2024-09-13 19:22:15

是的，您可以获取它，下面显示了使用 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 可用于获取类型。

下面将以IExample返回guid。

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));

Yes you can get it, the following shows using the IExample type how you can get the name.
The old Delphi 7 RTTI was done through the 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.

Just noticed you said you wanted to get it from the GUID and not just the type. This would require a registry of GUID to types. The RTTI in Delphi 7 can be used to get the type.

The following will take IExample return the guid.

Writeln(GUIDToString(GetTypeData(TypeInfo(IExample)).Guid));

Here is an example registry that would Map TypeInfo() of an Interface to it's GUID.
It could be optimized but I did it to illustrate the concept.

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.

To Add an item to the registry you would then call

   RegisterInterface(TypeInfo(IExample));

回复收藏 0 原文

情未る 2024-09-13 19:22:15

在 Delphi 7 中，您应该构建自己的从 GUID 到 RTTI（或名称）的映射。这里没有像 Delphi 2010 那样的 RTTI 上下文。我广泛使用 RIIT，通常在单元的初始化部分的某个中心位置“注册”所有有趣的类型，并根据 typeinfo 指针从那里查找所有类型。这适用于 D7、D2007 和 D2010（但如果您需要创建它，则需要更多工作）。此外，您可能会忘记注册类型并想知道为什么找不到某些东西。

回复收藏 0 原文

~没有更多了~