Как циклу дождаться выполнения процедуры

[bakanaev]

Такая вот загвоздка. Есть цикл который вызывается нажатием кнопки

procedure TForm1.Button1Click(Sender: TObject);
begin
   ProgressBar1.Min := 1;
   ProgressBar1.Max := ListBox1.Items.Count ;
       i:=0;
        for I := 0 to ListBox1.Items.Count - 1 do
          begin
             ProgressBar1.Position := i+1;
              Application.ProcessMessages();
               URl:=S_Edit1+S_Edit2+ListBox1.Items[i]+S_Edit4;
                WebBrowser1.Navigate(URL);
                 Label4.Caption:=IntToStr(i+1);
                  Application.ProcessMessages();
         end;
 end;

При помощи данный кнопки открываться сайт в компоненте WebBrowser,
В ListBox1 хранятся слова для поиска, URL это адрес открываемой страницы,
когда сробатывает WebBrowser1.Navigate(URL); вызывается событие

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
if string(url)=URL then
  begin
   parsing(Memo2 ,WebBrowser1 ,Memo1 , Label8 ,Label10 );
  end;
end;

Оно нужно что бы дождаться окончания загрузки страницы, после чего в этом событии вызывается функция parsing, она парсит страницу.

Суть вот в чем, как мне сделать что бы цикл

for I := 0 to ListBox1.Items.Count - 1 do
          begin
             ProgressBar1.Position := i+1;
              Application.ProcessMessages();
               URl:=S_Edit1+S_Edit2+ListBox1.Items[i]+S_Edit4;
                WebBrowser1.Navigate(URL);
                 Label4.Caption:=IntToStr(i+1);
                  Application.ProcessMessages();
         end;

дожидался пока выполнится procedureTForm1.WebBrowser1Document Complete , а как выполниться продолжал работать (увеличивал i).
Надеюсь понятно объяснил, если нет говорите, то опишу еще подробнее и яснее

[Кольша]

var
loadcomplete:boolean=false;
......
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
loadcomplete:=true;
if string(url)=URL then
  begin
   parsing(Memo2 ,WebBrowser1 ,Memo1 , Label8 ,Label10 );
  end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
   ProgressBar1.Min := 1;
   ProgressBar1.Max := ListBox1.Items.Count ;
       i:=0;
        for I := 0 to ListBox1.Items.Count - 1 do
          begin
if loadcomplete then begin
loadcomplete:=false;
             ProgressBar1.Position := i+1;
              Application.ProcessMessages();
               URl:=S_Edit1+S_Edit2+ListBox1.Items[i]+S_Edit4;
                WebBrowser1.Navigate(URL);
                 Label4.Caption:=IntToStr(i+1);
                  Application.ProcessMessages();
exit;
end else begin
dec(I);
         end;
 end;
end;

[bakanaev]

Все бы хорошо, но только вот Делфи говорит нельзя менять i в теле цикла
[DCC Error] Unit1.pas(197): E2081 Assignment to FOR-Loop variable 'i'
Может еще идеи есть?

[Базиля]

Воспользуйтесь циклом while.

Вообще честно говоря, что-то плохо я понял мысль товарища Кольша

if loadcomplete then begin

При таком условии мы никогда и не зайдем в тело цикла.

exit;

И для чего собственно выход стоит, насколько я понял автору нужно продолжать работу цикла до его конца.

[bakanaev]

Сообщение от Базиля

Воспользуйтесь циклом while.

А можно кодом? А то я не особо представляю куда его там засунуть

Сообщение от Базиля

И для чего собственно выход стоит, насколько я понял автору нужно продолжать работу цикла до его конца.

Да Вы правы, надо до конца))

[Кольша]

да затупил) while or repeat в помощь

[Базиля]

Есть такой вариант действий:

var
loadcomplete:boolean; //объявили глобальную переменную
......
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
if string(url)=URL then
  begin
   parsing(Memo2 ,WebBrowser1 ,Memo1 , Label8 ,Label10 );
  end;
loadcomplete:=true;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
....
loadcomplete:=true;
  i:=0;
while i <> ListBox1.Items.Count - 1 do
if loadcomplete then
   begin
      loadcomplete:=false;
      ProgressBar1.Position := i+1;
      Application.ProcessMessages();
      URl:=S_Edit1+S_Edit2+ListBox1.Items[i]+S_Edit4;
      WebBrowser1.Navigate(URL);
      Label4.Caption:=IntToStr(i+1);
      Application.ProcessMessages();
      inc(i);
   end;
....
end.

[bakanaev]

Базиля, Спасибо

[bakanaev]

Сообщение от Базиля

Есть такой вариант действий:

var
loadcomplete:boolean; //объявили глобальную переменную
......
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
if string(url)=URL then
  begin
   parsing(Memo2 ,WebBrowser1 ,Memo1 , Label8 ,Label10 );
  end;
loadcomplete:=true;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
....
loadcomplete:=true;
  i:=0;
while i <> ListBox1.Items.Count - 1 do
if loadcomplete then
   begin
      loadcomplete:=false;
      ProgressBar1.Position := i+1;
      Application.ProcessMessages();
      URl:=S_Edit1+S_Edit2+ListBox1.Items[i]+S_Edit4;
      WebBrowser1.Navigate(URL);
      Label4.Caption:=IntToStr(i+1);
      Application.ProcessMessages();
      inc(i);
   end;
....
end.

Мда.... Программа зависает, потом ее отключить можно только через диспетчер задач.

[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[i]+S_Edit4;
                   WebBrowser1.Navigate(URL);
              Label4.Caption:=IntToStr(i+1);
           Application.ProcessMessages();
          inc(i);
           end
           else Application.ProcessMessages();
     end;

end;

Всем спасибо, очень большое!!