Как динамически назначать обработчики событий классам с использованием RTTI в Delphi

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

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

Проблема

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

Решение

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

Вот пример кода, который демонстрирует, как можно динамически назначить обработчик события:

procedure AssignEvent;
var
  LObj: TMyClass;
  LEventHandlerObj: TMyEventHandler;
  LContextObj, LContextHandler: TRttiContext;
  LTypeObj, LTypeHandler: TRttiType;
  LEventProp: TRttiProperty;
  LMethod: TRttiMethod;
  LEventHandler: TMyBeforeEvent;
  HandlerMethod: TMethod;
begin
  LObj := TMyClass.Create;
  LEventHandlerObj := TMyEventHandler.Create;

  LContextObj := TRttiContext.Create;
  LEventProp := LContextObj.GetType(LObj.ClassType).GetProperty('OnBeforeEvent');
  LContextHandler := TRttiContext.Create;
  LTypeHandler := LContextHandler.GetType(LEventHandlerObj.ClassType);
  LMethod := LTypeHandler.GetMethod('DoBeforeEvent');

  with TMethod(HandlerMethod) do
  begin
    Code := LMethod.CodeAddress;
    Data := LEventHandlerObj;
  end;

  LEventHandler := HandlerMethod;
  LEventProp.SetValue(LObj, TValue.From<TMyBeforeEvent>(LEventHandler));
end;

В этом коде мы создаем TMethod, инициализируем его кодом и данными обработчика событий, а затем преобразуем его в нужный тип обработчика, который затем назначается свойству события класса.

Альтернативный подход

Если использовать reference to procedure(...) как анонимный тип процедуры объекта, то возможен другой подход:

procedure AssignEvent;
var
  LObj: TMyClass;
  LEventHandlerObj: TMyEventHandler;
  LEventHandler: TMyBeforeEvent;
  LContextObj: TRttiContext;
  LMethod: TRttiMethod;
  LEventProp: TRttiProperty;
begin
  LObj := TMyClass.Create;
  LEventHandlerObj := TMyEventHandler.Create;

  LContextObj := TRttiContext.Create;
  LMethod := LContextObj.GetType(LEventHandlerObj.ClassType).GetMethod('DoBeforeEvent');

  LEventHandler := procedure(const AInput: TArray<string>; out AOutput: TArray<string>; out ACanContinue: boolean);
  begin
    // Вызов метода через Invoke, если это возможно
    LMethod.Invoke(LEventHandlerObj, [AInput, AOutput, ACanContinue]);
  end;

  LEventProp := LContextObj.GetType(LObj.ClassType).GetProperty('OnBeforeEvent');
  LEventProp.SetValue(LObj, TValue.From<TMyBeforeEvent>(LEventHandler));
end;

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

Заключение

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

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

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

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

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

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