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是有风险的，因为它会产生可重入性问题。(例如，如果用户单击表单上的Close按钮，则该消息可能由ProcessMessages处理，这样当函数返回时，TWebBrowser实例甚至不再存在。)

我的理解正确吗？

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

Answer 1

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

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