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

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

Как проверить наличие ftp сервака на компе [D7, WinXP]

SamProf ©   (2006-06-10 11:37:00) 

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

---

tesseract   (2006-06-10 12:12:00) [1]

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


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

попробуй

---

SamProf   (2006-06-10 11:48:00) [2]

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

---

Reindeer Moss Eater   (2006-06-10 11:46:00) [3]

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

---

SamProf   (2006-06-10 11:45:00) [4]

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:44:00) [5]

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

---

Наверх