Ошибка определения подписчиков при публикации событий в Spring4D: как исправить неправильное поведение метода `Supports`

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

Ошибка определения подписчиков при публикации событий в Spring4D

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

Проблема

Разработчик использует пример из документации Spring4D для создания eventPublisher, который позволяет подписчикам явно подписываться на события. Подписчики должны обрабатывать процедуру Handle, если они реализуют интерфейс IEventHandler<TEventType>.

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

Пример кода

TEvent1 = class(TObject)
end;

TEvent2 = class(TObject)
end;

IEventHandler = interface(IInvokable)
    procedure Handle(aEvent : TObject);
end;

IEventHandler<T : class> = interface(IEventHandler)
    procedure Handle(aEvent : T);
end;

TMyEventHandler1 = class(TObject, IEventHandler, IEventHandler<TEvent1>)
public
    procedure Handle(AEvent : TObject); overload;
    procedure Handle(AEvent : TEvent1); overload;
end;

TMyEventHandler2 = class(TObject, IEventHandler, IEventHandler<TEvent2>)
public
    procedure Handle(AEvent : TObject); overload;
    procedure Handle(AEvent : TEvent2); overload;
end;

// Остальной код класса TEventPublisher и его методы

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

В коде TEventPublisher используется метод Supports для проверки, реализует ли подписчик интерфейс обработчика событий. Однако, из-за особенностей генерации GUID для обобщенных интерфейсов, метод Supports может неправильно определять наличие интерфейса, возвращая true даже для тех объектов, которые его не реализуют.

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

Проблема заключается в том, что при указании GUID для обобщенного интерфейса, все специализации этого интерфейса получают один и тот же GUID, независимо от параметра типа. Это приводит к тому, что метод Supports не может корректно определить, поддерживает ли объект интерфейс, так как все GUID совпадают.

Решение

Чтобы решить проблему, можно добавить в интерфейс свойство, которое будет предоставлять информацию о типе, для которого предназначен интерфейс. Например, интерфейс Spring.Collections.IEnumerable имеет свойство ElementType, которое возвращает фактический тип для IEnumerable<T>.

Вот пример реализации, которая решает проблему:

IEventHandler = interface
    ['{2E4BD8F4-4EB8-4B33-84F4-B70F42EF9208}']
    procedure Handle(const event: TObject);
    function GetHandledClass: TClass;
end;

IEventHandler<T: class> = interface
    ['{82B7521E-D719-4051-BE2C-2EC449A92B22}']
    procedure Handle(const event: T);
    function GetHandledClass: TClass;
end;

// Остальной код и реализация класса TEventHandlerBase и т.д.

procedure TEventPublisher.Publish(const event: TObject; ownsObject: Boolean = True);
var
    subscriber: IEventHandler;
    eventSubscriber: IEventHandler<TObject>;
begin
    for subscriber in fSubscribers do
    begin
        if Supports(subscriber, IEventHandler<TObject>, eventSubscriber) and
           (eventSubscriber.GetHandledClass = event.ClassType) then
            eventSubscriber.Handle(event);
    end;
    // ...
end;

Таким образом, в методе Publish сначала проверяется, поддерживает ли подписчик интерфейс IEventHandler<TObject>, а затем проверяется, соответствует ли тип события типу, для которого предназначен интерфейс подписчика.

Заключение

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

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

В контексте использования Spring4D для создания событийно-ориентированных систем возникла проблема, когда метод `Supports` неправильно определяет, поддерживает ли объект интерфейс обработчика событий, из-за чего возникают ошибки при п

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

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

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