找出TSaveDialog缺少应用程序线程消息的原因

Question

使用RAD Studio(Delphi)v10.2.1(东京版本1)在Windows 10"Creators Update"64bit上进行开发,但是32位开发.

该应用程序是具有多个后台线程的VCL,每个线程使用Indy TidHTTP来获取网络资源.主线程和后台线程之间的同步使用消息队列(PostThreadMessage调用)实现.这很复杂,在这里提供直接代码将是困难和混乱的,所以我开始用口头描述.

应该发生什么:打开一个带有外部资源链接的文件,这会生成HTTP请求并将它们移交给后台处理,然后等待应用程序消息队列上的传入消息,说明资源已被下载.应用程序消息在分配给TApplication.OnMessage的事件代码中匹配(我怀疑,这是我的问题所在).

有用.一切都顺利进行.但是如果我打开一个TSaveDialog - 即使我取消了对话而不是实际做任何事情 - 那么应用程序消息队列中的消息就会丢失.

通过编写日志消息的过程(不可能直接调试,因为这会扰乱导致问题所需的时间)我已经知道后台线程确实发布消息(并从PostThreadMessage获得肯定的响应),但是他们永远不会出现在我的TApplication.OnMessage事件代码中.

我已经看到各种库中的一些偷偷摸摸的代码将建立自己的PeekMessage/TranslateMessage/DispatchMessage循环,但并非所有人都记得检查是否存在TApplication.OnMessage事件.但我刚刚搜索了VCL代码和我正在使用的十几个第三方库,并且没有发现任何这种情况会在这种情况下受到影响(据我所知).

注意:我使用的是madExcept,Indy,FastReport,AddictSpell,SynEdit,VclStyleUtils(在其他一些不太知名的库中)

注2:我想知道它是否与Delphi 10.2.1或Windows 10 Creator的更新有关,因为我也看到了一些其他奇怪的行为(第一个例外的长延迟或第一个TOpenDialog - 但仅限于某些应用程序)绝对不会发生10.1(我没有使用10.2.0).......但这可能(可能是)有所不同.

所以我的问题是:我能做些什么呢？

有关如何查找/验证是否有其他代码窃取应用程序消息的任何建议？我还应该搜索除PeekMessage之外的其他东西吗？

是否有其他方法可以拦截可能让我避免此问题的应用程序消息队列消息？

如果没有更好的选项显示自己,我可能不得不放弃使用应用程序线程消息并实现我自己的消息/同步系统,在其他时间让其他人工作得非常好之后我宁愿不做.

Answer 1

你提到PostThreadMessage.不要再犹豫了.除非您控制可能拉出线程消息的所有消息循环,否则您不能使用它.模态文件对话框消息循环不受控制.它将拉出用于不同消息循环的线程消息,而不知道如何处理它们.

解决方案很简单.将消息发布到窗口而不是线程.这样,所有理智的消息循环(模态文件对话框的消息循环都是健全的)将把消息分派到预期的收件人窗口.

在Delphi术语中,这将涉及使用AllocateHWnd或类似地创建隐藏窗口来接收消息.

Raymond Chen在这里讨论了这个主题:为什么PostThreadMessage发布的消息会消失？