Скачать: CL | DM;

Как проконтролировать полную загрузку страницы в 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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c