delphi - 如何使用参数调用 TEvent 的简单示例

Question

我正在尝试使用 Delphi 的 Spring4d 框架，并且我想使用多播事件。在使用“正常”TNotifyEvent 时，它可以工作并且处理程序将被调用两次。

uses
  ...
  Spring,
  Spring.Events,
  Spring.Events.Base;

procedure TfrmMain.EventHandler1(Sender: TObject);
begin
  Log('called handler1');
end;

procedure TfrmMain.btnNotifyEventClick(Sender: TObject);
var
  MulticastEvent: TEvent<TNotifyEvent>;
begin
  MulticastEvent := TEvent<TNotifyEvent>.Create;
  try
    MulticastEvent.Add(EventHandler1);
    MulticastEvent.Add(EventHandler1);
    MulticastEvent.Add(EventHandler1);
    MulticastEvent.Remove(EventHandler1);
    MulticastEvent.Invoke;
  finally
    MulticastEvent.Free;
  end;
end;

但我不知道如何将这些多播事件与我自己的事件 TSyncEvent 一起使用。 EventHandler2 需要一个字符串。所以我想用文本调用 Invoke 方法。

type
  TSyncEvent = procedure(Sender: TObject; const iMsg: string) of object;

procedure TfrmMain.EventHandler2(Sender: TObject; const iMsg: string);
begin
  Log('called handler2: '+iMsg);
end;

procedure TfrmMain.btnSyncEventClick(Sender: TObject);
var
  MulticastEvent: TEvent<TSyncEvent>;
begin
  MulticastEvent := TEvent<TSyncEvent>.Create;
  try
    MulticastEvent.Add(EventHandler2);
    MulticastEvent.Add(EventHandler2);
    MulticastEvent.Invoke('text for handler2');
  finally
    MulticastEvent.Free;
  end;
end;

此代码无法编译并显示错误消息“方法调用的参数过多”。不幸的是，在框架或项目页面上没有使用多播事件的示例。我使用的是 Delphi 10.3.3 社区版。

谢谢。

Answer 1

你不应该使用 TEvent<T>来自 Spring.Events.pas 的类(class)因为它是一个实现细节，事实上，在 2.0 中它甚至不再存在，因为它被重构了。
相反，使用记录类型 Event<T>来自 Spring.pas .它不需要创建或销毁，因为它会自动执行。

在代码中更改它后，您会发现缺少 Sender争论。
按Ctrl+Shift+Space可以看到Invoke的参数- 它具有与 T 类型完全相同的签名你正在提供。

固定代码:

procedure TfrmMain.btnSyncEventClick(Sender: TObject);
var
  MulticastEvent: Event<TSyncEvent>;
begin
  MulticastEvent.Add(EventHandler2);
  MulticastEvent.Add(EventHandler2);
  MulticastEvent.Invoke(Sender, 'text for handler2');
end;