delphi - 线程化、带有 SendMessage 消息传递的 com+ 调用

Question

我有一个应用程序，它创建一个线程，通过 Windows 消息与主 UI 进行通信。它只是将消息发送到主应用程序线程并接收状态。

这样我就可以显示模式窗口并执行其他操作。

问题是当我必须显示一个调用 com+ 服务器的表单时。这样我就会收到 OLE 错误 8001010D:由于应用程序正在分派(dispatch)输入同步调用，因此无法进行传出调用。

我认为发生这种情况是因为主 SendMessage 正在使用中，并且 com+ 调用需要 Windows 消息传递来完成其任务。

无论如何，在delphi中我无法显示线程中的表单，但是我如何解决这个问题......？

谢谢

编辑:

1. 主(UI)2.一个线程

A.线程 (2) 向主线程 (1) 发送消息B. 主线程(1)接收消息并在让它返回到线程之前 它显示窗口。C、主线程中的模态窗口想要进行com+调用，出现上述错误。

<小时/>

1. 模态窗口位于哪个线程？ 2. COM调用来自哪个线程？ 3. COM对象是在哪个线程中实例化的？ 4.后台线程是否用STA初始化？ 5. 模态表单是从 SendMessage 处理程序中显示的吗？ – Roman R. 2 分钟前

   1. 主要
   2. 主要
   3. 主要
   4. CoInitializeEx(nil, COINIT_MULTITHREADED);
   5. 是的。

Answer 1

问题原因在于 COM 在处理 SendMessage 请求时无法编码(marshal)传出 COM 调用。出现的错误是您所指的RPC_E_CANTCALLOUT_ININPUTSYNCCALL (0x8001010D)。 我的印象是这仅适用于作为传入线程间 COM 请求一部分的 SendMessage 调用，但这可能是一个错误的假设。

典型的解决方法是将 SendMessage 替换为 PostMessage，然后等待同步对象、事件或信号量。这样，您的调用者后台线程不会保存消息来同步调用并自主等待，在主线程上，消息通过常规消息队列调度并最终到达相同的处理程序。

作为奖励，您可以选择安全终止后台线程。如果当前它被 SendMessage API 锁定等待模式对话框，建议的更改将让您从主线程向同步对象发出信号并让它继续运行，例如如果您想安全地终止它。

另一种解决方案可能是调用 InSendMessage 函数，如果为 true - 推迟模式 UI，例如再次向自己发送一条消息，以便稍后在另一个消息处理程序中弹出该表单。