18.04.2010, 14:27
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
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;
ну че блин... никто помочь не может чтоль(((( всем помогаю, а мне никто(((
Последний раз редактировалось EndLeSSDre@M; 18.04.2010 в 14:29..
|
|
|