我创建了一个派生自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;
