使用带有 TIdSync 的匿名函数

Question

基于此answer，我可以将我的函数与主线程同步。感谢answer，我也可以传递参数。但问题是我必须为各种过程声明多个类，因为参数不同（计数或类型）。

问：我可以将匿名函数与 TIdSync（或任何其他解决方案）一起使用，从而无需为各种过程定义多个类吗？

Answer 1

TIdSync 和 TIdNotify 不支持匿名过程/函数，因为这将是多余的，因为 TThread.Synchronize() 和 TThread.Queue() 本身支持匿名过程（并且它们具有不需要 TThread 对象的静态重载，当您使用非 RTL 线程时）。例如：

procedure TMyThread.Execute;
begin
  ...
  Synchronize(
    procedure
    begin
      SomeFunction(Param1, Param2, Param2);
    end
  ...
  Queue(
    procedure
    begin
      SomeFunction(Param1, Param2, Param2);
    end
  );
  ...
end;

// CreateThread() procedure
function MyThreadProc(pv: Pointer): DWORD; stdcall;
begin
  ...
  TThread.Synchronize(nil,
    procedure
    begin
      SomeFunction(Param1, Param2, Param2);
    end
  );
  ...
  TThread.Queue(nil,
    procedure
    begin
      SomeFunction(Param1, Param2, Param2);
    end
  );
  ...
  Result := 0;
end;

TIdSync 只是 TThread.Synchronize() 的包装器，TIdNotify 只是 TThread.Queue() 的包装器。它们是在所有TThread 可用的时间都是非静态非匿名Synchronize() 方法时引入的。随着在 TThread 中引入静态方法和匿名过程，它现在几乎可以完成 TIdSync 和 TIdNotify 设计的所有工作，从而降低了它们的相关性（当然它们仍然有效）。