[Помогите!] Грабер

[pavel!]

ребята помогите написать граббер проксей.
Примерно как реализовать знаю,но нечего не выходит
Допустим вот я кинул на форму мемо,идхттр,кнопку,и при нажатии
кнопки допустим он грабил с fineproxy.ru прокси лист и записывал в мемо,но
как сделать запись в мемо это легко,а вот реализовать процес грабы не могу не как,помогите пожалусто

[VeTaL_UA]

Цитата: Сообщение от pavel! помогите пожалусто

Где код? Где проблема?

[pavel!]

Цитата: Сообщение от VeTaL_UA Где код? Где проблема?

проблема в том что я не могу это реализовать

[vinni123]

Цитата: Сообщение от pavel! проблема в том что я не могу это реализовать

var
s,proxy:string;
begin
s:=idhttp1.Get('http://fineproxy.org');
proxy:=copy(s,Pos(':</strong>',s)+10,pos('</br></p>',s)-pos(':</strong>',s)-10);
memo1.Text:=proxy;
end;

[pavel!]

Цитата: Сообщение от vinni123 var s,proxy:string; begin s:=idhttp1.Get('http://fineproxy.org'); proxy:=copy(s,Pos(':</strong>',s)+10,pos('</br></p>',s)-pos(':</strong>',s)-10); memo1.Text:=proxy; end;

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

var StrPage:string;
begin
 StrPage:=Form1.idhttp1.Get('http://2ip.ru/');
 Form1.Memo1.Lines.Add('Мой IP: '+Pars('</span> <big>',StrPage,'<'));
end;
end.

но почему-то берет по 1 ип.(пробовал не на 2ип.ру,а на [Ссылки могут видеть только зарегистрированные пользователи. ]

[vinni123]

Цитата: Сообщение от pavel! спасибо большое а вот я накидал var StrPage:string; begin StrPage:=Form1.idhttp1.Get('http://2ip.ru/'); Form1.Memo1.Lines.Add('Мой IP: '+Pars('</span> <big>',StrPage,'<')); end; end. но почему-то берет по 1 ип.(пробовал не на 2ип.ру,а на [Ссылки могут видеть только зарегистрированные пользователи. ]

Между чем ты там парсил? Мой код парсит все прокси на том сайте но нужно сделть замену </br>

[Mebius]

Цитата: Сообщение от pavel! ребята помогите написать граббер проксей. Примерно как реализовать знаю,но нечего не выходит Допустим вот я кинул на форму мемо,идхттр,кнопку,и при нажатии кнопки допустим он грабил с fineproxy.ru прокси лист и записывал в мемо,но как сделать запись в мемо это легко,а вот реализовать процес грабы не могу не как,помогите пожалусто

[Ссылки могут видеть только зарегистрированные пользователи. ]

[pavel!]

Цитата: Сообщение от vinni123 var s,proxy:string; begin s:=idhttp1.Get('http://fineproxy.org'); proxy:=copy(s,Pos(':</strong>',s)+10,pos('</br></p>',s)-pos(':</strong>',s)-10); memo1.Text:=proxy; end;

(':</strong>',s)+10,pos('</br></p>',s)-pos(':</strong>',s)-10);
не могли бы вы сказать что означает +10,-10

[Mebius]

Цитата: Сообщение от pavel! (':</strong>',s)+10,pos('</br></p>',s)-pos(':</strong>',s)-10); не могли бы вы сказать что означает +10,-10

позиции от до

[VeTaL_UA]

Цитата: Сообщение от vinni123 нужно сделть замену </br>

Нужно заменить все <br> на перенос?

[Mebius]

Цитата: Сообщение от VeTaL_UA Нужно заменить все <br> на перенос?

вообще имхо для универсальности лучше регулярку))) \d+.\d+.\d+.\d+:\d+
если попариться, то можно составить ооочень мощьную регулярочку, которая будет парсить почти все варианты написания проксей.

чекер забацать очень просто)))) максимум 30 строк сама проверка на живность

[pavel!]

Ребята написал граббер, а он граббит только 1 строку, а надо что бы все подряд до конца сграббил.
Как это реализовать?
вот код:

	var
s,proxy:string;
begin
Form1.IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
s:=idhttp1.Get(''+sEdit1.Text);
proxy:=copy(s,Pos('<p></p><p>',s)+10,pos('<br />',s)-pos('<p></p><p>',s)-10);
sMemo1.Text:=proxy;
end;
end.

[Skrillex3]

Цитата: Сообщение от pavel! Ребята написал граббер, а он граббит только 1 строку, а надо что бы все подряд до конца сграббил. Как это реализовать? вот код: Код: var s,proxy:string; begin Form1.IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)'; s:=idhttp1.Get(''+sEdit1.Text); proxy:=copy(s,Pos('<p></p><p>',s)+10,pos('<br />',s)-pos('<p></p><p>',s)-10); sMemo1.Text:=proxy; end; end.

цыклы кто учить будет?

Цитата: for i:= 0 to memo1.lines.count do begin //твой код бредовый и мне неохота в нём разбираться ,если короче то, из каждой строчки вытягиваешся проксю и порт и проверяеш их на работоспособность, и в общемто всё end;

[pavel!]

Цитата: Сообщение от Skrillex3 цыклы кто учить будет?

Где код бредовый-то?

	var
s,proxy:string;
i:Integer;
begin
  for i:=0 to sMemo1.Lines.Count do // твой бредовый цикл
begin
Form1.IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)'; // заходим как будто под мозилой
s:=idhttp1.Get(''+sMemo2.Text); // заходим на страницу
proxy:=copy(s,Pos('<p></p><p>',s)+10,pos('<br />',s)-pos('<p></p><p>',s)-10); //копируем /вставляем проксю 
sMemo1.Text:=proxy; // записываем ее в мемо
end;
end;
end.

Ребят помогите пожалуйста

[Skrillex3]

Цитата: Сообщение от pavel! Где код бредовый-то?

1. прокмя и порт хаписывается так HTTP.ProxyParams.ProxyPort
2. так ты только копируеш proxy:=copy(s,Pos('<p></p><p>',s)+10,pos('<br />',s)-pos('<p></p><p>',s)-10);

Цитата: Сообщение от pavel! for i:=0 to sMemo2.Lines.Count do // твой бредовый цикл

и раз уж мой цыкл бредовый я больше не буду подсказывать