VPF::Поиск файла(ов) по всему компьютеру

Ak47black

Дата 24.4.2007, 16:58 (ссылка)

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

Загрузка ...

Эксперт

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

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

Хочю спросить насшет продвинутого програмного поиска файлов, как лучше его сделать и нужно-ли изобретать велосипеды
Функция поиска должна уметь

Искать сразу на всех накопителях (включая флэшку, CD-ROM)
Искать по расширению например 'file.*'
Искать по имени файла (без расширения) например 'file'
Искать файлы где попадаеться введенная фраза например 'file' и 'thisfile.exe'
Искать по имени+расширение например 'file.avi'
Искать все файлы в каталоге '*.*'

Вообшем чтото похожее на
user posted image

Подскажите пожалуйста свои идеи буду благодарин smile

Rennigth

Дата 24.4.2007, 17:05 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Ak47black @ 24.4.2007, 16:58

)

продвинутого програмного поиска файлов

FindFirst + FindNext?

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

(* Honesta mors turpi vita potior *)

Ak47black

Дата 24.4.2007, 17:11 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата

FindFirst + FindNext?

Ну да с этими только как сделать ,чтобы все пункты на верху работали?
Я шас с ними веловипед изобретаю smile

Matematik

Дата 24.4.2007, 17:12 (ссылка)

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

Загрузка ...

Эксперт

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

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

GetLogicalDrives или GetLogicalDriveStrings - узнать какие "диски" есть в системе
GetDriveType - узнать тип диска
FindFirst + FindNext - поиск по диску

все очень просто

Sunvas

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

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

Загрузка ...

Соль и сахар

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

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

А посмотреть внизу для начала??
Вообще с таким вопросом нужно в Центр Помощи. Говори что не получается - подумаем покурим.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Ak47black

Дата 24.4.2007, 18:31 (ссылка)

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

Загрузка ...

Эксперт

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

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

Лан буду дальше изоборетать велосипед, просто думал что кто-нибудь скажет какой-нибудь готовый велосипед.
Наверника-ж ктото сталкивался. smile

Внизу то, по всем пунктам ненашол.

Это сообщение отредактировал(а) Ak47black - 24.4.2007, 19:02

Farmazon

Дата 24.4.2007, 19:14 (ссылка)

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

Загрузка ...

Разработчик

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

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

добавлю к словам математика:
FindFirst и findNext работают только с одной папкой... Тут рекурсия нужна чтобы просмотреть вложенные папки... Вот впринципе накидал:

Код


function SearchFiles(mask: String; BackProc: TBackProc): DWord;

  function RecSearch(Folder: String): DWord;
    var
      R : TSearchRec;
    begin
      Result := 0;
      if FindFirst(Folder + Mask, faAnyFile, R) = 0 then
        repeat
          Inc(Result);
          BackProc(Folder + R.Name);
        until FindNext(R) <> 0;
      FindClose(R);

      if FindFirst(Folder + '\*.*', faDirectory, R) = 0 then
        repeat
          if (R.Name <> '.') and (R.Name <> '..') then
            RecSearch(Folder + r.Name + '\');
        until FindNext(R) <> 0;
      FindClose(R);
    end;

  var
    vol : array[0 .. 256] of Char;
    P : PChar;
    OldErrMode: Integer;

  begin
    Result := 0;
    P := @Vol;
    GetLogicalDriveStrings(2000, P);
    OldErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
    {$I-}
    while (P^ <> #0) do
      begin
        Inc(Result, RecSearch(P));
        Inc(P, 4);
      end;
    {$I+}
    SetErrorMode(OldErrMode);
  end;

Пример использования:

Код


procedure Back(FN : String);
begin
  ShowMessage(FN);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SearchFiles('*.txt', Back);
end;

Отмечу использование SetErrorMode. Это нужно, чтобы не выскакивала ошибка при обращении к пустому дисководу.

Добавлено через 1 минуту и 5 секунд
Да... Забыл))

Код


type
  TBackProc = procedure(FN : String);
...

ПС: Получите ваш велосипед.

Добавлено через 2 минуты и 57 секунд
Ещё забыл) Результат SearchFiles - количество найденый файлов...

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

Таково моё общее мнение.

Ak47black

Дата 24.4.2007, 19:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

Лан придумал уже свой велосипед, спасибо за внимание проблема решена.

Цитата

ПС: Получите ваш велосипед.

Сорри , там-же галочка стояла что вопрос решен smile

.

Это сообщение отредактировал(а) Ak47black - 24.4.2007, 19:48

Farmazon

Дата 24.4.2007, 20:55 (ссылка)

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

Загрузка ...

Разработчик

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

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

у мну рисунки отключены)

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

Таково моё общее мнение.

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