Скачать: CL | DM;

Как проверить наличие 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]

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

---

← →
SamProf ©   (2006-06-10 11:48) [4]

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

---

← →
tesseract ©   (2006-06-10 12:12) [5]

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


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

попробуй

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c