VPF::Рекурсиный вывод файлов/дирректори FTP

Гость_Cat

Дата 13.12.2004, 11:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Скажите плз как с помощью компонента TidFTP вывести рекурсивно список всех катологов и файлов на определенном фтп в компонент Memo1.
Заранее благодарю за ответы!

_hunter

Дата 14.12.2004, 12:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

в принципе точно та же как и список всех каталогов/файлов на диске.
в чем именно проблема?

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

Tempora mutantur, et nos mutamur in illis...

<Spawn>

Дата 15.12.2004, 20:21 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Как сказал _hunter - так же как и с файлами. Нужно лишь использовать соответствущие методы.

Все сведется примерно к следующему:

Код

procedure ScanDir(const Directory: string);
var
  DirListing: TidDirectoryListing;
begin
  ...
  try
    DirListing := TidDirectoryListing.Create;
    idFTP.List(nil);
    DirListing.Assign(idFTP.DirectoryListing);
    for i := 0 to DirListing.Count - 1 do
      if DirListing.Items[i].ItemType = ditDirectory then
        ScanDir(DirListing.Items[i].FileName);
      else
        Memo1.Lines.Add(Directory + DirListing.Items[i].FileName);
  finally
    FreeAndNil(DirListing);
  end;
  ...
end;

Это сообщение отредактировал(а) <Spawn> - 15.12.2004, 20:25

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

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