delphi - TWebBrowser 和 ProcessMessages

Question

使用 TWebBrowser 的示例代码通常会插入一个循环来调用 Application.ProcessMessages，直到 ReadyState 为 READYSTATE_LOADED。

例如，来自Embarcadero forums ，一些将 HTML 字符串加载到 TWebBrowser 中的代码:

mWebBrowser->Navigate(L"about:blank");
while (mWebBrowser->ReadyState< READYSTATE_LOADED)
   Application->ProcessMessages();

// load mWebBrowser from TStreamAdapter

据我了解，调用 ProcessMessages 是有风险的，因为它可能会产生重入问题。 (例如，如果用户单击表单上的“关闭”按钮，则该消息可以由 ProcessMessages 处理，这样当函数返回时，TWebBrowser 实例甚至不再存在。)

我的理解正确吗？

如果是这样，是否有一种“安全”的方法来处理 TWebBrowser 处理消息的需求，而没有 ProcessMessages 的风险？或者我是否需要将所有 TWebBrowser 代码重新设计为异步？

Answer 1

您根本不需要调用ProcessMessages。您可以让主应用程序消息循环处理消息。

但是这里的代码在执行下一个任务之前等待页面加载。为了保留这种行为，您可以切换到异步事件驱动方法。删除循环并改为处理浏览器的 OnDocumentComplete 事件。只有这样，您才能从流中加载实际内容。