时序和 VCL 同步（在/从线程）

Question

我想刷新 Treenode.text（带有经过的时间）并使用来自同一线程的计时器。正如我所读到的，它不建议在线程中使用 TTimer*，但是，用什么来代替呢？谢谢。

*我想使用一些时间而不是 sleep()。不仅因为那很俗气（？），而且我必须这样做，否则我只能在每一秒内刷新 treenodetext。）>>

unit master_slave

...

Tsrch_slave_thread = class(TThread)   
protected
  procedure Execute; override;
public
  master: TMaster;         
end;

TMaster = class(TObject)
private
  ...
  FMasterNode: TTreeview; 
  Fsw: TStopWatch;
  Fslave_search_thread : Tsrch_slave_thread;
  ...
end;

...

implementation

...

procedure Tsrch_slave_thread.Execute;
var
  searchactive: integer;
begin
  while not terminated do begin
    searchactive := master.CMD_LISTCNT 
    if searchactive = 1 then //(master.CMD_LISTCNT's return value = 1, if master finished search on the bus)
      exit;
    sleep(1000); //dont want to flood the master with UDP packets... (master.CMD_LISTCNT sends UDP packets)
    synchronize(procedure begin
      with FmasterNode do  
        text := text + floattostr(Fsw.ElapsedMilliseconds / 1000);
    end);
  end;
end;

Answer 1

使用可等待事件代替Sleep(1000)。

例如TSimpleEvent。

FMySimpleEvent.WaitFor(1000);

如果你想提前退出线程，重写TThread.DoTerminate方法并调用：

FMySimpleEvent.SetEvent;

类似这样的：

procedure Tsrch_slave_thread.Execute;
var
  searchactive: integer;
begin
  while not terminated do begin
    searchactive := master.CMD_LISTCNT 
    if searchactive = 1 then (master.CMD_LISTCNT's return value = 1, if search finished)
      exit;
    if (FMySimpleEvent.WaitFor(1000) = wrTimeOut) then
      synchronize(procedure begin
        with FmasterNode do  
          text := text + floattostr(Fsw.ElapsedMilliseconds / 1000);
      end);
  end;
end;

procedure Tsrch_slave_thread.DoTerminate;
begin
  Inherited;
  FMySimpleEvent.SetEvent;
end;

Answer 2

您可以在线程中使用计时器，但不能使用TTimer。您必须根据SetTimer 自己制作。而且您还需要创建自己的窗口来处理消息，因为您不能在线程中使用AllocateHWnd。现在，如果您知道不会显示任何模态对话框或运行任何模态大小循环或模态菜单循环，那么您可以使用无窗口计时器。

但这一切都迫使您在线程中实现消息循环。这增加了另一层复杂性。在后台线程中实现计时器是阻塞方法合理的少数场景之一。我建议你采用这种方法。

如果您的时间间隔足够短，那么您可以使用Sleep。缺点是您需要等待对Sleep 的调用返回，然后才能终止线程。因此，对于较长的时间间隔，这可能是一个问题。

如果您希望能够立即终止，您可以使用WaitForSingleObject 或SyncObjs 单元中定义的事件类之一来等待超时事件，而不是使用Sleep。如果超时时间过去，则您的计时器已经过去。如果事件发出信号，那么您的线程应该会终止。