我正在实现一个需要以下功能的线程:
- 及时响应终止请求
- 泵送消息
- 在等待消息时保持对 SendMessage 请求的响应
我最初使用的消息泵实现GetMessage如下:
while not Terminated and GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
我发现的问题是,除非有消息,否则 GetMessage 永远不会返回。这意味着,如果消息活动较低,则可能需要很长时间才能Terminated再次检查。
我的第二个实现(受此答案启发)过去常常MsgWaitForMultipleObjects等到消息存在后再检查(因为它有超时)
while not Terminated do
begin
if MsgWaitForMultipleObjects(0, nil^, False, 1000, QS_ALLEVENTS) = WAIT_OBJECT_0 then
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
end;
我发现的问题是MsgWaitForMultipleObjects它在等待时阻塞了线程。因此,当一条消息通过 发送到线程时SendMessageTimeout,它会超时,而使用GetMessage.
想到的解决方案是回到GetMessage实现,但添加一个计时器以确保WM_TIMER消息每秒重置循环。
这真的是唯一的方法吗?似乎应该有一些更好的方法来让线程在等待消息时保持响应。