Delphi 队列和同步

Question

我正在在线阅读 Nick Hodges，我发现了队列，但它的行为与我预期的不同，我无法理解他和文档所说的内容。看这段代码：

 TThread.CreateAnonymousThread(
  procedure
   begin

     TThread.Queue(TThread.Current, procedure
                                          begin
                                           Memo1.Lines.Clear;
                                           Memo1.Lines.Add('start');
                                          end);

     Sleep(2000);

     TThread.Synchronize(TThread.Current, procedure
                                          begin
                                           Memo1.Lines.Add('end');
                                          end);

   end
 ).Start;

我总是使用Synchronize，但这次我尝试使用Queue，因为根据尼克的说法，在多个请求的情况下会更好，因为它们不会被“序列化”并一一执行。上面的代码工作正常。为什么这不起作用？

 TThread.CreateAnonymousThread(
  procedure
   begin

     TThread.Queue(TThread.Current, procedure
                                          begin
                                           Memo1.Lines.Clear;
                                           Memo1.Lines.Add('start');
                                          end);

     Sleep(2000);

     TThread.Queue(TThread.Current, procedure
                                          begin
                                           Memo1.Lines.Add('end');
                                          end);

   end
 ).Start;

在这种情况下，备忘录输出start，但不是结尾。当我打电话时：

• 第一个同步，第二个同步
• 第一个队列，第二个同步
• 两次排队都不起作用，因为我在备忘录中只看到了start

Answer 1

队列和同步的区别在于Synchronize()将调用放入队列并等待调用完成，Queue()将调用放入队列并直接将控制权返回给线程。

然而……这在官方文档中没有提到，当一个线程完成时，所有的调用都放在Queue(AThread, AMethod)的队列中，其中AThread是它的自己的 线程，被删除。

您可以在TThread.Destroy() 的源代码中清楚地看到，其中调用了RemoveQueuedEvents(Self)。

RemoveQueuedEvents 删除排队的方法调用。 [...] 如果指定了 AThread，则该线程排队的所有方法调用都将被删除。

因此，在您的最后一个 Queue() 线程结束后，立即执行 TThread.Destroy() 并且最后一个调用从队列中删除。

你可以做一些事情来解决这个问题。

• 如 cmets 中所述，您可以致电 TThread.Queue(nil, AMethod)。顺便提一句。调用 TThread.Queue(AMethod) 与 TThread.Queue(Self, AMethod) 相同，因此如果线程即将结束并且您希望调用结束，您将始终需要使用 nil 变体。
• 但是...如果您在执行调用时仍然需要线程处于活动状态（对于其中的一些数据），您需要阻止线程退出。您可以通过使用Synchronize() 作为最后一个队列方法来做到这一点。请注意，最后一次同步不必是真正的过程。您可以在TThread.Execute 的末尾调用同步到一个虚拟程序，例如Synchronize(DummySync) (example)。如果队列是 FIFO，那么线程将等待，直到队列中的所有调用都被处理（包括空的 dummysync）。

可以在这些页面上找到一些额外的信息
Ensure all TThread.Queue methods complete before thread self-destructs
http://www.uweraabe.de/Blog/2011/01/30/synchronize-and-queue-with-parameters/