Конференция "Сети" » Как после события TWebBrowser DownloadComplete вернуться в цикл! [D7, WinXP]
 
  • Lamer666 (10.12.07 19:14) [20]
    Так что то НИЧЕГО и не получаеться : (
    И все же как организовать цикл (перебор записей ADOQuery) с ожиданием прогрузки WebBrowser-а для переходна к седующей записи?
  • Сергей М. © (11.12.07 08:17) [21]
    Показывай код ..
  • ЮЮ © (11.12.07 11:55) [22]
    > ТУТ WebBrowser1 еще не отправляет данные (почему то)}
    > While WebBrowser1.Busy or (WebBrowser1.ReadyState<>READYSTATE_COMPLETE)
    > do begin
    >  sleep(0);
    >  Application.ProcessMessages;
    > end;
    > ShowMessage(WebBrowser1.OleObject.Document.all.tags('TABLE')
    > .Item(3).Rows.Item(0 ).Cells.Item(0).InnerText);
    > end;
    > {А ВОТ ТУТ НАЧИНАЕТ ОТПРАВКУ ДАННЫХ}


    Потому что мменно Application.ProcessMessages позволяет тебе временно приостановить данный код и "нагрузить" WebBrowser1, а ты проверяешь WebBrowser1.Busy до Application.ProcessMessages. Замени While на repeat или дополни выражение так, чтобы хоть раз тело цикла выполнилось.
  • Lamer666 (11.12.07 20:08) [23]

    > ЮЮ ©   (11.12.07 11:55) [22]

    Сейчас БУДУ ПРОБОВАТЬ.
    Большое спасибо: ЮЮ и Сергей М.
    : ))
  • Lamer666 (11.12.07 22:24) [24]
    Супер!
    Application.ProcessMessages;
    While WebBrowser1.Busy do begin
     sleep(0);
     Application.ProcessMessages;
    end;

    НА УРА работает!
    Спасибо большое ЮЮ и Сергей М.
 
Конференция "Сети" » Как после события TWebBrowser DownloadComplete вернуться в цикл! [D7, WinXP]
Есть новые Нет новых   [134431   +10][b:0][p:0.001]