-
darkcoder (17.07.09 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; -
Сергей М. © (17.07.09 17:27) [1]
> Данный код с READYSTATE_COMPLETE вообще не хочет работать
Хм..
У меня хочет)
Спрашивается, чем таким я его умаслил ? -
darkcoder (17.07.09 23:28) [2]Сергей М. что за версия дельФи и ОС?
-
int64 (20.07.09 12:07) [3]Если Webbrowser1 невидимый, то READYSTATE_COMPLETE может и не наступить.
-
clickmaker © (20.07.09 14:30) [4]OnDocumentComplete
-
cerber (19.08.09 21:05) [5]а как этот код должен работать на этапе создания формы если его задача по описанным условиям должна решаться на этапе OnDocumentComplete (написал clickmaker © (20.07.09 14:30) [4] )? Но если хочеш расширеного контроля - используй TEmbeddedWB - там есть на это проперти свой ивент)
-
READYSTATE_UNINITIALIZED
READYSTATE_LOADING
READYSTATE_LOADED
READYSTATE_COMPLETE
могут не работать с некоторыми версиями IE, во всяком случае до этого были проблемки