Получение GUID интерфейса IBar в обобщенных типах в Delphi

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

Вопрос о получении GUID интерфейса IBar в контексте обобщенных типов в Delphi может возникнуть в ситуациях, когда необходимо идентифицировать тип в программе. GUID (Globally Unique Identifier) – это уникальный идентификатор, который часто используется для идентификации типов, интерфейсов и других элементов в Delphi.

Проблема

В предоставленном примере кода есть обобщенный метод Run<T>, который отображает GUID интерфейсов IFoo и IFoo<T>. Однако, как получить GUID для интерфейса IBar, который используется в качестве параметра обобщения, не изменяя подпись метода?

Решение

Для решения этой задачи можно использовать расширения RTTI из библиотеки Spring.Reflections. Ниже приведен пример кода, демонстрирующего, как получить необходимую информацию:

uses
  Rtti,
  SysUtils,
  Spring.Reflection;

type
  TTest = class
  public
    class procedure Run<T: IFoo>;
  end;

class procedure TTest.Run<T>;
var
  LType, LType2: TRttiType;
begin
  LType := TType.GetType(TypeInfo(T));
  if LType.IsInterface then
  begin
    if LType.AsInterface.HasGuid then
      Writeln(LType.Name, ' GUID: ', LType.AsInterface.GUID.ToString);
    LType2 := LType.BaseType;
    while Assigned(LType2) and (LType2.Handle <> TypeInfo(IInterface)) do
    begin
      if LType2.AsInterface.HasGuid then
        Writeln(LType2.Name, ' GUID: ', LType2.AsInterface.GUID.ToString);
      LType2 := LType2.BaseType;
    end;

    if LType.IsGenericType then
    begin
      for LType2 in LType.GetGenericArguments do
        if Assigned(LType2) and LType2.IsInterface then
          Writeln(LType2.Name, ' GUID: ', LType2.AsInterface.GUID.ToString);
    end;
  end
end;

var
  bar: IBar;
begin
  bar := TBar.Create; // Принудительное создание экземпляра для генерации RTTI
  TTest.Run<IFoo<IBar>>;
  ReadLn;
end.

В этом коде используется проверка на то, является ли тип интерфейсом, и если да, то извлекается его GUID. Также проверяется, является ли тип обобщенным, и в этом случае извлекаются GUID для параметров обобщения.

Важные моменты

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

Также стоит отметить, что для работы с полными квалифицированными именами типов, интерфейсы должны быть определены в отдельном модуле, так как lookup по полным квалифицированным именам не работает для типов, определенных в dpr.

Заключение

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

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

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

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

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

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