Исправление ошибки доступа при реализации паттерна "Наблюдатель" в Delphi

Delphi , Синтаксис , Ошибки и Исключения

Паттерн "Наблюдатель" (Observer) является одним из базовых паттернов проектирования, который позволяет объектам (называемым "субъектами") уведомлять другие объекты (называемые "наблюдателями") об изменениях в своем состоянии. В контексте языка программирования Delphi и Object Pascal, реализация данного паттерна может столкнуться с ошибкой доступа, если не соблюдать правильный подход к типизации и работе с интерфейсами.

Описание проблемы

Вопрос пользователя заключается в создании универсального интерфейса для субъекта, который можно было бы переиспользовать с различными классами наблюдателей. В коде, представленном пользователем, наблюдается ошибка доступа, когда вызывается метод NotifyObservers класса TSerialPortCommunicator. Ошибка возникает из-за неправильной работы с интерфейсами и списком наблюдателей.

Контекст и код

Код субъекта представлен в единице uISubject, где определен интерфейс ISubject с методами для регистрации, удаления наблюдателей и уведомления их о событиях.

unit uISubject;
interface
type
    ISubject = interface
        procedure RegisterObserver(Observer: IInterface);
        procedure RemoveObserver(Observer: IInterface);
        procedure NotifyObservers;
end;

Также представлены классы наблюдателей: ISerialObserver для работы с последовательным портом и IProgressObserver для обновления прогресс-бара.

unit uISerialObserver;
interface
type
    ISerialObserver = interface
        procedure DataAvailable(ReceivedData: AnsiString);
end;

unit uIProgressObserver;
interface
type
    IProgressObserver = interface
        procedure UpdateProgressParameters(Min, Max: Cardinal);
        procedure IncrementParameter;
end;

Метод NotifyObservers класса TSerialPortCommunicator реализован следующим образом:

procedure TSerialPortCommunicator.NotifyObservers;
var
    Obs: IInterface;
begin
    for Obs in FObservers do
    begin
        ISerialObserver(Obs).UpdateObserver(FReceivedData);
    end;
end;

FObservers: TList<IInterface>;

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

Ошибка доступа возникает из-за попытки обращения к методу UpdateObserver, который не существует в интерфейсе ISerialObserver. Вместо этого следует использовать метод DataAvailable. Кроме того, необходимо правильно привести интерфейс IInterface к типу ISerialObserver с использованием оператора as.

procedure TSerialPortCommunicator.NotifyObservers;
var
    Obs: IInterface;
begin
    for Obs in FObservers do
    begin
        if Obs as ISerialObserver then
            ISerialObserver(Obs).DataAvailable(FReceivedData);
    end;
end;

Также стоит отметить, что нет необходимости наследовать интерфейс ISubject от IInterface, так как это происходит автоматически. Следует также рассмотреть возможность создания списка наблюдателей с типом TList<ISerialObserver> вместо TList<IInterface>, чтобы избежать необходимости в приведении типов.

Альтернативный ответ и дополнительные замечания

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

Для проверки поддержки интерфейса можно использовать оператор is или функцию Supports(). Это позволит убедиться, что все элементы списка наблюдателей действительно поддерживают нужный интерфейс.

Заключение

При реализации паттерна "Наблюдатель" в Delphi важно правильно работать с интерфейсами и типами, а также использовать оператор as для безопасного приведения типов. Следуя этим рекомендациям, можно избежать ошибок доступа и обеспечить корректную работу программы.

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

Исправление ошибки доступа при реализации паттерна 'Наблюдатель' в Delphi, связанной с неправильным использованием интерфейсов и списка наблюдателей в классе `TSerialPortCommunicator`.

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

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

:: Главная :: Ошибки и Исключения ::