Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поиск файла(ов) по всему компьютеру

Автор: Ak47black 24.4.2007, 16:58

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

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

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

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

Автор: Rennigth 24.4.2007, 17:05

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

)

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

FindFirst + FindNext?

Автор: Ak47black 24.4.2007, 17:11

Цитата

FindFirst + FindNext?

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

Автор: Matematik 24.4.2007, 17:12

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

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

Автор: Sunvas 24.4.2007, 18:18

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

Автор: Ak47black 24.4.2007, 18:31

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

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

Автор: Farmazon 24.4.2007, 19:14

добавлю к словам математика:
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

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

Цитата

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

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

Автор: Farmazon 24.4.2007, 20:55

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