Разработка компонентов с использованием Delphi: как найти интерфейс по GUID с помощью RTTI

Delphi , Синтаксис , Типы и Переменные

Разработка компонентов на языке Object Pascal с использованием среды Delphi часто требует работы с рефлексией, что позволяет получать информацию о типах во время выполнения программы. Один из способов рефлексии в Delphi - использование RTTI (Runtime Type Information), которое позволяет получать информацию о типах, классах, методах и свойствах, а также работать с интерфейсами.

Проблема

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

Решение

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

Пример кода

unit RTTI.Utilities;
interface
uses System.TypInfo;
function InterfaceTypeInfoOfGUID(const AGUID : TGUID) : PTypeInfo;
implementation
uses System.RTTI;
function InterfaceTypeInfoOfGUID(const AGUID : TGUID) : PTypeInfo;
var
   Context : TRttiContext;
   ItemType : TRttiType;
begin
   Context := TRttiContext.Create;
   Result := nil;
   for ItemType in Context.GetTypes do
   begin
      if ItemType is TRTTIInterfaceType then
      begin
         if TRTTIInterfaceType(ItemType).GUID = AGUID then
            Result := TRTTIInterfaceType(ItemType).Handle;
            Break;
      end;
   end;
end.

Пояснения

В приведенном коде создается функция InterfaceTypeInfoOfGUID, которая принимает GUID в качестве параметра и возвращает PTypeInfo для соответствующего интерфейса. Для этого используется контекст RTTI (TRttiContext), который перебирает все типы в исполняемом файле. Если тип является интерфейсом (TRTTIInterfaceType), проверяется его GUID на соответствие искомому. Если соответствие найдено, возвращается информация о типе.

Заключение

Использование RTTI в Delphi позволяет разработчикам работать с типами во время выполнения программы, что значительно упрощает многие задачи, в том числе и поиск интерфейса по GUID. Приведенный пример демонстрирует, как можно использовать расширенные возможности RTTI для решения этой задачи в версиях Delphi 2010 и выше.

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

Проблема и решение по поиску интерфейса по его GUID с использованием RTTI в Delphi.

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

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

:: Главная :: Типы и Переменные ::