Ожидание загрузки страницы!

← →
JanMihail © (2007-05-31 18:48) [0]

Уважаемые мастера! Помогите справится с такой задачей. Мне нужно организовать задержку программы до тех пор, пока не загрузится страница в компоненте TWebBrowser. Делаю так:

procedure Start; label Nachalo; begin Nachalo: //тут много кода ........................ while WebBrowser1.ReadyState <> 4 do Application.ProcessMessages; WebBrowser1.Navigate("новая страница"); goto Nachalo; end;

Но такой цикл очень сильно грузит процессор. Но проблема еще в том что после первого прохода процедуры все нормально. Параметр ReadyState становится равным 4, дальше я назначаю WebBrowserу новую страницу. Иду в начало, а цикл не выполняется, т.к. параметр ReadyState еще не успел поменять свое значение с 4 на 1, а цикл уже прошел и ожижать загрузки он не стал.
Не подскажете, как вообще это реализовать рационально?. Заранее спасибо!!!

← →
G_M_S © (2007-05-31 18:51) [1]

> Мне нужно организовать задержку программы до тех пор, пока
> не загрузится страница в компоненте TWebBrowser.

while WebBrowser1.Busy do Application.ProcessMessages;

← →
TStas © (2007-06-01 16:44) [2]

Или OnNawigate использовать

← →
clickmaker © (2007-06-01 16:50) [3]

OnDocumentComplete

← →
DVM © (2007-06-01 16:51) [4]

> while WebBrowser1.Busy do Application.ProcessMessages;

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

function TfrmMain.GetPlainText(const HTMLStr: string): string; var sTemp : string; Doc : IHTMLDocument2; V : Variant; begin sTemp := HTMLStr; if wbTransformer.Document = nil then begin wbTransformer.Navigate("about:blank"); repeat Application.ProcessMessages; until wbTransformer.Document <> nil; end; Doc := IHTMLDocument2(wbTransformer.Document); v := VarArrayCreate([0, 0], varVariant); v[0] := sTemp; Doc.write(PSafeArray(TVarData(v).VArray)); Doc.close; Result := Doc.body.outerText; end;

> Это по-твоему задержка?

Поставь вместо "Application.ProcessMessages" просто ";", если не надо ожидать каких-либо действий юзера.

Ожидание загрузки страницы! Найти похожие ветки