多线程 – 如何管理线程的返回值？

我创建了一个派生自TThread的类,在后台执行查询.

我希望这个类与客户端分离.

这种线程的目的是执行一个简单的检查(像当前连接到应用程序的用户数量,而不会阻塞UI),所以一个简单的想法是使用同步方法.

无论如何,因为我想要它去耦合,我传递一个类型的参数的构造函数

TSyncmethod: procedure of object;

其中TSyncmethod是客户端上的一种方法(在我的情况下是一种形式).

无论如何我可以将值传递给TSyncmethod？我应该把结果写在一些“全球的地方”,然后在我的TSyncmethod里面我检查一下？

我也试过想到

TSyncmethod: procedure(ReturnValue: integer) of object;

当然当我打电话给Synchronize(MySyncmethod)时,我无法传递参数.

解决方法

对于这样一个简单的例子,您可以将所需的值放入线程的成员字段(或甚至到线程自己的ReturnValue属性),然后使用中间线程方法执行回调,然后可以将其传递给回调的值.例如：

type
  TSyncmethod: procedure(ReturnValue: integer) of object;

  TQueryUserConnected = class(TThread)
  private
    FMethod: TSyncmethod;
    FMethodValue: Integer;
    procedure DoSync;
  protected
    procedure Execute; override;
  public
    constructor Create(AMethod: TSyncmethod); reintroduce;
  end;

constructor TQueryUserConnected.Create(AMethod: TSyncmethod);
begin
  FMethod := AMethod;
  inherited Create(False);
end;

procedure TQueryUserConnected.Execute;
begin
  ...
  FMethodValue := ...;
  if FMethod <> nil then
    Synchronize(DoSync);
end;

procedure TQueryUserConnected.DoSync;
begin
  if FMethod <> nil then
    FMethod(FMethodValue);
end;