Прокси чекер

[Пепел Феникса]

а что делает Таймер в вашем коде?

[Terikon]

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

[Пепел Феникса]

попробуй без него

[Terikon]

без нево то же самое, если прокся рабочая на сайт заходит, если нет то выдаёт ошибку Soket Error # 10060

[Пепел Феникса]

да блин, без таймера а вне Дельфи

[Terikon]

так я про то и говарю
вот прокси попробуй сам
216.14.112.245:3128 - anonymous - United States
216.14.112.243:3128 - anonymous - United States
213.82.64.69:80 - anonymous - Italy
88.149.192.34:80 - bad proxy or timeout - Italy
170.223.0.54:80 - anonymous - United States

[Квэнди]

А теперь сформулируйте четко что вы хотите ?

[Terikon]

Сообщение от Квэнди

А теперь сформулируйте четко что вы хотите ?

Мне нужно каким то образом избежать ошибки Soket Error # 10060,
или игнорировать её, т.е. если в файле Proxy.txt попадается нерабочая прокся то программа не должна останавливаться, а переключалась на следующюю строку(в файле Proxy.txt) (с прокси), и так до конца пока не закончатся все строки

[Квэнди]

 try
 SL.LoadFromFile('Proxy.txt');
   if sl.Text=''
 then begin
 ShowMessage ('Файл пуст');
 exit;
 end;

 for i:=0 to SL.Count-1 do
 begin
  str:=SL[i];
  pos_:=pos(':', str);
  Server:=copy(str, 1,  pos_-1);
  Port:=copy(str, pos_+1, length(str) - pos_);
  end;
  begin
IdHttp1.ProxyParams.ProxyServer:=(Server);
IdHttp1.ProxyParams.ProxyPort:=StrToInt(Port);
idhttp1.get('http://whatismyip.com/automation/n09230945.asp');
 SL.Delete(0);
 SL.SaveToFile('Proxy.txt');
Timer1.Enabled:=true;
end;
 finally
   SL.Free;
    end;

исходя из этого кода если произойдет ошибка, то

 SL.Delete(0);
 SL.SaveToFile('Proxy.txt');
Timer1.Enabled:=true;

не выполнится.

[Terikon]

Это я исправил но ошибка всё равно выскакивает

 finally
 SL.Delete(0);
 SL.SaveToFile('Proxy.txt');
Timer1.Enabled:=true;
   SL.Free;
    end;