Как подождать загрузки WebBrowser a

← →
JanMihail (2008-01-14 11:01) [0]

Есть такой код

procedure GetUsers;
begin
...здесь код...
WebBrowser1.Navigate(URL);
...здесь нужно подождать загрузки страницы...
...дальше код...
end;
Как дождаться загрузки? Пробовал циклами такими
while WebBrowser1.ReadyState = 4 do
Application.ProcessMessages;
while WebBrowser1.ReadyState <> 4 do
Application.ProcessMessages;
Но это очень грузит процессор.
Пробовал через OnDocumentComplete и OnBeforeNavigate2
тоже ничего не вышло. Не стабильно работает.
Подскажите пожалуйста как это можно сделать?

← →
Сергей М. © (2008-01-14 11:09) [1]

> это очень грузит процессор

Добавь в тело цикла строчку
sleep(0)

← →
Lamer666 (2008-01-15 12:54) [2]

...
Application.ProcessMessages;
While WebBrowser1.Busy do
begin
sleep(0);
Application.ProcessMessages;
end;
...

← →
Barracuda (2008-03-20 14:09) [3]

Спасибо, помогло! :)
Искал такое же решение проблемы.

Как подождать загрузки WebBrowser a Найти похожие ветки