![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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.'