Как определить, когда TWebBrowser закончит загрузку страницы?

Question

Как узнать, что TWebBrowser уже завершен, чтобы загрузить страницу? Моя проблема: я не знаю, когда моя страница была полностью загружена, и это может быть показано ...

Я прошу одну страницу на свой веб-браузер и хочу показать ответ только в том случае, если страница была полностью загружена. ..

Answer 1

Вы можете попробовать обработать событие OnDocumentComplete.

Если сайт использует сценарии для запуска загрузки дополнительных данных, возможно, вам понадобится employ more sophisticated methods, так как событие будет срабатывать до того, как страница завершит выполнение всех своих скриптов. В общем, задача начинает выглядеть как проблема с остановкой. Возможно, вы захотите уточнить свое определение «полностью загружено», чтобы исключить некоторые случаи с трудными для обнаружения.

Answer 2

Источник: http://www.delphifaq.com/faq/delphi/network/f264.shtml

Действительно, в случае нескольких кадров, OnDocumentComplete увольняют несколько раз. Не каждый кадр запускает это событие, но каждый кадр, который запускает событие DownloadBegin, запускает соответствующее событие DocumentComplete.

Как можно распознать «реальное завершение»?

Событие OnDocumentComplete отправляет параметр pDisp: IDispatch, который является IDispatch фрейма (shdocvw), для которого запускается DocumentComplete. Кадр верхнего уровня запускает DocumentComplete в конце.

Итак, чтобы проверить, была ли загружена страница, вам нужно проверить, является ли pDisp такой же, как IDispatch элемента управления WebBrowser.

Вот что ниже код демонстрирует:

procedure IForm1.WebBrowser1Documentccmplete(Sender: Iobject: 
const pDisp: Inispatch; var URL: OLEvariant): 
var 
Curwebrowser : IWebBrowser: 
IopWebBrowser: IWebBrowser: 
Document : OLEvariant; 
WindowName : string: 
begin { TForm1.WebBrowser1DocumentComplete } 
Curwebrowser := pDisp as IWebBrowser: 
TopWebBrowser := (Sender as IWebBrowser).DefaultInterface; 
if CurWebrowser=TopWebBrowser then 
begin 
ShowMessage('Document is complete.') 
end 
else 
begin 
Document := CurWebrowser.Document; 
WindowName := Document.ParentWindow.Name: 
ShowMessage('Frame ' + WindowName + ' is loaded.') 
end: 
end;