indy - IdNotify：如何将参数传递给函数

Question

经过长时间的斗争，我安装了带有 lazarus 的代码台风，我设法将单元 IdSync 包含到我的项目中。

如何将参数传递给要在 TIdNotify 的主线程中执行的函数？

Answer 1

你必须重写 TIdNotify.DoNotify() 方法，然后你可以传递你想要的任何参数，例如：

type
  TMyNotify = class(TIdNotify)
  protected
    procedure DoNotify; override;
  end;

procedure TMyNotify.DoNotify;
begin
  SomeFunction(parameters);
end;

.

begin
  ...
  TMyNotify.Create.Notify;
  ...
end;

大概，您希望调用线程指定参数值，因此只需将它们设为类的成员，例如：

type
  TMyNotify = class(TIdNotify)
  protected
    Param1: SomeType;
    Param2: SomeType;
    Param3: SomeType;
    procedure DoNotify; override;
  end;

procedure TMyNotify.DoNotify;
begin
  SomeFunction(Param1, Param2, Param2);
end;

.

begin
  ...
  with TMyNotify.Create do
  begin
    Param1 := ...;
    Param2 := ...;
    Param3 := ...
    Notify;
  end;
  ...
end;