как вызвать процедуру из другой процедуры?

[bakanaev]

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

Как раз таки ваши намерения на изобретение велосипеда понять не могу.
Вот вам пример:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
               const pDisp: IDispatch; var URL: OLEvariant);
var
  CurWebrowser : IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document     : OLEvariant;
  WindowName   : string;
begin { TForm1.WebBrowser1DocumentComplete }
  CurWebrowser := pDisp as IWebBrowser; 
  TopWebBrowser := (Sender as TWebBrowser).DefaultInterface; 
  if CurWebrowser=TopWebBrowser then
  begin
    ShowMessage('Document is complete.') 
  end
  else
  begin
    Document := CurWebrowser.Document; 
    WindowName := Document.ParentWindow.Name; 
    ShowMessage('Frame ' + WindowName + ' is loaded.')
  end;
end;

Не могу понять для чего вручную вызывать эут процедуру, для каких целей то?
Тело процедуры можно легко подогнать под себя

У меня в теле

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
               const pDisp: IDispatch; var URL: OLEvariant);

Идет парсинг страницы, а так надо было мне написать сразу как оно естьесть Смотрите, вот что происходит

procedure TForm1.Button1Click(Sender: TObject);

begin
   for i := 0 to ListBox1.Items.Count-1 do
   begin
      URL:=ListBox1.Items[i];
      WebBrowser1.Navigate(URL);
   end;
end;

И суть в том что цикл не дожидается загрузки страницы и сразу "пуляет" следующую, в итоге мы видим загрузку последней по списку (ListBox) страницы.
Но если я буду вызывать в теле цикла процедуру procedure TForm1.WebBrowser1DocumentComplete( Sender: TObject;
const pDisp: IDispatch; var URL: OLEvariant);
то ожидание будит, вроде как

[Базиля]

А что мешает организовать цикл так, чтобы он не "пулял" ваши страницы одну за другой? А только лишь после загрузки предыдущей?

[bakanaev]

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

А что мешает организовать цикл так, чтобы он не "пулял" ваши страницы одну за другой? А только лишь после загрузки предыдущей?

Ну так я и пытаюсь)) до этого делал через while do, но там проц грузится на 80%

[Lesha]

но там проц грузится на 80%

Application.ProcessMessages;
Sleep(300);

[Stilet]

Тут надо дождаться пока страница загрузится полностью, и только потом выводить значение в Label4
Label4.Caption:=IntToStr(i);

Так вынеси этот вывод в DocumentComplete

[impulsgraw]

var loaded: boolean = false;

procedure TForm1.Button1Click(Sender: TObject);
begin 
  for  i := 0 to ListBox1.Items.Count-1 do
begin
                 loaded := false;
                 WebBrowser1.Navigate(URL); 
                 repeat {} until(loaded = true);
                 Label4.Caption:=IntToStr(i);
                 Application.ProcessMessages();
 end;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
               const pDisp: IDispatch; var URL: OLEvariant);
begin
loaded := true;
label1.caption := 'ГОТОВО!!!';
end;

[Базиля]

Stilet
Если я все правильно понял, теперь выясняется то что проблема немного в другом
А именно: (процитирую ТС)

И суть в том что цикл не дожидается загрузки страницы и сразу "пуляет" следующую, в итоге мы видим загрузку последней по списку (ListBox) страницы.

Решается ведь все легко и просто, тем же циклом while (не знаю с чего у вас такая нагрузка шла, наверное не совсем правильно спланировали работу цикла).
Предлагаю такой вариант: (подобная проблема кстати совсем недавно здесь на форуме уже обсуждалась).

var b:boolean;

...

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
{Описываете здесь необходимые действия};
b:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
b:=true;
i:=0;
   while i <= ListBox1.Items.Count-1 do
    if b then
       begin
       b:=false;
       URL:=ListBox1.Items[i];
       WebBrowser1.Navigate(URL);
       inc(i);
       end;
end;

Я надеюсь вы мою мысль уловили

[impulsgraw]

Дада, а я что написал?_)

[Базиля]

impulsgraw
Я пока писал свой пост, вы в этот момент уже отписались, я не заметил этого
Не стал убирать свой пост
P.S. Но в вашем варианте вложенный цикл все-таки лишний.
И в данном случае цикл с параметром все-таки не уместен. (ИМХО)

[impulsgraw]

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

impulsgraw
Я пока писал свой пост, вы в этот момент уже отписались, я не заметил этого
Не стал убирать свой пост
P.S. Но в вашем варианте вложенный цикл все-таки лишний.

Почему? Без него как раз задерживаться не будет а будет прямо так пролетать.