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 браузера. Только тогда вы загружаете фактический контент из своего потока.