Прокси чекер

[Квэнди]

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

[Terikon]

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

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

Да на данный момент так нужно, после зделаю чтобы рабочие прокси сохранялись в отдельный файл.

[Квэнди]

ок, но вы не обрабатываете никак возникшую ошибку... что мешает написать ну хотя бы так

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
try
IdHttp1.ProxyParams.ProxyServer:=(Server);
IdHttp1.ProxyParams.ProxyPort:=StrToInt(Port);
idhttp1.get('http://whatismyip.com/automation/n09230945.asp');
except
//Обработка исключительной ситуации
end;
end;
 finally
 SL.Delete(0);
 SL.SaveToFile('Proxy.txt');
Timer1.Enabled:=true;
   SL.Free;
    end;

[Terikon]

щас вроде ошибка перестала вылетать но появилась другая проблема
в файле Proxy.txt находятся
208.74.174.142:3128
210.51.54.165:9090
216.240.136.189:80
200.175.16.150:8080
194.160.76.5:80

Так вот, когда я жму на кноку удаляются все прокси и остаётся только последняя строчка 194.160.76.5:80 и через неё происходит 5 подключений (зависить от количества прокси в списке, например если 10 прокси то 10 попыток) после этого появляется сообщение 'файл пуст'.
Может я не туда вставил

 SL.Delete(0);
 SL.SaveToFile('Proxy.txt');

[Квэнди]

код показывайте

[Terikon]

Код всё тот же (23пост) здесь я добавил уведомление ShowMessage

except
//Обработка исключительной ситуации
ShowMessage('Ошибка');
end;
end;

[Квэнди]

Вы знакомы с принципами работы блоков try..finally ? Код в блоке Finally выполняется в любом случае.

[Terikon]

Да я знаю что то что находится в Finally выполняется в любом случае,
куда только я эти данные не вставлял

SL.Delete(0);
SL.SaveToFile('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
try
IdHttp1.ProxyParams.ProxyServer:=(Server);
IdHttp1.ProxyParams.ProxyPort:=StrToInt(Port);
idhttp1.get('http://whatismyip.com/automation/n09230945.asp');
except
 SL.Delete(0);
 SL.SaveToFile('Proxy.txt');
Timer1.Enabled:=true;
//Обработка исключительной ситуации
end;
end;
 finally
   SL.Free;
    end;