Прокси чекер

[crystalbit]

мб ты уничтожаешь уже уничтоженный sl?

[Terikon]

да нет в чём то другом проблема

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

а может покажешь где именно останавливается выполнение при возникновении ошибки?
не пренебрегай этим иногда очень важно

[Квэнди]

Напиши так:

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
 Timer1.Enabled:=false;
  ShowMessage ('Список пуст');
 exit;
 end;

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

crвstalbit, он вообще то вызывает Free, а Destroв. так что проблема точно не в этом...у меня мысль насчет цикла...что SL уничтожается а цикл идет на след круг

[Квэнди]

просто он сначала показывал сообщение, а только потом выключал таймер, а showmessage модальный, соответственно пока OK не нажмешь, цикл будет работать. Надо всего лишь цикл до showmessage выключать

[Terikon]

Смотрю сниффером, "жму на кнопку стоп", проверка проксь останавливается, если присутствует соединение со статусом подключения (Pending...) то, программу можно закрыть полностью только после получения статуса OK(соединение установленно) или Falied(ошибка) то тогда программа полностью завершается и выскакивает вышеуказанная ошибка.

Видимо нужно как то принудительно останавливать не ожидая ответа от сайта.

Пробывал ставить IdHttp1.Disconnect не помогло

[Квэнди]

выставлять timeout меньше

[Terikon]

#|Program |URL |Status |
1 project2.exe http://getmyip.ru/ Pendig...
2 project2.exe http://getmyip.ru/ Pendig...

IdHttp1.ReadTimeout:=10000;
idhttp1.get('http://getmyip.ru/');

Канешно если выставить
IdHttp1.ReadTimeout:=100;
То при нажатии кнопки Стоп, всё останавливается потому что с таким таймаутом все соединения принимают статус Falied

Мне таймаут нужен минимум 10000
После нажатия на кнопку стоп нужно дождатся когда соединение примет статус Falied или ОК, например через (10сек)

Кнопка Стоп
sl.Free;
//нужно дождатся когда соединение примет статус Falied или ОК, например через (10сек)//
exit;

[Квэнди]

ну так и дождись... while тебе в ркуи)