[Delphi]/[Pascal] Задай вопрос, получи ответ

#11

18.04.2010, 14:27

EndLeSSDre@M

Участник форума

Регистрация: 18.07.2009

Сообщений: 278

С нами: 8850305

Репутация: 259

Подскажите, где трабла? проблема в том что если прокся не рабочая, то выдает ошибку сокета 10060 типа превышено время ожидания.... пробовал по всякому как видите, от этой ошибки не избавился.... надо чтобы если прокся не рабочая, он удалял ее из списка и переходил дальше проверять!

PHP код:


		
			
var i,port: integer;

     ProxyList,params,Presponseres:tstrings;

     proxy,por,ip:string ;

     begin



  ProxyList:=tstringlist.Create;

  ProxyList.LoadFromFile('Proxy.txt');

  params:=TStringList.Create;

  Presponseres:=TStringList.Create;



  if ProxyList.Text=''

  then begin

  ShowMessage ('Список пуст');

  exit;

  end;



for i:= 0 to ProxyList.Count-1 do

begin

  Proxy:=ProxyList.Strings[i];

  ip:=getip(Proxy);

  por:=getport(Proxy);

  port:=StrToInt(por);

  showmessage(proxy);

  

    try

    IdHTTP1.ProxyParams.ProxyServer:=ip;

    IdHTTP1.ProxyParams.ProxyPort:=port;

    IdHttp1.ReadTimeout:=10000;

    IdHTTP1.Get('http://getmyip.ru/');

    except

    ProxyList.Delete(i);

    ProxyList.SavetoFile('Proxy.txt');

    ProxyList.free;

    end;

    end;

   

    end;

ну че блин... никто помочь не может чтоль(((( всем помогаю, а мне никто(((