Упрощение регистрации обработчиков в Delphi с помощью RTTI

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

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

Проблема

В основе лежит паттерн, при котором используются ссылки на функции для обработки сообщений на основе строки "route". Класс TRouter предоставляет метод RegisterHandler, который позволяет регистрировать обработчики. Однако для каждого нового обработчика необходимо явно вызывать этот метод, что может быть неудобно и приводить к ошибкам.

Решение

Для упрощения процесса был создан атрибут RegisterMessageHandlerAttribute, который позволяет отмечать методы для автоматической регистрации. В классе TRouter реализован метод RegisterHandlers, который использует RTTI для поиска всех методов, отмеченных этим атрибутом, и их регистрации.

function TRouter.RegisterHandlers(const HandlerContainerClass: TObject): TArray<TDelegate>;
var
  RTTIContext: TRttiContext;
  RttiType: TRttiType;
  Prop: TRttiMethod;
  Attr: TCustomAttribute;
begin
  RTTIContext := TRttiContext.Create;
  try
    RttiType := RTTIContext.GetType(HandlerContainerClass);
    if Assigned(RttiType) then
    begin
      for Prop in RttiType.GetMethods do
      begin
        for Attr in Prop.GetAttributes do
        begin
          if (Attr is RegisterMessageHandlerAttribute) then
          begin
            Self.RegisterHandler(
              (Attr as RegisterMessageHandlerAttribute).Route,
              Prop.AsType<TDelegate>(HandlerContainerClass, []) // Исправленная строка
            );
          end;
        end;
      end;
    end;
  finally
    RTTIContext.Free;
  end;
  Result := Handlers.ToArray;
end;

Ошибка и её решение

При попытке использовать значение TValue, возвращаемое методом Invoke, для создания ссылки на функцию типа TDelegate, возникала ошибка компиляции. Решением проблемы является использование метода AsType<TDelegate>, который позволяет преобразовать TValue в нужный тип делегата.

Prop.AsType<TDelegate>(HandlerContainerClass, []) // Преобразование TValue в TDelegate

Пример кода

Допустим, у нас есть класс THandlerContainer, в котором определен метод getDelegate, который мы хотим зарегистрировать:

THandlerContainer = class
public
  [RegisterMessageHandlerAttribute('route')]
  function getDelegate(const Arg: TMyType): TResultType; // Типы могут быть любыми
end;

При создании экземпляра TRouter, вызов метода RegisterHandlers автоматически зарегистрирует метод getDelegate без необходимости явного вызова RegisterHandler.

Заключение

Использование RTTI для автоматической регистрации обработчиков позволяет упростить процесс разработки и снизить вероятность ошибок, связанных с ручной регистрацией. Это особенно полезно в крупных проектах, где большое количество классов и методов требуют регистрации.

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

Статья описывает упрощение процесса регистрации обработчиков в Delphi с использованием RTTI для автоматической регистрации методов, отмеченных специальным атрибутом.

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

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

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