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

Hellen

Дата 12.5.2009, 22:06 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 168
Регистрация: 3.7.2006
Где: Москва

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

Помню была у меня одна программулинка, она делала снимок директории CD.
Вставляешь в привод CD, заводишь программку, она считывает все папки и файлы и делает пустышку с заносом в всою какую то оболочку (база данных)
Сейчас у меня накопилось приличное кол-во фильмов и музыки, хорошо бы это моё безценное добро, записать на какой нибудь диск (ещё не знаю на какой) и убрать в дальний ящик, а что бы не забыть что у меня там есть, сделать подобную пустышку.
Господа, великие мастера программного волшебства, поделитесь опытом и знанием..............
Пжлстаа...

Данкинг

Дата 12.5.2009, 22:44 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

А что такое "пустышка"? smile

Вот код, который считывает файлы с подкаталогами по заданному пути:

Код


procedure FindFiles(StartFolder, Mask: string; List: TStrings;
  ScanSubFolders: Boolean = True);
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin
  List.BeginUpdate;
  try
    StartFolder := IncludeTrailingBackslash(StartFolder);
    FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec);
    try
      while FindResult = 0 do
        with SearchRec do
        begin
          if (Attr and faDirectory) <> 0 then
          begin
            if ScanSubFolders and (Name <> '.') and (Name <> '..') then
              FindFiles(StartFolder + Name, Mask, List, ScanSubFolders);
          end
          else
          begin
            if MatchesMask(Name, Mask) then
              List.Add(StartFolder + Name);
            application.ProcessMessages;
              end;
          FindResult := FindNext(SearchRec);
        end;
    finally
      FindClose(SearchRec);
    end;
  finally
    List.EndUpdate;
  end;
end;

Пример использования (нахождение всех файлов по маске + учёт подкаталогов):

Код


FindFiles ('c:\windows','*.*',memo1.Items, true);

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

There's nothing left but silent epitaphs.

Snowy

Дата 12.5.2009, 23:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Програмулина являлась типичным каталогизатором.
Скачай себе какой-нибудь и юзай.
Больше помочь нечем - каталогизатор - это программа, а не компонент или ссылка на код.
Тут парой строчек не помочь. И даже парой сотен строчек...

Akella

Дата 12.5.2009, 23:52 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

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

Добавлено через 39 секунд
Если что, задавай вопросы, постараюсь ответить.

Добавлено через 10 минут и 11 секунд
Но программу за пример не бери, т.к. это я просто учился программировать smile

. Программу отправляю лишь для того, чтобы не писать тебе здесь кучу примеров и т.п.

Самое для тебя главное - это процедура рекурсивного обхода дерева каталогов с занесением каждого узла в базу. А это всего несколько строк кода. А дальше интерфейс сама выдумывай. Можно найти в тырнете кучу каталогизаторов и посмотреть на их морды.

Bose

Дата 14.5.2009, 00:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

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

WhereIsIt помнится мне был хорошим примером подобного рода программ.

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

Лучшее о Delphi за 2013 год. Подборка ссылок.

MetalFan

Дата 14.5.2009, 08:09 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

одно время пользовался MPEG Audio Collection. она опен сорс, написана на делфе, но только вроде для каталогизации музыки.

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

There are always someone smarter than you...

Hellen

Дата 15.5.2009, 22:32 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 168
Регистрация: 3.7.2006
Где: Москва

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

Цитата

Если что, задавай вопросы, постараюсь ответить

Akella, Спасибо, программку получила, как появится время, буду спрашивать....................

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