VPF::Как закачать на ftp сервер папку

new_user

Дата 31.5.2004, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.5.2004

Репутация: нет
Всего: нет

Пробовал отправлять на ftp сервер отдельные файлы, это выходит. А как можно закачать не отдельные файлы, а папку вместе со всеми содержащимися в ней файлами?
Использовал NFTP.
Буду очень благодарен, если приведете исходничек.

z-END

Дата 31.5.2004, 13:20 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

точно так-же как и у себя на компе

сначала ее надо на сервере создать, а затем скопировать все файлы с компа на сервер.

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

new_user

Дата 31.5.2004, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.5.2004

Репутация: нет
Всего: нет

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

Pakshin A. S.

Дата 31.5.2004, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

При помощи FindFirst & FindNext делаешь проход по всем файлам и подпапкам нужной тебе дирректории... надеюсь, с реализацией проблем не будет?!

Pakshin A. S.

Дата 31.5.2004, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Добрый я сегодня. Вот набросал, но не осуждайте, если что:

Код


procedure SendFiles(Dir:string; FtpDir:string);
var
 SearchRec:TSearchRec;
 FindResult:integer;
begin
 if FtpDir <> ''
  then
   begin
    {
    Надо создать директорью на Ftp
    Ftp-сервер/ + FtpDir
    }
   end;
 FindResult:=FindFirst(Dir + '*.*', faAnyFile + faHidden + faSysFile + faReadOnly, SearchRec);
 while FindResult = 0 do
  begin
   {
   Делаем загрузку файла SearchRec.Name в
   ftp-сервер/ + FtpDir
   }
   FindResult:=FindNext(SearchRec);
  end;
 FindClose(SearchRec);
 FindResult:=FindFirst(Dir, faDirectory, SearchRec);
 while FindResult = 0 do
  begin
   if not ((SearchRec.Name = '.') or (SearchRec.Name = '..'))
    then
      SendFiles(Dir + SearchRec + '\', FtpDir + SearchRec.Name + '/');
   FindResult:=FindNext(SearchRec);
  end;
 FindClose(SearchRec);
end;

Код


SendFiles('C:\FtpDir\', '');

Можно и модернизировать, просто я не знаком с технологией NFTP...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »