Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

14th
Ноя

Как в цикле дождаться загрузки webbrowser и продолжить работу

Posted by Chas under Delphi

Есть цикл который вызывается нажатием кнопки. При помощи данный кнопки открываться сайт в компоненте WebBrowser, В ListBox1 хранятся слова для поиска, URL это адрес открываемой страницы, когда сробатывает WebBrowser1.Navigate(URL); вызывается событие. Оно нужно что бы дождаться окончания загрузки страницы, после чего в этом событии вызывается функция parsing, она парсит страницу. дожидался пока выполнится procedureTForm1.WebBrowser1Document Complete , а как выполниться продолжал работать (увеличивал i).

bakanaev
вопрос решен так

procedure TForm1.Button1Click(Sender: TObject);

begin

   ProgressBar1.Min := 1;

   ProgressBar1.Max := ListBox1.Items.Count ;

   i:=0;

        while i <> ListBox1.Items.Count do

          begin

           if stop =true then

           begin

               stop:= false;

                ProgressBar1.Position := i;

                 Application.ProcessMessages();

                  URl:=S_Edit1+S_Edit2+ListBox1.Items+S_Edit4;

                   WebBrowser1.Navigate(URL);

              Label4.Caption:=IntToStr(i+1);

           Application.ProcessMessages();

          inc(i);

           end

           else Application.ProcessMessages();

     end;
end;