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

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

Как после события TWebBrowser DownloadComplete вернуться в цикл! [D7, WinXP]

Страницы:   < 1 2 >

Lamer666 ©   (2007-12-05 12:00:00) 

Доборый день уважаемые!

While AdoQuery1.Eof=False do begin
 ...
{Тут заполняю форму в TWEBBrowser-e}
 ...
FormItem.Item(j).click;{Щелкаю на кнопку чтобы сохранить данные}

В ЭТОМ месте мне надо узнать, сохранились ли данные корректно или НЕКОРРЕКТНО
Для этого предпологаю дождаться пока прогрузится cтраничка TWEBBROWSER-а
Вопрос: Как мне вернуться в этом местото цикла после события TWebBrowser DownloadComplete?
Возможно есть какая то альтернатива?
...

end;
Спасибо!

---

Сергей М.   (2007-12-05 14:29:00) [21]

Ну тады пробуй так:

with WebBowser do
while Busy or (ReadyState<>READYSTATE_COMPLETE) do begin
 sleep(0);
 Application.ProcessMessages
end;


---

Lamer666   (2007-12-05 14:22:00) [22]

Чето не работает!
: (

---

Сергей М.   (2007-12-05 13:34:00) [23]

while WebBowser.Busy do begin
sleep(0);
Application.ProcessMessages
end;

---

Lamer666   (2007-12-05 13:00:00) [24]

Формулировка немного изменилась:
 
 FF('_contractDate',DateToStr(Date),WebBrowser1);
 BtnClick('_search',WebBrowser1); {Щелкаю на кнопку}
Как в ЭТОМ МЕСТЕ ПОДОЖДАТЬ ПОКА ПРОГРУЗИТЬСЯ WEBBROWSER?И только потом продолжать выполнение команд! ShowMessage(WebBrowser1.OleObject.Document.all.tags('TABLE').Item(3).Rows.Item(0 ).Cells.Item(0).InnerText);
...
...
...


---

Страницы:   < 1 2 >

Наверх