Работа с интерфейсами в Delphi 7: получение названия по GUID и совместимость с предыдущими версиями

Delphi , Компоненты и Классы , RTTI

Вопрос о совместимости кода между различными версиями Delphi является актуальным для разработчиков, которые стремятся поддерживать старые проекты или интегрировать их с новыми технологиями. Одной из задач, которую необходимо решить для обеспечения такой совместимости, является получение названия интерфейса по его GUID в среде разработки Delphi 7.

Проблема

Разработчик столкнулся с необходимостью получения названия интерфейса по его GUID в Delphi 7, что ранее успешно реализовано в Delphi 2010. Это необходимо для обеспечения совместимости кода с более старыми версиями Delphi.

Решение

Для решения данной проблемы необходимо использовать возможности RTTI (Runtime Type Information), которые присутствуют в Delphi 7, но имеют отличия от механизмов в более новых версиях. В Delphi 7 RTTI реализованы через модуль TypInfo.

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.

Для получения названия типа IExample используется функция GetTypeName, которая принимает указатель на информацию о типе, полученную через TypeInfo.

Работа с GUID

Если требуется получить название интерфейса, используя только GUID, необходимо создать собственную карту соответствия между GUID и информацией о типе. В Delphi 7 это можно сделать, используя следующий пример регистрации:

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;

procedure RegisterInterfaceForGlobalUse(InterfaceType: PTypeInfo);
begin
  RegisterInterface(InterfaceType);
  // Здесь может быть дополнительная логика для централизованной регистрации,
  // например, запись в файл или базу данных для доступа с других модулей
end;

Initialization
  RegisterInterfaceForGlobalUse(TypeInfo(IExample));
end.

Для добавления нового типа в карту соответствия вызывается функция RegisterInterface, которая регистрирует тип и его GUID.

Пример использования функции GUIDToString для получения строкового представления GUID интерфейса IExample:

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

Заключение

Для получения названия интерфейса по его GUID в Delphi 7 необходимо использовать механизмы RTTI, доступные в этой версии среды разработки, и создать собственную систему карт соответствия между GUID и информацией о типах. Это позволит обеспечить совместимость с более старыми версиями Delphi и поддерживать работоспособность кода в различных версиях среды разработки.

Создано по материалам из источника по ссылке.

Разработчик стремится обеспечить совместимость кода, написанного для Delphi 2010, с более старым Delphi 7, используя RTTI для получения названия интерфейса по его GUID.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: RTTI ::