delphi - 线程不接收消息

Question

我的 Delphi 应用程序中有一个线程有一个消息等待循环。每次它收到消息时，它就会开始做一些工作。该线程的执行过程如下:

procedure TMyThread.Execute;
begin
  while GetMessage(Msg, 0, 0, 0) and not Terminated do
  begin
    {thread message}
    if Msg.hwnd = 0 then
    begin
      ...
    end
    else
      DispatchMessage(Msg);
  end;
end;

使用我的应用程序进行一些测试，我发现 GetMessage 函数依赖于主线程。我的意思是，当主线程正在做一些工作时，我的线程中的 GetMessage 函数不会返回，即使它正在等待接收消息(该消息是由另一个线程使用 PostThreadMessage 函数发送的:PostMessage( MyThreadId, WM_MyMessage, 0, 0))。

只有当主线程完成其工作或调用 Application.ProcessMessages 方法时，GetMessage 才会返回并且我的线程开始执行其工作。实现这种线程间通信，我确信我的线程将独立工作，并且我绝不会期望直接发送到线程的消息的接收将依赖于主线程。

在进行测试时，我在主线程中使用了 WaitForSingleObject 函数，等待事件几秒钟。这时我注意到我的线程没有做任何工作，即使消息是由另一个线程发送给它的。当WaitForSingleObject函数最终完成等待并且主线程变得空闲时，我线程中的GetMessage函数返回。

有人可以解释一下为什么它会这样工作吗？有解决方法吗？我想让我的线程独立接收消息。我的所有线程都是由主线程创建的。可能是这个原因？

感谢您提前提供的帮助。

马吕斯。

<小时/>

Mghie，你又完全正确了(你可能还记得，你最近帮我处理了消息传递的事情)。正如您所建议的，GetMessage 立即返回，但实际上，线程在调用主窗口方法时挂起:

procedure TMyThread.Execute;
begin
  while GetMessage(Msg, 0, 0, 0) and not Terminated do
  begin
    {thread message}
    if Msg.hwnd = 0 then
    begin
      ...
      if Assigned(FOnCommEventMethod) then
        FOnCommEventMethod(FCommEventsQueueItem);
      ...
    end
    else
      DispatchMessage(Msg);
  end;
end;

FOnCommEventMethod 是对象的方法，声明为“对象的过程(EventMask:Cardinal)；” (该线程处理串行端口事件)。在本例中，FOnCommEventMethod 被分配了一个属于主窗体类的过程。当我的线程调用该方法时，线程将挂起，等待主线程完成其工作。

怎么会呢？正如您所看到的，我没有使用 Synchronize() 方法来调用此过程。因此我不希望我的线程与主线程同步。它是隐式发生的吗？顺便说一句，我知道除了主线程之外，任何 GUI 组件都不应该被任何其他线程访问，因此应该使用 Synchronize 方法，但我现在只做一些快速测试。

回到 WaitForSingleObject 主题，我知道我不应该使用它，但这只是一个测试，(碰巧)我注意到了这个问题。

感谢您的帮助。如果你不帮助我，我可能会放弃消息传递并使用事件，最后我会注意到这不是原因:-)。

Answer 1

Only when the main thread finishes its work or the Application.ProcessMessages method is called, does GetMessage return and my thread starts doing its work.

我怀疑这是否真的发生了。据我所知，只要您不使用其他同步线程的方法，例如 SendMessage()，两个消息循环应该彼此独立。您确定线程确实在 GetMessage() 内部阻塞，而不是在 Synchronize() 内部阻塞(内部使用 SendMessage() ) )？

Doing the tests I used the WaitForSingleObject function in the main thread, waiting for an event for a few seconds.

您绝对不应该在主线程中使用超时时间超过 100 毫秒的 WaitForSingleObject()，因为这会让您的 GUI 显得缓慢。事实上，我建议您根本不要在主线程中使用它，因为这只是轮询。请从您的工作线程中发布消息。