Question

各种答案表明，在线程中睡觉是个坏主意，例如：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;

但这仍然涉及睡眠......

Answer 1

执行此操作的标准方法是等待取消事件。在伪代码中，如下所示：

richTextBox1

要终止，您将覆盖while not Terminated do begin // Check for new files // ... // Rest a little before spinning around again FTerminationEvent.WaitFor(TenSeconds); end;：

TerminatedSet

事件等待超时，或因事件发出信号而终止。这允许您的线程暂停一段时间而不会给CPU带来负担，同时还能保持对终止请求的响应。

Answer 2

如果这是我的工作，我想我会用一个带有TTimer的包装类来解决它，每隔10秒产生一个新线程。

产生一个新线程有点代价，但如果它只是你每隔10秒做一次，那么主线程的性能可以忽略不计，我认为。

步骤：

创建一个包装类，TMyFileSearcher。
让它包含一个TTimer。
每次定时器点击，产生一个新线程并搜索文件。
向TMyFileSearcher添加OnTerminate处理程序，以处理返回的文件。

还有一些其他注意事项，例如跟踪是否已生成线程，以便在旧线程运行时不创建新线程。

但是，除此之外，我认为应该非常直接地实施。

替代睡在线程内

2 个答案: