Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Webbrowser ReadyState проблемы

Автор: darkcoder 17.7.2009, 14:10

Привет. Как сделать чтобы данная поцедура подождала полной загрузки документа?
то есть чтобы 'all done' появлялось только после загрузки.
Данный код с READYSTATE_COMPLETE вообще не хочет работать.

Код


procedure TForm1.FormCreate(Sender: TObject);
begin

Memo1.Lines.Add('start');

WebBrowser1.Navigate('http://google.com');

 while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;

Memo1.Lines.Add('all done');

end;

Автор: Crw 17.7.2009, 17:20

Лучше делать перехват DISPID_DOCUMENTCOMPLETE.

Автор: Keeper89 17.7.2009, 20:05

Что значит подождала? Если что-то должно выполнится после загрузки, можно вставить это в событие OnDocumentComplete.