парсит только 1 ссылку и дальше не хочет

[megostudent]

ссылки загружаю из файла в переменную pl:TStringList

procedure mypotok.Execute;
begin
  inherited;
form1.sLabel4.Caption:='Парсим...';
begin
for I := 0 to pl.Count do
begin
  page:=http.Get(pl[i]);
  RegExp.InputString := page;
  RegExp.Expression := '<span itemprop="name">(.*?)</span>';
  if RegExp.Exec then begin
   repeat
    logins.Add(RegExp.Match[1]);
    form1.sMemo1.Lines.Add(RegExp.Match[1]);
   until not RegExp.ExecNext;
  end;
  form1.sLabel2.Caption:=inttostr(form1.sMemo1.Lines.Count);
  if i=pl.Count then begin
    form1.sLabel4.Font.Color:=clgreen;
    form1.sLabel4.Caption:='Готово';
    showmessage('Готово!'+#13+'Сохраните результат...');
  end;
end;
end;
http.Free;
RegExp.Free;

end;

[Stilet]

Ну а ты отладчиком проходил?
На какой строке вылетает или стопорится?

[eval]

писать в логи еще помогает не по децки

[megostudent]

Сообщение от Stilet

Ну а ты отладчиком проходил?
На какой строке вылетает или стопорится?

Project1:
007430A8 55 push ebp

сюда стрелкой указало

[Serge_Bliznykov]

не знаю, почему у Вас парсит одну ссылку,
но в коде у Вас явная ошибка!

for I := 0 to pl.Count-1 do
begin
  page:=http.Get(pl[i]);
  RegExp.InputString := page;
  RegExp.Expression := '<span itemprop="name">(.*?)</span>';
  if RegExp.Exec then begin
   repeat
    logins.Add(RegExp.Match[1]);
    form1.sMemo1.Lines.Add(RegExp.Match[1]);
   until not RegExp.ExecNext;
  end;
  form1.sLabel2.Caption:=inttostr(form1.sMemo1.Lines.Count);
end;
http.Free;
RegExp.Free;
form1.sLabel4.Font.Color:=clgreen;
form1.sLabel4.Caption:='Готово';
showmessage('Готово!'+#13+'Сохраните результат...');

[megostudent]

все равно только с одной ссылки парсит...

[Stilet]

сюда стрелкой указало

Что значит "сюда"?
Указало после чего? После исключения?
Как пошаговку делать ты знаешь? F7-F8 клавиши.

[megostudent]

всем спасибо за помощь открыл сниф увидел что там какой-то редирект проходил
включил редирект и все пошло по маслу.
Stilet
Как пошаговку делать ты знаешь? F7-F8 клавиши.
нет, обьясни как делать если не сложно или дай ссыль я поучусь

[Stilet]

обьясни как делать

Легко. Становишься на первую строку процедуры, или блока кода, который хочешь отладить - жмешь F5. Устанавливается бряк. Запускаешь программу, она падает на этом месте и далее ты посредством клавиш F7 или F8 делаешь проход по операциям.
Наводя мышку на переменные выясняешь чему они равны, так узнаешь где проблема.

[bulldog5293]

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