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

TWebBrowser.OnDocumentComplete   Найти похожие ветки 

← →
3asys   (2002-09-23 12:00) [0]

Есть TWebBrowser, с событием OnDocumentComplete которого связан некий код.
В режиме отладки обнаружил, что при загрузке в цикле страниц в TWebBrowser из списка, сначала выполняется весь цикл, т.е. последовательно загружаются все страницы, и только потом выполняется (1 раз естесственно) код из OnDocumentComplete.
Мне необходимо, чтобы код из OnDocumentComplete выполнялся после каждой загрузки страницы (для каждой страницы соответственно).
Что здесь можно сделать?

С Уважением, 3asys

---

← →
3asys   (2002-09-23 15:55) [1]

Т.е. необходимо, чтобы начав загрузку страницы WebBrowser дождался ее полной загрузки, затем передал управление коду OnDocumentComplete и после его отработки управление вернулось в основной цикл загрузки страниц в WebBrowser.

С Уважением, 3asys

---

← →
qube ©   (2002-09-23 15:58) [2]

Здесь не с событием проблемы, а с циклом. Метод Navigate не дожидается окончания загрузки, поэтому и событие OnDocumentComplete происходит один раз.

---

← →
3asys   (2002-09-23 16:11) [3]

Вот в том и вопрос, как сделать так, чтобы дожидался -) либо что здесь вообще можно сделать.

С Уважением, 3asys

---

← →
qube ©   (2002-09-23 16:22) [4]

Можно попробовать так (навскидку):

Urls: array [1..N] of string = ("www.site1.com", ....);
index: integer;

procedure TForm1.WebBrowser1DocumentComplete(...);
begin
/// обработка
///....
inc(index);
if index<N then
WebBrowser1.Navigate(Urls[index]);
end;

---

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

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



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