![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ожидание documentcomplete
syte_ser78 © (2006-09-26 14:42:00)Есть следующая задача:
Имеется массив адрессов которые необходимо загрузить в tWebBrowser
Как дождаться события documenrcomplete перед загрузкой следующего адресса?
В смысле
for i:=1 to x
begin
webbrowser.navigate(adress[i]);
// ждем documentcoplete
end;
syte_ser78 (2006-09-26 15:19:00) [1]clickmaker © (26.09.06 15:14) [4]
Большое спасибо!
clickmaker (2006-09-26 15:14:00) [2]
> [3] syte_ser78 © (26.09.06 15:11)
ну примерно. Только пустые циклы ожидания не стоит делать.
либо так
while not go do begin
Application.ProcessMessages;
Sleep(100);
end;
либо создать событие
ev := TEvent.Create;
wb.nawigate(adress[i]);
ev.WaitFor;
wb.onDocumentComplete;
begin
ev.SetEvent;
end;
syte_ser78 (2006-09-26 15:11:00) [3]clickmaker © (26.09.06 14:51) [1]
Насколько я Вас понял (и как делал раньше) это выглядит примерно так
wb.onDocumentComplete;
begin
go:=1;
end;
procedure update;
begin
for i:=a to b do
begin
go:=0;
wb.nawigate(adress[i]);
while go=0 do
begin
end;
end;
end;
syte_ser78 (2006-09-26 14:59:00) [4]в цикле будут подставлятся адреса с различными гетпатхами
webbrowser.navigate(/client/post?topic_id='а это меняем');
clickmaker (2006-09-26 14:51:00) [5]эээ... обработчик события OnDocumentComplete
только непонятно, зачем в цикле менять адреса?