Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.05.04;
Скачать: CL | DM;

Вниз

Определение существования папки на FTP   Найти похожие ветки 

 
Inearthed   (2007-08-01 07:15) [0]

Как можно по заданному пути определить, существует ли данная папка на FTP?


 
SlymRO ©   (2007-08-01 07:52) [1]

по принципу определения наличия стены:
10 шаг вперед
20 если получил по лбу/носу/или др.выпирающим частям тела то стена имеет место быть
30 иначе стены
40 goto 10


 
SlymRO ©   (2007-08-01 07:53) [2]

30 иначе стены нет


 
Inearthed   (2007-08-01 07:55) [3]

:) А если без прямого физического взаимодействия?


 
SlymRO ©   (2007-08-01 08:15) [4]

Inearthed   (01.08.07 7:55) [3]
как проверить лампочку на то, что она будет гореть 50 тыс. часов? (без прямого физического взаимодействия)...
если ты наблюдал за "закатчиками" то мог наблюдать процедуру загрузки файла по FTP: некоторые "загрузыны" не посылают команду LIST, а тупо делают chdir - если получили отлуп, значит это не папка, а что-то другое (например файл :))


 
Inearthed   (2007-08-01 08:34) [5]

Поясни, если не сложно. ;) Мне просто не хотелось бы, что-либо туда загружать или выгружать, хорошо бы, если бы существовал какой-нибудь аналог функции DirectoryExists..


 
SlymRO ©   (2007-08-01 09:19) [6]

тупо делают chdir - если получили отлуп, значит это не папка


 
SlymRO ©   (2007-08-01 09:21) [7]

к примеру: ну есть папка и что? правов у тебя на нее нету... есть папка? в моем понятии папка - это узел в дереве коталогов, в который можно хотябы войти


 
Inearthed   (2007-08-01 09:40) [8]

Не работает. Может я недостаточно тупо это делаю? ;) Вот:

if IdFtp1.Connected then
begin
ShowMessage("Соединение установлено");
try
 chdir("ftp://172.16.0.7"+ftpPathEdit.Text);
except
 ShowMessage("Папка не существует");
end;
IdFtp1.Disconnect;
end;


 
Сергей М. ©   (2007-08-01 10:15) [9]


> Может я недостаточно тупо это делаю?


Не волнуйся, тупости в том что ты делаешь достаточно)

Но еще тупее будет вызывать метод ChangeDir объекта IdFtp1)


 
umbra ©   (2007-08-01 10:25) [10]

if IdFtp1.Connected then
begin
 ShowMessage("Соединение установлено");
 try
  IdFtp1.ChangeDir(ftpPathEdit.Text);
 except
    on E: EIdProtocolReplyError do
       begin
          if E.ReplyErrorCode = 550 then
            ShowMessage("Не могу перейти в папку " + ftpPathEdit.Text);
       end;
    IdFtp1.Disconnect;
 end;
end;




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

Текущий архив: 2008.05.04;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.015 c
15-1206163183
Л.Николай
2008-03-22 08:19
2008.05.04
ImageList с поддержкой 32 битных иконок


2-1207681325
Ri2008
2008-04-08 23:02
2008.05.04
WM_POWERBROADCAST


9-1168306609
rts111
2007-01-09 04:36
2008.05.04
Ребята, "попинайте" техно-дему. (RTS 490 Kb.)


15-1201816478
Eraser
2008-02-01 00:54
2008.05.04
Remote Office Manager - бета тестирование 2


15-1206414584
Slider007
2008-03-25 06:09
2008.05.04
С днем рождения ! 24 марта 2008 понедельник