Динамическое внедрение кода логирования в обработчики событий TDataset в Delphi

Delphi , Компоненты и Классы , Свойства и События

При разработке программного обеспечения на Delphi часто возникает необходимость в динамическом внедрении кода логирования в обработчики событий компонентов. Это может быть полезно для отладки и тестирования производительности, особенно когда необходимо внедрить код логирования во все обработчики событий определенного типа компонентов без изменения их исходного кода.

Задача

Рассмотрим задачу динамического внедрения кода логирования в обработчики событий BeforeOpen и AfterOpen для всех TDataset в DataModule. Цель - зафиксировать время начала работы и зафиксировать время, прошедшее после выполнения события AfterOpen. Это должно быть выполнено динамически, без необходимости подклассования компонентов, чтобы можно было легко добавить логирование в существующие проекты.

Решение

Для решения задачи можно использовать паттерн обертки (wrapper), который позволит сохранить существующие обработчики событий и добавить новый обработчик, который будет выполнять логирование перед вызовом оригинального кода.

Пример реализации:

type
  TDataSetEventWrapper = class
  private
    FDataSet: TDataSet;
    FOrgAfterOpen: TDataSetNotifyEvent;
    FOrgBeforeOpen: TDataSetNotifyEvent;
    procedure MyAfterOpen(DataSet: TDataSet);
    procedure MyBeforeOpen(DataSet: TDataSet);
  protected
    property DataSet: TDataSet read FDataSet;
  public
    constructor Create(ADataSet: TDataSet);
    destructor Destroy; override;
  end;

constructor TDataSetEventWrapper.Create(ADataSet: TDataSet);
begin
  Assert(ADataSet <> nil);
  inherited Create;
  FDataSet := ADataSet;
  FOrgAfterOpen := FDataSet.AfterOpen;
  FOrgBeforeOpen := FDataSet.BeforeOpen;
  FDataSet.AfterOpen := MyAfterOpen;
  FDataSet.BeforeOpen := MyBeforeOpen;
end;

destructor TDataSetEventWrapper.Destroy;
begin
  FDataSet.AfterOpen := FOrgAfterOpen;
  FDataSet.BeforeOpen := FOrgBeforeOpen;
  inherited;
end;

procedure TDataSetEventWrapper.MyBeforeOpen(DataSet: TDataSet);
begin
  // Здесь можно вставить код логирования
  if Assigned(FOrgBeforeOpen) then
    FOrgBeforeOpen(DataSet);
end;

procedure TDataSetEventWrapper.MyAfterOpen(DataSet: TDataSet);
begin
  // Здесь можно вставить код логирования
  if Assigned(FOrgAfterOpen) then
    FOrgAfterOpen(DataSet);
  // Запись времени, прошедшего после выполнения события
  StoreElapsedTime(DataSet);
end;

Создаем обертку для каждого TDataset, для которого нужно внедрить логирование. Обертка сохраняет ссылки на оригинальные обработчики событий и выполняет их после выполнения кода логирования.

Важные замечания

• Этот подход требует, чтобы события были уже подключены, когда создаются обертки.
• Необходимо вручную управлять созданием и удалением оберток, например, через список объектов TObjectList с установленным свойством OwnsObjects := True.

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

• Использование профайлера баз данных, например, SQL Server Profiler.
• Создание нового компонента, наследующего TDataSet, с переопределенными событиями.
• Использование detouring и RTTI для перенаправления вызовов функций.

Заключение

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

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

Динамическое внедрение кода логирования в обработчики событий TDataset в Delphi для отслеживания времени выполнения событий.

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

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

:: Главная :: Свойства и События ::