在 Delphi 中的事件处理程序上调用方法

Question

如下使用 SDK 的 C# 编写的代码示例（进程内 COM 对象） 我创建了一个类：TSwitcherMonitor，现在我必须将回调函数分配给我的对象属性：OnSwitcherDisconnected 属性。我在 C# 中有这个调用示例，注释讨论了 lambda 表达式的双重使用。我已经对此进行了谷歌搜索，似乎 Delphi 没有 lambda 表达式。

这是 C# 中的调用： Q1：有一种方法可以在 Delphi 中使用 invoke 方法执行相同的操作，还是我们必须以不同的方式执行此操作？

//Create callbacks object
  m_switcherMonitor := TSwitcherMonitor.Create(Application.Handle);
  // note: this invoke pattern ensures our callback is called in the main thread. We are making double
  // use of lambda expressions here to achieve this.
  // Essentially, the events will arrive at the callback class (implemented by our monitor classes)
  // on a separate thread. We must marshell these to the main thread, and we're doing this by calling
  // invoke on the Windows Forms object. The lambda expression is just a simplification./
  m_switcherMonitor.OnSwitcherDisconnected += new SwitcherEventHandler((s, a) => this.Invoke((Action)(() => SwitcherDisconnected())));

Q2：我唯一想要的就是在使用 SDK 时进行有效的回调。我的 TSwitcherEventHandler 声明是否正确？

作为参考，这里是我的 TSwitcherEventHandler 声明和我的 TSwitcherMonitor 类：

Type
{TSwitcherEventHandler}
  TSwitcherEventHandler = procedure(const sender: TObject; const args: TObject) of object;

{TSwitcherMonitor}
  TSwitcherMonitor = Class(TComObject, IBMDSwitcherCallback)
  private
    FHwnd: HWND;
    FSwitcherDisconnected: TSwitcherEventHandler;
  published
    constructor Create(hWnd: HWND);
  public
    function Notify(eventType: _BMDSwitcherEventType): HResult; stdcall;
    property OnSwitcherDisconnected: TSwitcherEventHandler read FSwitcherDisconnected write FSwitcherDisconnected;
  end;

implementation
{ TSwitcherMonitor }
constructor TSwitcherMonitor.Create(hWnd: HWND);
begin
  FHwnd:= hWnd;
end;

function TSwitcherMonitor.Notify(eventType: _BMDSwitcherEventType): HRESULT; stdcall;
begin
  if eventType = bmdSwitcherEventTypeDisconnected then
    if assigned(FSwitcherDisconnected) then
      FSwitcherDisconnected(self, nil);

  result := S_OK;
end;

Answer 1

我不是“Delphi 专家”，但正如许多人所说，Delphi Rocks 是舒尔！

C# 行：

m_switcherMonitor.OnSwitcherDisconnected += new SwitcherEventHandler((s, a) => this.Invoke((Action)(() => SwitcherDisconnected())));

在Delphi中可以简单地翻译为：

m_switcherMonitor.OnSwitcherDisconnected := switcherMonitor_OnSwitcherDisconnected;

现在我的示例应用程序可以工作了。 Delphi 使用指针做一些自动工作，当在 Delphi 中翻译 C# 或 C++ 代码时，只需将其写入更简单的表达式，Delphi 就可以完成这项工作。一开始，当我们试图了解事物的工作原理时，使用这种黑魔法很奇怪而且很难，但正如他们所宣传的那样，Delphi 无疑是真正的 RAD。