Разработка "Event Aggregator" в Delphi 2010 и XE: Реализация и Готовые Решения

Delphi , Программа и Интерфейс , Интерфейс

Вопрос, стоящий перед разработчиками, заключается в том, как определить, поддерживает ли объект интерфейс IHandle<T>, и есть ли в Delphi 2010 или XE какие-либо обходные пути для реализации "Event Aggregator". В данном контексте рассматривается возможность использования паттерна "Event Aggregator" для обеспечения расширяемости и модульности кода в приложениях на Delphi.

Контекст проблемы

Класс EventAggregator предназначен для публикации и подписки на события. Подписчики добавляются в список FSubscribers, который является списком объектов. При публикации сообщения происходит итерация по списку, и каждый объект проверяется на соответствие интерфейсу IHandle<T>. Однако, в Delphi не поддерживается неявное преобразование типов для интерфейсов, поэтому такой подход не работает.

Решение проблемы

Для решения проблемы необходимо использовать функцию Supports, которая проверяет, поддерживает ли объект заданный интерфейс. Для этого интерфейсу IHandle<T> необходимо присвоить GUID, который будет использоваться для идентификации интерфейса.

const
  IID_Handle: TGUID = '{...}'; // Генерировать GUID в IDE, используя Ctrl+Shift+G

type
  IHandle<TMessage> = interface
    ['{...}']
    procedure Handle(AMessage: TMessage);
  end;

Затем, при публикации сообщения, необходимо использовать Supports для проверки, поддерживает ли объект интерфейс IHandle<T>.

procedure EventAggregator.Publish<T>(AMessage: T);
var
  LReference, LTarget: TObject;
begin
  for LReference in FSubscribers do
  begin
    if Supports(LReference, IID_Handle, LTarget) then
      LTarget.Handle(AMessage);
  end;
end;

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

FSubscribers: TInterfaceList;

И наконец, подписи и отписки от событий должны быть изменены для работы с интерфейсами.

procedure Subscribe(AInstance: IInterface);
procedure Unsubscribe(AInstance: IInterface);

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

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

TMessage = record
  MessageId: Word;
  Value: TValue;
end;

const
  EVENT_BASE = WM_USER;
  MY_EVENT = EVENT_BASE;
  OTHER_EVENT = MY_EVENT + 1;

При публикации сообщения, каждое зарегистрированное событие будет обработано с помощью Dispatch.

procedure TEventAggregator.Publish<T>(MsgId: Word; const Value: T);
var
  LReference: TObject;
  Msg: TMessage;
begin
  Msg.MessageId := MsgId;
  Msg.Value := TValue.From(Value);
  for LReference in FSubscribers do
    LReference.Dispatch(Msg);
end;

Обработчики событий должны быть определены в классах подписчиков, например:

procedure HandleMyEvent(var Msg: TMessage); message MY_EVENT;

Подтвержденный ответ

В контексте обсуждения был представлен рабочий прототип "Event Aggregator" для Delphi. Код прототипа включает в себя классы TSubscriber<T>, TEventBroker<T> и TEventAggregator, которые реализуют функциональность подписки и публикации событий. Прототип не предназначен для использования в продакшене, но может служить отправной точкой для дальнейшей разработки.

Заключение

В статье были рассмотрены основные подходы к реализации "Event Aggregator" в Delphi 2010 и XE, а также представлены решения, которые могут быть использованы в качестве базовой реализации или отправной точки для создания более сложных механизмов расширяемых событий.

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

Контекст описания заключается в разработке 'Event Aggregator' для Delphi 2010 и XE, с фокусом на реализацию и поиск решений для определения поддержки интерфейса `IHandle`.

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

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

:: Главная :: Интерфейс ::