[Delphi 7] Поиск файлов из консольного приложения.

[tozter]

Надо сделать поиск из консольного приложения. Вот код:

function FindFile(Dir: string): Boolean;
var
  SR: TSearchRec;
  FindRes,Glub: Integer;
begin
  FindRes := FindFirst(Dir + 'file01', faAnyFile, SR);
  while FindRes = 0 do
  begin
    if ((SR.Attr and faDirectory) = faDirectory) and
      ((SR.Name = '.') or (SR.Name = '..') or (Glub > 3)) then
    begin
      FindRes := FindNext(SR);
      Glub := 0;
      Continue;
    end;

    // если найден каталог, то
    if ((SR.Attr and faDirectory) = faDirectory) then
    begin
      // входим в процедуру поиска с параметрами текущего каталога +
      // каталог, что мы нашли
      FindFile(Dir + SR.Name + '\\');
      FindRes := FindNext(SR);
      // после осмотра вложенного каталога мы продолжаем поиск
      // в этом каталоге
      Glub := Glub +1;
      Continue; // продолжить цикл
    end;
    CopyFile(PChar(SR.Name), PChar(String(GetWindowsDir)+'\temp\'+ copy(Dir,1,1) +'file01'),true) ;
   
    FindRes := FindNext(SR);
  end;
  FindClose(SR);     <---   На эту строчку ругается!
end;

Почему при компиляции ругается на FindClose(SR); ?

[Stilet]

Какими словами ругается? Или ты действительно думаешь что мы все телепаты тут?

[tozter]

Сообщение от Stilet

Какими словами ругается? Или ты действительно думаешь что мы все телепаты тут?

Вот:

[Error] finder.dpr(65): Incompatible types: 'Cardinal' and 'TSearchRec'

[Serge_Bliznykov]

не знаю.. у меня всё компилируется... (правда, пришлось функцию GetWindowsDir дописать)..

program finder;
{$APPTYPE CONSOLE}
uses Windows,SysUtils;

function GetWindowsDir : string;
var
  WinIniFileName : array[0..MAX_PATH] of char;
begin
  GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));
  Result := WinIniFileName;
end;


function FindFile(Dir: string): Boolean;
var
  SR: TSearchRec;
  FindRes,Glub: Integer;
begin
  FindRes := FindFirst(Dir + 'file01', faAnyFile, SR);
  while FindRes = 0 do
  begin
    if ((SR.Attr and faDirectory) = faDirectory) and
      ((SR.Name = '.') or (SR.Name = '..') or (Glub > 3)) then
    begin
      FindRes := FindNext(SR);
      Glub := 0;
      Continue;
    end;

    // если найден каталог, то
    if ((SR.Attr and faDirectory) = faDirectory) then
    begin
      // входим в процедуру поиска с параметрами текущего каталога +
      // каталог, что мы нашли
      FindFile(Dir + SR.Name + '\\');
      FindRes := FindNext(SR);
      // после осмотра вложенного каталога мы продолжаем поиск
      // в этом каталоге
      Glub := Glub +1;
      Continue; // продолжить цикл
    end;
    CopyFile(PChar(SR.Name), PChar(String(GetWindowsDir)+'\temp\'+ copy(Dir,1,1) +'file01'),true) ;

    FindRes := FindNext(SR);
  end;
  FindClose(SR);     // <---   На эту строчку ругается!
end;

begin
  FindFile('C:\dddaafff');
end.

[Аватар]

попробуйте так: SysUtils.FindClose(SR);
Может поможет
Одноименная функция есть в unit Windows

[tozter]

Сообщение от Аватар

попробуйте так: SysUtils.FindClose(SR);
Может поможет
Одноименная функция есть в unit Windows

Да, помогло.
Спасибо.

[Stilet]

tozter

А все потому что у тебя скорее всего стоит

uses
  Messages, SysUtils,... Windows,

В то время как надо

uses 
  Windows,  Messages, SysUtils

т.е. SysUtils должен перекрывать Windows, стоя за ним, или как уже сказали писать полный путь с указанием модуля перед процедурой.

[Serge_Bliznykov]

Сообщение от Stilet

В то время как надо

uses 
  Windows,  Messages, SysUtils

т.е. SysUtils должен перекрывать Windows, стоя за ним, или как уже сказали писать полный путь с указанием модуля перед процедурой.

Гениально! 100% попадание!
к свою стыду осознаю, что я не знал о том, что порядок перечисления модулей в uzes имеет значение.
Спасибо за науку!

[tozter]

А как сделать так, что б поиск был не глубже 2-го подкаталога?

[Stilet]

А ты счетчик глубины заведи.

var level:integer;
...
function FindFile(Dir: string): Boolean;
var
  SR: TSearchRec;
  FindRes,Glub: Integer;
begin
  inc(level);
  if level>2 then exit;
  FindRes := FindFirst(Dir + 'file01', faAnyFile, SR);

не знал о том, что порядок перечисления модулей в uzes имеет значение.

Ну логически рассуди - компилятор считал первый модуль, обнаружил в нем функцию, запомнил ее в список по именно. Потом считал второй модуль, обнаружил в нем такую же функцию, с таким же именем. Естественно он запомнит без задней мысли и ее в список, затерев первую запомненую.
В общем есть такой прикол в языках Вирта.