tIdFtp и try...except

← →
VladimirVladimirovich (2006-08-12 12:41) [0]

Имею:

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 12:45) [1]

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

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

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

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

← →
VladimirVladimirovic (2006-08-12 13:20) [3]

Другой вопрос возник. Постояно пишет 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;

tIdFtp и try...except Найти похожие ветки