Webbrowser ReadyState проблемы

← →
darkcoder (2009-07-17 15:16) [0]

Привет. Как сделать чтобы данная поцедура подождала полной загрузки документа?
то есть чтобы "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;

← →
Сергей М. © (2009-07-17 17:27) [1]

> Данный код с READYSTATE_COMPLETE вообще не хочет работать

Хм..
У меня хочет)
Спрашивается, чем таким я его умаслил ?

← →
darkcoder (2009-07-17 23:28) [2]

Сергей М. что за версия дельФи и ОС?

← →
int64 (2009-07-20 12:07) [3]

Если Webbrowser1 невидимый, то READYSTATE_COMPLETE может и не наступить.

← →
clickmaker © (2009-07-20 14:30) [4]

OnDocumentComplete

← →
cerber (2009-08-19 21:05) [5]

а как этот код должен работать на этапе создания формы если его задача по описанным условиям должна решаться на этапе OnDocumentComplete (написал clickmaker © (20.07.09 14:30) [4] )? Но если хочеш расширеного контроля - используй TEmbeddedWB - там есть на это проперти свой ивент)

READYSTATE_UNINITIALIZED
READYSTATE_LOADING
READYSTATE_LOADED
READYSTATE_COMPLETE

могут не работать с некоторыми версиями IE, во всяком случае до этого были проблемки

Webbrowser ReadyState проблемы Найти похожие ветки