Delphi接口继承和观察者模式

Question

我想创建一个通用的主题接口，然后将其与“具体”观察者类一起重用。所以我为主题尝试了这段代码：

unit uISubject;

interface

type

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

implementation

end.

我有以下观察者类：

用于串行通信的观察者

unit uISerialObserver;

interface

type

    ISerialObserver = interface(IInterface)
    ['{EF833BD7-31C1-49B3-8041-F1574AC043F0}']
        procedure DataAvailable(ReceivedData: AnsiString);
    end;

implementation

end.

更新进度栏的观察者

unit uIProgressObserver;

interface

type

    IProgressObserver = interface(IInterface)
    ['{05AC7C76-CD41-42AB-B793-1512E68D91D5}']
        procedure UpdateProgressParameters(Min, Max: Cardinal);
        procedure IncrementParameter;
    end;

implementation

end.

我已经实现了这样的通知方法：

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

where

FObservers: TList<IInterface>;

When NotifyObservers运行时，Delphi 返回访问冲突错误。

我想知道我做错了什么？

Answer 1

您需要使用 as 运算符通过动态转换来转换接口。

您的代码 ISerialObserver(IInterface(Obs)) 是某个故障点。您应该将 Obs 写为 ISerialObserver。但为什么不创建列表 TList 从而避免强制转换呢？

也就是说，您确定列表中的所有内容都实现了 ISerialObserver 吗？从这些摘录中并不明显。您可以使用 is 运算符或功能更强大的 Supports() 函数检查接口支持。

另外，您不需要从 IInterface 继承，这是隐式的。因此，您可以将 ISubject = interface(IInterface) 替换为 ISubject = interface 等等。