Исходник Прокси Чекера!

Выкладываю исходник моего Прокси Чекера
Чекер настриваемый, можно выставлять потоки таймаут и т.п.




Качаем тут:
http://multi-up.com/314151

 

Ы Можешь выложить в виде функции кусок чекалки??Для http пркси подалуйста. Ггг

 

там проверка только хттп проксей, т.к. через индейцев. Минусом является то, что таймаута на коннект нет, поэтому прокси будут чекаться не очень быстро.

Code:

  http:=TIdHTTP.Create(nil);
  cw:=getnumberproxy;
  while cw<form1.Memo1.Lines.Count do
  begin
    s:=form1.Memo1.Lines[cw];
    i := Pos(':',s);
    IP := Copy(s,1,i-1);
    PORT := Copy(s,i+1,Length(s));

    try
      http.ProxyParams.ProxyServer:=ip;
      http.ProxyParams.ProxyPort:=StrToInt(port);
      http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
      resp:=http.Get('http://ya.ru/');
      if pos('ya.ru',resp)<>0 then
      form1.Memo2.Lines.Add(ip+':'+port);
      except
        end;
      cw:=getnumberproxy;
      checked:=checked+1;
      end;
  http.Free;

 

Есть

инди поддерживает соксы

P.S Сорри за флуд

 

Он мне кажется имел в виду:

http.ReadTimeout; -есть.

http.ConnectTimeout; -нету.

Хотя чем они отличаются?

 

Ну ок, возьми напихай дохлых прокси и я погляжу, как они по таймауту коннекта отвалятся, а не ReadTimeout. Сейчас точно не скажу, индейцами больше не балуюсь, но точно имел проблемы в Delphi 7 с 9 индейцами и коннектом к прокси. Никак таймаут на коннект было не поставить

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

Code:

var http:TIdHTTP;
    IOHandlerSocket:TIdIOHandlerSocket;
    SocksInfo:TIdSocksInfo;
begin
  http:=TIdHTTP.Create(nil);
  IOHandlerSocket:=TIdIOHandlerSocket.Create(http);
  SocksInfo:=TIdSocksInfo.Create(IOHandlerSocket);
  IOHandlerSocket.SocksInfo:=SocksInfo;
  http.IOHandler:=IOHandlerSocket;

и прокси задавать в SocksInfo, вычеркнув их из Http

 

ну так а что мешает доделать то? сорцы есть делайте что хотите с ними) хоть носки хоть что хотите короч)

 

Пол форума заполонили вашими чекерами )
на perl подобую ересь за 5 минут можно написать меньше чем в 20 строчек.

 

Перловку не каждый новичок осилит....и даже запустить то не каждый сможет а тут все более-менее понятно