Delphi 推送通知以更新表单

Question

我正在尝试找出将状态更改分配到构成应用程序的多个表单的最佳方法。

在我的场景中，我有许多由我的应用程序监控的硬件设备。作为示例，设备之一是GPS设备。来自这些设备的数据进入，然后信息存储在一个大状态对象中。例如，输入的 GPS 位置与应用程序可用的当前位置和历史位置一起存储。

该应用程序有许多不同的表单和窗口可供用户使用。例如，GPS 有一个显示头顶可见卫星的表格，还有一个显示信噪比的表格和另一个显示 GPS 轨迹随时间变化的表格。

我考虑过的一个解决方案是在我的状态对象上使用类似于观察者模式的东西。新表单订阅状态对象，然后在状态对象更改时接收推送通知（新的 GPS 位置强制推送到表单，然后表单重新绘制并重新更新自己的状态）。

IObserver = interface
    procedure Update;
end;

IObservable = interface
    procedure Subscribe(Observer : IObserver);
end;

TObserverForm = class(TForm, IObserver)
    // ....
    procedure Update;
    begin
        // State has changed, update
    end;
end;

TApplicationState = class(IObservable);
    private
        FObservers : TList<IObserver>;
        FPosition : TPoint;
    public
        procedure Subscribe(Observer : IObserver);
        begin
            FObservers.Add(Observer);
        end;

        procedure PushUpdate;
        begin
            foreach Observer in Observers
                Observer.Update;
        end;

        property Position : TPoint read GetPosition write SetPosition;

        procedure SetPosition(Pos : TPoint);
        begin
            FPosition : Pos;
            // Notify all observers
            Self.PushUpdate;
        end;

end;

以上是我正在考虑的粗略模型。这依赖于在应用程序生命周期期间创建的每个 TObserverForm 上调用 Subscribe 的状态（并在它们被销毁时取消订阅）。

我真的看不出这有什么缺点。此解决方案可以进行一些调整，以便 TObserverForms 仅更新并对某些类型的推送更新做出反应。

这里是否缺少一些基本的东西？这个常见问题是否有更合乎逻辑/更简单的解决方案？

Answer 1

我认为你应该首先确定你想要得到什么。

事件接收和传播应该是：

• 单线程或多线程
• 同步或异步
• 跨平台或仅限 Windows/VCL

对于简单的单线程同步 VCL 应用程序，您可以只使用来自 http://www.Spring4D.org 库的多事件。所有感兴趣的表单只需声明事件处理程序并在 Tracker 对象中注册/注销它。

type iTrackerUpdated = iEvent<TNotifyEvent>;

type TMyGPSTracker = class.....
     public
       property OnUpdate: iTrackerUpdated read FOnUpdate;

       procedure AfterCreation; override;

       property Coords: TMyGPSCoords read FCoords write SetCoords;
     end;

var GPSTracker: TMyGPSTracker;

procedure TMyGPSTracker.AfterCreation;
begin
  inherited;
  FOnUpdate := TEvent<TNotifyEvent>.Create; // auto-freed on destruction
end;

procedure TMyGPSTracker.SetCoords(const NewValue: FCoords);
begin
  if NewValue = FCoords then exit;
  FCoords := NewValue;
  OnUpdate.Invoke(Self);
end;

然后在表格中类似的东西

type TMyForm = class(TForm)
.....

 private
    procedure CoordsUpdated(Sender: TObject);
 public
    procedure AfterCreation; override;
    procedure BeforeDestruction; override;
 end;

procedure TMyForm.CoordsUpdated(Sender: TObject);
begin
  Caption := (Sender as TMyGPSTracker).Coords.ToString();
end;

procedure TMyForm.AfterCreation;
begin
  inherited;
  GPSTracker.OnUpdate.Add( CoordsUpdated );
end;

procedure TMyForm.BeforeDestruction;
begin
  inherited;
  GPSTracker.OnUpdate.RemoveAll( Self );
end;

这就是这种情况所需要的一切。不过……

如果某些表单可能需要长时间处理更改 - 那么它将阻止其他表单更新和从 GPS 驱动程序获取的新坐标。

在这种情况下你最好

1. 将 GPS 对象提取到一个单独的空闲优先级线程中，即使主 VCL 线程很忙，它也会继续更新数据。
2. 切换到异步事件传播，对于 VCL，最简单的方法是使用 PostMessage API。那么您应该知道，繁忙的表单可能会在准备好处理它们之前“收集”少量警报 - 并且只需要处理其中一个。

http://docwiki.embarcadero.com/RADStudio/Berlin/en/Understanding_the_Message-Handling_System

const WM_GPS_UPDATE = WM_USER + 10;

type TMyGPSTracker = class.....
     public
       property OnUpdateAlertForms: TThreadList<TForm> read FOnUpdate;
       property UpdateCounter: Cardinal read FUpdateCounter;     

       property Coords: TMyGPSCoords read FCoords write SetCoords;
     end;

var GPSTracker: TMyGPSTracker;

procedure TMyGPSTracker.SetCoords(const NewValue: FCoords);
var Form: TForm;
begin
  if NewValue = FCoords then exit;

  Inc(FUpdateCounter);
  FCoords := NewValue;

  for Form in FOnUpdate do
      if Form.HandleAllocated and Form.Showing then
         PostMessage( Form.WindowHandle, WM_GPS_UPDATE,
                       FUpdateCounter, LPARAM(Pointer(Self)) );
  // in some rare cases sometimes this might post messages to nowhere
  // but the only consequence would be a single non-update
end;

然后

type TMyForm = class(TForm)
.....

 private
    procedure CoordsUpdated(var Message: TMessage); message WM_GPS_UPDATE;
    var LastCoordUpdateProcessed: Cardinal; 
 end;

procedure TMyForm.CoordsUpdated(var Message: TMessage);
begin
  if LastCoordUpdateProcessed >= UpdateCounter then exit;

  Caption := GPSTracker.Coords.ToString();
  LastCoordUpdateProcessed := GPSTracker.UpdateCounter;
end;

procedure TMyForm.FormShow(Sender: TObject);
begin
  GPSTracker.OnUpdateAlertForms.Add( Self );
end;

procedure TMyForm.FormHide(Sender: TObject);
begin
  GPSTracker.OnUpdateAlertForms.Remove( Self );
end;

对于非 VCL 跨平台目标，您必须找到类似的异步消息传递工具，并将 PostMessage 和 Windows GDI 句柄替换为相应的方法。