[Delphi]/[Pascal] Задай вопрос, получи ответ

#11

18.04.2010, 16:24

EndLeSSDre@M

Участник форума

Регистрация: 18.07.2009

Сообщений: 278

С нами: 8850305

Репутация: 259

Цитата:

Сообщение от JnK

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

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject); 

begin 

IdHTTP1.ProxyParams.ProxyServer:='114.127.246.36'; 

IdHTTP1.ProxyParams.ProxyPort:=8080; 

try 

  IdHTTP1.Get('http://ya.ru'); 

  showmessage('Рабочий'); 

except 

  showmessage('Не рабочий'); 

  // удаляем из списка

end; 

end;

Меня смутили эти строки, при ошибке сохранить и освободить список? если тебе надо только удалить ненужный эл. списка, и продолжить цикл.

PHP код:


		
			
    ProxyList.SavetoFile('Proxy.txt');

    ProxyList.free;

ну даже если без них... ошибка в другом((( тот же readtimeout хотя бы должен работать в конструкции try..except... а он выдает ошибку типа время истекло и се... а должен действовать как ошибка и переходить в блок except.... вот это я никак не пойму почему не работает((