Как проверить наличие ftp сервака на компе

← →
SamProf © (2006-06-10 11:37) [0]

Собственно мне надо перечислить все ftp ресурсы в сетке. для этого я перечисляю все компы в сетке, а потом пытаюсь к ним законектится,(использую indy). Но если ftp сервака нет, то прога вылетает с ошибкой.. как это избажать... я понимаю, надо как минимум просто узнать есть ли ftp сервер на компе.
Спасибо!

← →
Reindeer Moss Eater © (2006-06-10 11:44) [1]

Прочитай про обработку исключительных ситуаций.

← →
SamProf © (2006-06-10 11:45) [2]

procedure getdir(host,dir:string);
Var
Found : integer;
SearchRec : TSearchRec;
ftp:TIdFTP;
begin
ftp:=TIdFTP.Create(nil);
ftp.Host:=host;
ftp.Username:="anonymous";
ftp.Connect;
if not ftp.Connected then exit;
ftp.List(form1.Memo2.Lines);
ftp.Disconnect;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
sn:String;
begin
for i:=1 to memo1.Lines.Count do
begin
sn:=Memo1.Lines.Strings[i-1];
Delete(sn,1,2);
Application.ProcessMessages;
try
getdir(sn,"/");
finally
end;
end;
end;

← →
Reindeer Moss Eater © (2006-06-10 11:46) [3]

Прочитай про обработку исключительных ситуаций еще раз.

ну плиз - помоги!

> ftp.Connect; if not ftp.Connected then exit;

try ftp.Connect; except on E:Exeption do ShowMessage("не могу! ибо: "+#13#10+E.message); end;
попробуй

Как проверить наличие ftp сервака на компе Найти похожие ветки