Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

tIdFtp и try...except


VladimirVladimirovich ©   (2006-08-12 12:41:00) 

Имею:

Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EIdNotConnected with message 'Not Connected'.

Делаю:

 ftp.ReadTimeout:=150;
 try
  FTP.Connect(false);
 except
  on EIdNotConnected do Status.SimpleText:=FTP.Host+': ftp server not found';
 end;

Висит секунд 10 на каждом хосте, если там нет ftp сервера, но при этом, без try...except он сразу выдает ошибку - Not connected. Что не так делаю? Пробовал джописывать except on EIdNotConnected do ... ftp.abort(); - но безрезультатно.

Заранее благодарю.


VladimirVladimirovic   (2006-08-12 13:20:00) [1]

Другой вопрос возник. Постояно пишет Not connected, причем сразу же. Timeout стоит 1000 м.сек. FTP серверов брал несколько к ним таймаут <100.

 try
  ftp.Host:=edit1.text;
  FTP.Connect(false);
 except
  on EIdConnectException do label1.caption:=ftp.Host+' connection refused!';
  on EIdNotConnected do label1.caption:=ftp.Host+' not connected!';
  on EIdSocketError do label1.caption:=ftp.Host+' time out!';
 end;


VladimirVladimirovic   (2006-08-12 13:09:00) [2]

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


VladimirVladimirovic   (2006-08-12 12:45:00) [3]

После того как повисит сообщает от socket:

Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EIdSocketError with message 'Socket Error # 10060
Connection timed out.'


Наверх

Титульная страница Поиск, карта сайта Написать письмо