Прокси чекер

[Terikon]

В общем зделал так

procedure TForm1.Button1Click(Sender: TObject);

begin

 Timer1.Enabled:=true;
 end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
 SL: TStringList;
 str: string;
 pos_: integer;
 Server, Port: string;
begin
 SL:=TStringList.Create;

 SL.LoadFromFile('Proxy.txt');

   if sl.Text=''
 then begin
  ShowMessage ('Список пуст');
 Timer1.Enabled:=false;
 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_);
  SL.Delete(0);
  SL.SaveToFile('Proxy.txt');
  try
IdHttp1.ProxyParams.ProxyServer:=(Server);
IdHttp1.ProxyParams.ProxyPort:=StrToInt(Port);

 IdHttp1.ReadTimeout:=10000;
 idhttp1.get('http://getmyip.ru/');
except
  SL.Delete(0);
 SL.SaveToFile('Proxy.txt');
   SL.Free;
    end;
    end;
     end;

  end.

Теперь проверяются поочерёдно все прокси из списка, не вылазают ошибки связанные с сетью, зато теперь когда программа заканчивает проверку прокси, и появляется ShowMessage ('Список пуст'); и выскакивают ошибки

List index out of bounds (2)
List index out of bounds (0)
List index out of bounds (4)
Access violation at address 00000000. Read of address 00000000.
Access violation at address 20544547

Вроде связаны они со списком
Что они означают? как их можно исправи.

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

допустим у тя в файле три строки 0,1,2
по твоему циклу фор ты идешь так грузим строку 0,удаляем её(остаются 0,1)при втором проходе берешь строку 1 но удаляешь опять строку 0(остается только 0) и при третьем проходе ты пытаешься обратится к строке 2 которой уже давно нет

это связанно с str:=SL[i];

замени на str:=SL[0]; тогда


а зачем ты это делаешь?

except
  SL.Delete(0);
 SL.SaveToFile('Proxy.txt');
   SL.Free;
    end;

особенно SL.Free; ?
вот тебе ошибку доступа и выдает

[Terikon]

Всем спасибо всё работает)
во время работы прога заметно зависает, выставил Application.ProcessMessages;
Может есть ещё какие нибуть способы
И ещё, сообщение 'Файл пуст' иногда выскакивает несколько раз подряд.

[Квэнди]

Да, брось на форму IdAntifreez с вкладки indy misc

[Terikon]

За IdAntifreez спасибо, а как быть с этим 'Файл пуст' иногда выскакивает несколько раз подряд.

[Terikon]

Всё разобрался

if sl.Text=''
 then begin
  ShowMessage ('Файл пуст');
  Timer1.Enabled:=false;
tr.Free;
sl.Free;
idhttp1.Free;
 exit;
 end;

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

idhttp1.Free;

этого не стоит так как у вас компонент не динамически создается, я полагаю...

[Terikon]

Как на индях принудительно разорвать соединение, например жму на копку STOP
//idhttp1.разорвать соединение//
tr.Free;
sl.Free;

[crystalbit]

вроде disconnect

[Terikon]

Что означает эта ошибка Access violation at address 00000000. Read of address 00000000. При нажатии на кнопку программа останавливается, но надаедает эта ошибка.

procedure TForm1.Button2Click(Sender: TObject);
begin
IdHttp1.Disconnect;
sl.Free;
exit;

end;