Анализ интернет странички в цикле?

[DelPavel]

Помогите пожалуйста.
Нужно в цикле анализировать страничку интернета полученную через WebBrowser1.

WebBrowser1.Navigate('http://tut.by/'); - после этой строчки должны по идеи отрабатывать процедуры TForm1.WebBrowser1NavigateComplete2 и TForm1.WebBrowser1DocumentComplete.
Но получается что цикл отрабатывает и только потом отображается страница из интернет. Подскажите пожалуйста как исправть эту ситуацию?

[TwiX]

Не работаю с webbrowser, но первое, что приходит на ум:
добавить application.processMessages; после первой строчки

[Marsel737]

DelPavel, не очень понятно про какой цикл идёт речь, но могу только предположить, что если цикл засунуть в TForm1.WebBrowser1DocumentComplete, то сначала будет открываться страница, а уже потом выполняться цикл

[Stilet]

DelPavel

Ты луче страницу через IdHTTP.GET получи. и уже как строку анализируй.
Примеры на форуме были.

[Marsel737]

Получение текста HTML страницы:

var 
  CurrentWB: TWebbrowser; //на случай если вкладки организованы, если нету, то можно просто Webbrowser1 писать
...
memOnlyText.Lines.Text:=CurrentWB.OleObject.document.body.InnerTEXT;
...

[DelPavel]

Marsel737.

AssignFile(f2, 'D:\Delphi\Projects\byfly\data.txt' );
Reset(f2);
while not eof(f2) do
begin
Readln(f2,Line);
//Берем необходимые данные из текстового файла
.............................
//Далее получаем интернет страничку
WebBrowser1.Navigate('http://byfly.by/'); //И вот сдесь должны отрабатывать процедуры TForm1.WebBrowser1NavigateComplete2 и TForm1.WebBrowser1DocumentComplete


................................... .............................
ListItem:=ListView1.Items.Add;
ListItem.Caption := obect;
//add login
ListItem.SubItems.Add(summa);
//add pass
ListItem.SubItems.Add(IntToStr(plat a));

//В итоге получается что заполняется весь ListView, а только потом открывается страничка интернета.