Проблема с парсингом ссылок, парсится одна и та же ссылка!

[FleXik]

PHP код:

procedure TForm1.sButton1Click(Sender: TObject); 
var 
//RegExp : TRegExpr; 
rev, url:string; 
head: array[1..100] of string; 
begin 
while sMemo1.Lines.Count-1 < 10 do 
begin 
randomize; 
rev:=send('GET', Form1.sEdit1.Text,'','','','application/x-www-form-urlencoded;','','','','','',head); 
url:=parser(rev,'<h2><a href="', '">',0,0); 
Form1.sMemo1.Lines.Add(url); 
end; 
end; 


Здравствуйте, у меня проблема. Проблема в том что если парсю 10 ссылок то они все одинаковые (то есть парсится первая ссылка и не переходит к второй), мне же надо чтобы ссылки были разные. Код <h2><a href= везде одинаковый, в этом и проблема. Знакомый подсказал что надо через RegExp, но никогда ранее с этим компонентом не работал, помогите пожалуйста.

[Кольша]

procedure TForm1.sButton1Click(Sender: TObject);  
var  
//RegExp : TRegExpr;  
rev, url:string;  
head: array[1..100] of string;  
begin  
rev:=send('GET', Form1.sEdit1.Text,'','','','application/x-www-form-urlencoded;','','','','','',head);  
while sMemo1.Lines.Count-1 < 10 do  
begin  
randomize; //зачем?

url:=parser(rev,'<h2><a href="', '">',0,0);  

Form1.sMemo1.Lines.Add(url); 
delete(rev,1,pos('<h2><a href="',rev)); 
end;  
end;

Может так?

[FleXik]

Сообщение от Кольша

procedure TForm1.sButton1Click(Sender: TObject);  
var  
//RegExp : TRegExpr;  
rev, url:string;  
head: array[1..100] of string;  
begin  
rev:=send('GET', Form1.sEdit1.Text,'','','','application/x-www-form-urlencoded;','','','','','',head);  
while sMemo1.Lines.Count-1 < 10 do  
begin  
randomize; //зачем?

url:=parser(rev,'<h2><a href="', '">',0,0);  

Form1.sMemo1.Lines.Add(url); 
delete(rev,1,pos('<h2><a href="',rev)); 
end;  
end;

Может так?

То же самое... Не хочет парсить разные ссылки..

[Кольша]

можно увидеть страницу которую вы хотите распарсить?

[FleXik]

Сообщение от Кольша

можно увидеть страницу которую вы хотите распарсить?

http://fishki.net/

парсить надо ссылки на новости, пример: http://fishki.net/comment.php?id=126726 , должно парсить разные ссылки, ну как разные, просто по очереди а не одну и ту же

[Кольша]

procedure TForm1.sButton1Click(Sender: TObject);  
var  
rev, url:string;  
head: array[1..100] of string;  
begin  
rev:=send('GET', Form1.sEdit1.Text,'','','','application/x-www-form-urlencoded;','','','','','',head);  
while sMemo1.Lines.Count-1 < 10 do  
url:=pars('<h2><a href="', '">',rev);  
sMemo1.Lines.Add(url);  
delete(rev,1,pos('<h2><a href="',rev)+length('<h2><a href="')); 
end;  
end;
функция pars

Должно работать!

[FleXik]

Сообщение от Кольша

procedure TForm1.sButton1Click(Sender: TObject);  
var  
rev, url:string;  
head: array[1..100] of string;  
begin  
rev:=send('GET', Form1.sEdit1.Text,'','','','application/x-www-form-urlencoded;','','','','','',head);  
while sMemo1.Lines.Count-1 < 10 do  
url:=pars('<h2><a href="', '">',rev);  
sMemo1.Lines.Add(url);  
delete(rev,1,pos('<h2><a href="',rev)+length('<h2><a href="')); 
end;  
end;
функция pars

Должно работать!

Не работает, в той функции парсинга что у меня итак все хорошо, а если написать while sMemo1.Lines.Count-1 < 10 do так как у Вас, то программа вообще виснет

[Кольша]

procedure TForm1.sButton1Click(Sender: TObject);  
var  
rev, url:string;  
head: array[1..100] of string;  
begin  
rev:=send('GET', Form1.sEdit1.Text,'','','','application/x-www-form-urlencoded;','','','','','',head);  
while sMemo1.Lines.Count-1 < 10 do  
begin///стер случайно попробуйте сейчас
url:=pars('<h2><a href="', '">',rev);  
sMemo1.Lines.Add(url);  
delete(rev,1,pos('<h2><a href="',rev)+length('<h2><a href="')); 
end;  
end;

[FleXik]

Сообщение от Кольша

procedure TForm1.sButton1Click(Sender: TObject);  
var  
rev, url:string;  
head: array[1..100] of string;  
begin  
rev:=send('GET', Form1.sEdit1.Text,'','','','application/x-www-form-urlencoded;','','','','','',head);  
while sMemo1.Lines.Count-1 < 10 do  
begin///стер случайно попробуйте сейчас
url:=pars('<h2><a href="', '">',rev);  
sMemo1.Lines.Add(url);  
delete(rev,1,pos('<h2><a href="',rev)+length('<h2><a href="')); 
end;  
end;

Наконец-то, вот теперь работает, только оно вытягивает еще 1 ссылочку, вообще с другим доменом, но работает хорошо и ссылки разные спасибо большое!

http://fishki.net/comment.php?id=126726
http://fishki.net/comment.php?id=126639
http://fishki.net/comment.php?id=126661
http://send.fishki.net/comment.php?id=157870
http://fishki.net/comment.php?id=126697
http://fishki.net/comment.php?id=126673
http://fishki.net/comment.php?id=126699
http://fishki.net/comment.php?id=126647
http://fishki.net/comment.php?id=126696
http://fishki.net/comment.php?id=126680
http://fishki.net/comment.php?id=126690

Вот эта ссылка какраз и парсится

[Кольша]

procedure TForm1.sButton1Click(Sender: TObject);  
var  
rev, url:string;  
head: array[1..100] of string;  
begin  
rev:=send('GET', Form1.sEdit1.Text,'','','','application/x-www-form-urlencoded;','','','','','',head);  
while sMemo1.Lines.Count-1 < 10 do  
begin///стер случайно попробуйте сейчас
url:=pars('<h2><a href="', '">',rev); 
if pos('send',url)=0 then///типичная проверка
sMemo1.Lines.Add(url);  
delete(rev,1,pos('<h2><a href="',rev)+length('<h2><a href="')); 
end;  
end;