Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как подождать загрузки WebBrowser'a [D7, WinXP]


JanMihail ©   (2008-01-14 11:01:00) 

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

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

Но это очень грузит процессор.
Пробовал через OnDocumentComplete и OnBeforeNavigate2
тоже ничего не вышло. Не стабильно работает.
Подскажите пожалуйста как это можно сделать?


Barracuda   (2008-03-20 14:09:00) [1]

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


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

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


Сергей М.   (2008-01-14 11:09:00) [3]


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


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


Наверх

Титульная страница Поиск, карта сайта Написать письмо