VPF::IdFTP и дерево папок - Форум программистов

Дерзающий

Дата 10.10.2007, 19:54 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как работать с этим IdFTP компонентом и как его настраивать? Чего то не пойму. А мне надо прочесть дерево папок с сервера фтп. Помогите кто чем может.

Anikmar

Дата 10.10.2007, 21:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

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

Настраивать примерно так:

Код


IdFTP1->Host = // Имя хоста (например ftp.peterhost.ru
IdFTP1->User = // Имя пользователя
IdFTP1->Password = // Пароль

Дальше подключаем

Код


IdFTP1->Connect();

Дальше считываем список файлов и директорий:

Код


TStringList *DirList;
DirList = new TStringList;
IdFTP1->List(DirList,"*",true);

Дальше обрабатываем получившиеся строки и ходим по директориям используя методы ChangeDir и ChangeDirUp повторяя считывание списка файлов и директорий.

Делал давно, если честно. На сколько помню все дерево сразу протокол считать не позволяет - надо примерно так как я сказал делать.

Соответственно не забываем перехватывать исключения и ловить нужные события.

Дерзающий

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

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

Загрузка ...

Шустрый

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

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

Спасибо с этим. Разобрался, все получилось. Но вот как этот DirList разобрать на имя, дату и тд. Сервер UNIX 8. И присылает строки нижеприведённого типа, а там дата в разном виде. А вдруг другой сервер будет. Есть ли какието стандартные компоненты для разбора строк?

Anikmar

Дата 11.10.2007, 14:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

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

Директорию от файла я кажется отличал по первому символу атрибута - d - это признак директории..
Остальные поля вычленял - там размер, дата создания и т.п. - обычная работа со строками - выделение слов.

Дерзающий

Дата 11.10.2007, 18:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нашел такой код на делфи

Код


procedure   AddList(ListView:Tlistview);   
  var   
  newitem:Tlistitem;   
  i:integer;   
  fd:tftpdirectorylist;   
  begin   
      listview.Items.BeginUpdate;   
      fd:=tftpdirectorylist.Create;   
        
      for   i:=0   to   flist.Count-1   do   
      begin   
          fd.ParseLine(flist.Strings[i]);   
      end;   
      for   i:=0   to   fd.name.Count-1   do   
      begin   
          newitem:=tlistitem.Create(listview.Items);   
          newitem:=listview.Items.Add;   
          newitem.caption:=fd.name.Strings[i];   
          newitem.SubItems.Add(fd.Size.Strings[i]);   
          newitem.SubItems.Add(fd.Attribute.Strings[i]);   
          newitem.SubItems.Add(fd.ModifDate.Strings[i]);   
      end;   
      listview.Items.EndUpdate;   
      fd.Free;   
    
  end;   
  //其中flist是一个全局变量,已经被idftp.list(flist)处理过了;   
  //为什么fd.name.count竟然是0??   
  //我确信当前目录不是空目录.

А вот это мой код

Код


        ListBox1->Items->Clear();
        TStringList *L=new TStringList;
        IdFTP1->Host=Edit1->Text;
        IdFTP1->User=Edit2->Text;
        IdFTP1->Password=Edit3->Text;
        IdFTP1->Port=21;
        IdFTP1->Connect();
        bool c=IdFTP1->Connected();
        TFTPDirectoryList *DL=new TFTPDirectoryList();
        IdFTP1->List(L,"pub/linux",true);
        for(int i=0;i<L->Count;i++)
        {
                DL->ParseLine(L->Strings[i]);
        }
        for(int i=0;i<DL->name->Count;i++)
        {
                ListBox1->Items->Add(DL->name->Strings[i]);
        }

Почему в DL нечего нет, хотя в списке L есть все что нужно

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