TWebBrowser和ProcessMessages

Question

与TWebBrowser工作示例代码通常插入一个循环调用Application.ProcessMessages,直到ReadyState为READYSTATE_LOADED.

例如,从Embarcadero论坛,一些代码将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事件.只有这样才能加载流中的实际内容.