Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

Как проконтролировать полную загрузку страницы в TWebBrowser? 


OGR   (2002-01-23 11:09) [0]

Собственно Сабж. Я делаю так:

while not WebBrowser1.Busy do Application.ProcessMessages;
while WebBrowser1.Busy do Application.ProcessMessages;

Это работает если запускать прогу в единственном экземпляре, а когда их много получается, что первая загрузившаяся страница сообщает ProcessMessages"ом всем экземплярам программы, что и их страницы полностью загрузились.
Можно ли подругому сделать контроль загрузки ?
Спасибо.



ValeraVV   (2002-01-23 12:18) [1]

у TWebBrowser есть такое событие OnNavigateComplete его и обрабатывай.



nikkie   (2002-01-23 12:22) [2]

странно как-то. попробуй что-нибудь вроде

HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
while HTMLDocument = nil or HTMLDocument.readyState <> "complete" do begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
Application.ProcessMessages;




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
1-9458            rgg                   2002-03-24 11:26  2002.04.04  
Работа со Speech api


6-9595            SemFLY                2002-01-21 19:31  2002.04.04  
Событие ClientSocketRead


1-9555            lipskiy               2002-03-24 00:54  2002.04.04  
Надо перехватить сообщение о копировании в буфер обмена от любого приложения.


1-9519            Tsatur Soft           2002-03-22 22:48  2002.04.04  
Чтение с дискеты


14-9633           Neox                  2002-02-23 11:45  2002.04.04  
Delphi6 Help