各种答案都表明在一个线程内睡觉是一个坏主意,例如：
Avoid sleep.为什么这么做？经常给出的一个原因是,如果正在休眠,很难优雅地退出线程(通过发信号通知它终止).
假设我想定期检查网络文件夹中的新文件,可能每10秒检查一次.这对于优先级设置为低(或最低)的线程来说似乎是完美的,因为我不希望可能耗时的文件I / O影响我的主线程.
有哪些替代方案？代码在Delphi中给出,但同样适用于任何多线程应用程序：
procedure TNetFilesThrd.Execute();
begin
try
while (not Terminated) do
begin
// Check for new files
// ...
// Rest a little before spinning around again
if (not Terminated) then
Sleep(TenSeconds);
end;
finally
// Terminated (or exception) so free all resources...
end;
end;
一个小修改可能是：
// Rest a little before spinning around again
nSleepCounter := 0;
while (not Terminated) and (nSleepCounter < 500) do
begin
Sleep(TwentyMilliseconds);
Inc(nSleepCounter);
end;
但这仍然涉及睡眠……
解决方法
执行此操作的标准方法是等待取消事件.在伪代码中看起来像这样：
while not Terminated do begin // Check for new files // ... // Rest a little before spinning around again FTerminationEvent.WaitFor(TenSeconds); end;
要终止,您将覆盖TerminatedSet：
procedure TMyThread.TerminatedSet; begin inherited; FTerminationEvent.SetEvent; // abandon the wait in the thread method end;
事件的等待时间超时,或因事件发出信号而终止.这允许您的线程暂停一段时间而不会给cpu带来负担,同时还能保持对终止请求的响应.
