Показать сообщение отдельно

  #11  
Старый 18.04.2010, 16:24
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами: 8850305

Репутация: 259
По умолчанию

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

PHP код:
procedure TForm1.Button1Click(SenderTObject); 
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.... вот это я никак не пойму почему не работает((
 
Ответить с цитированием