|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
поиск рабочей прокси
подскажите плиз как нати рабочую прокси.
есть код для проверки переменная с переберает по списку если рабочая прокся то идем дальше а если нет как вернуть цикл чтоб начил дальше переберать...? Код:
{Начало проверки прокси} begin // грузим фаил с проксями ProxyList:=tstringlist.Create; ProxyList.LoadFromFile('Proxy.txt'); params:=TStringList.Create; Presponseres:=TStringList.Create; // получаем проксю делим на ip и port ИКАК СЮДА ВЕРНУТЬСЯ Proxy:=ProxyList.Strings[0]; ip:=getip(Proxy); por:=getport(Proxy); port:=StrToInt(por); // тут и так понятно IdHTTP1.ProxyParams.ProxyServer:=ip; IdHTTP1.ProxyParams.ProxyPort:=port; // начинаем проверку try IdHTTP1.Get('http://ya.ru'); except // вот тут если прокся мертвая удаляем эту строку , и как вернуться выше end; end; {конец проверки прокси} |
#2
|
|||
|
|||
Чтобы продолжить цикл в условии ставь сроку: continue;
APPLICATION.TERMINATOR |
#3
|
|||
|
|||
Код:
{Начало проверки прокси} var i: integer; begin // грузим фаил с проксями ProxyList:=tstringlist.Create; ProxyList.LoadFromFile('Proxy.txt'); params:=TStringList.Create; Presponseres:=TStringList.Create; // получаем проксю делим на ip и port ИКАК СЮДА ВЕРНУТЬСЯ for i:= 0 to ProxyList.Count-1 do begin Proxy:=ProxyList.Strings[i]; ip:=getip(Proxy); por:=getport(Proxy); port:=StrToInt(por); // тут и так понятно IdHTTP1.ProxyParams.ProxyServer:=ip; IdHTTP1.ProxyParams.ProxyPort:=port; // начинаем проверку try IdHTTP1.Get('http://ya.ru'); except // Строку можно обнулить а пустые строки удалить можно и потом ProxyList.Strings[i]:= ``; end; end; end; {конец проверки прокси} APPLICATION.TERMINATOR Последний раз редактировалось Ama, 22.03.2010 в 20:08. |