проблемы работы с директориями Опции

[ddn]

Есть много вопросов по работе в BP7, TMT (3.90), FPC (2.4.0.i386-win32) под WinXP:
1) верно ли, процедуры FindFirst и FindNext могут одновременно работать с несколькими директориями и даже с одной директорией через несколько указателей;
2) верно ли, что указатель поиска в директории определяется только записью файла SR (тип TSearchRec), но не директорией в которой она расположена, т.е. только по записи файла SR возможно непосредственно определить ее директорию и ее расположение в директории;
3) верно ли, что вызов FindNext(SR) возвращает в SR следующую запись (если она есть, если нет - SR неопределено или исходное значение?) в директории ее (исходной записи SR) расположения, а не в директории из последнего вызова процедуры FindFirst;
4) верно ли, что вызов FindClose(SR) прекращает поиск (работу с указателем) в директории расположения записи, а не в директории из последнего вызова процедуры FindFirst, поиск в других директориях не прекращается (непонятно, зачем вообще нужна эта процедура, если вся работа идет с данными из записи SR);
- без выполнения данных взаимосвязанных утверждений рекурсивный поиск в директориях НЕВОЗМОЖЕН (по крайней мере, без создания списков их содержимого),

далее:
5) верно ли, что путь к директории в вызове процедуры FindFirst должен заканчиваться разделителем '\';
6) возможна ли проверка существования файла, директории или лог. диска по его имени/полному_имени без использования процедур FindFirst и FindNext;
7) возможна ли работа с текущей директорией (получение абс. пути, изменение);
8) верно ли, что имена директорий SR.name в их записях SR из их наддиректорий не содержат разделителя '\';
9) верно ли, что записи в любой не изменившейся директории при каждой ее обработке процедурами FindFirst и FindNext выдаются в одном и том же порядке (лексикографическом по именам?);
10) как обеспечить работу с длинными именами файлов (как вызвать Win под FPC);
11) верно ли, что поле Time в TSearchRec - это время создания файла (если нет, как узнать/изменить время создания), или это время его последнего изменения/открытия;
12) что представляют собой неизвестные компилятору типы полей записи SR файла в директории под Win: TFileName (=string ?), THandle, TWin32FindData, каким характеристикам файла они и Fill (тип array[1..21] of Byte) отвечают;

Win32 target
type
  TSearchRec = record
    Fill : array[1..21] of Byte;
    Attr : Byte;
    Time : Longint;
    Size : Longint;
    Name : TFileName;
    ExcludeAttr : Longint;
    FindHandle : THandle;
    FindData : TWin32FindData
  end;

[volvo]

В общем, так, ddn...

Вот этот код (Показать/Скрыть)

{$mode delphi}

{$I+, Q+, R+, S+}
uses dos, sysutils, math;

procedure fullcopydir(dir1, dir2: string; prov: boolean);
const maxh = 127;

var
  L: integer;
  i: byte;

  attr: word;
  time: longint;
  f, g: file;

  (* функция селекции на копирование проверяемого файла по некоторым полям его паспорта *)
  function sel(attr: byte; time: longint; size: longint; name: string): boolean;
  begin
    sel := true
  end;

  type
    interval = 0 .. maxh;

  procedure create_folder(name: string; attr: word; time: longint);
  var g: file;
  begin
    createdir(name); (* создание пустой копии найденной поддиректории *)
    assign(g, name); (* дескриптор копии найденной поддиректории *)
    setfattr(g, attr); (* копирование атрибутов найденной поддиректории *)
    setftime(g, time); (* копирование времени ? найденной поддиректории *)
  end;

  procedure copydir(h: interval; b0: boolean; ln: byte;
            dir1, dir2: string);
  var
    e : boolean; (* условие успешного завершения текущего шага поиска *)
    i : byte; (* буферная переменная для копируемого байта *)
    f, g : file; (* вспомогательные дескрипторы, соответственно, копируемых и являющихся копиями файлов *)
    b : boolean; (* текущее значение условия сохранения копии директории dir1 *)
    sr : tsearchrec; (* паспорт найденных файлов и дескриптор поиска *)

    dir_to_be_created: string;
  begin
    b := b0; (* начальное значение условия сохранения копии директории dir1 *)
    if findfirst(dir1 + '*', anyFile, sr) <> 0 then exit;
    try
      repeat
        if (sr.name = '.') or (sr.name = '..') then continue;

        if (sr.attr and directory)=directory then begin (* найденный файл - обычная поддиректория *)
          dir_to_be_created := dir2+sr.name+'\';

          create_folder(dir2+sr.name+'\', sr.attr, sr.time);
          copydir(
            h+1, (* глубина найденной поддиректории и содержимых ею файлов *)
            sel(sr.attr, sr.time, sr.size, sr.name), (* выполнение условия селекции найденной поддиректорией, т.е. ее затребованность для копирования *)
            ln+length(sr.name)+1, (* максимум длины абсолютного пути к содержимому найденной поддиректории и ее копии *)
            dir1+sr.name+'\', (* найденная поддиректория *)
            dir_to_be_created (* копия найденной поддиректории *)
          ); (* селективное копирование содержимого всех уровней вложенности найденной поддиректории; удаление копии найденной поддиректории, если она пустая и не требуется *)
	     end

        else begin (* найденный файл - не директория *)
          if sel(sr.attr, sr.time, sr.size, sr.name) then (* найденный файл выполняет условию селекции, т.е. затребован для копирования *)
          begin  (* копирование найденного файла *)

            b := true; (* условие сохранения копии директории dir1 выполнено *)
            assign(f, dir1+sr.name); (* дескриптор найденного файла *)
            assign(g, dir2+sr.name); (* дескриптор копии найденного файла *)
            reset(f, 1); (* открытие найденного файла для побайтного чтения *)
            rewrite(g, 1); (* пересоздание и открытие копии найденного файла для побайтной записи *)
            (* копирование содержимого найденного файла *)
            while not eof(f) do (* конец найденного файла не достигнут *)
            begin
              blockread(f, i, sizeof(i));
              blockwrite(g, i, sizeof(i));
            end;
            close(f); (* закрытие найденного файла *)
            close(g); (* закрытие копии найденного файла *)
            setfattr(g, sr.attr); (* копирование атрибутов найденного файла *)
            setftime(g, sr.time); (* копирование времени ? найденного файла *)
          end;
        end;

      until findnext(sr) <> 0;
    finally
      findclose(sr);
    end;

  (* проверка конечного условия сохранения копии директории dir1 = затребованность для копирования самой dir1 или некоторых содержимых ею файлов *)
  {
    if not b then (* в директории dir2 нет скопированных файлов и сама она не требуется *)
      begin
        assign(g, dir2); (* дескриптор директории dir2 *)
        setfattr(g, $00); (* снятие флага 'только для чтения' с директории dir2 *)
        erase(g) (* удаление пустой директории dir2 *)
      end
  }
  end;

begin
  L := min(length(dir1), length(dir2));
  if prov then (* необходима проверка исходной директории dir1 и ее копии *)
    begin
      (* проверка исходных директорий на вложенность *)
      i := 1;
      while (i<=l) and (dir1[i]=dir2[i]) do
        i := i+1;
      if i>l then (* исходные директории вложены *)
        halt (* аварийная остановка программы *)
    end;

  assign(f, dir1); (* дескриптор исходной директории dir1 *)
  getfattr(f, attr); (* чтение атрибутов исходной директории dir1 *)
  getftime(g, time); (* чтение времени ? исходной директории dir1 *)
  create_folder(dir2, attr, time);
  copydir(
    0, (* глубина исходной директории dir1 и содержимых ею файлов *)
    true, (* исходная директория dir1 требуется для копирования *)
    max(length(dir1),length(dir2)),
    dir1, (* исходная директория dir1 *)
    dir2 (* копия исходной директории dir1 *)
  ) (* селективное копирование содержимого всех уровней вложенности исходной директории dir1 *)
end;

begin
  fullcopydir('F:\T\', 'F:\G\', true);
end.

прекрасно компилируется FPC (2.4.0, Target = Win32) и работает, копирует по твоему алгоритму папки с подпапками и файлами из одного места в другое. Но... В нем есть ошибка. Логическая. Исправлять её - тебе (я строки, ее содержащие, закомментировал).

Вот там, где ты проверяешь, что в папку не было скопировано ни одного файла, и в зависимости от результата проверки B так сразу легко и просто удаляешь директорию, которая по твоему мнению - пустая (на данном уровне рекурсии файлы в нее не копировались). А что будет, если в ее дочернюю директорию копировались файлы (да и вообще, если текущая папка содержит подпапки), и ты попытаешься такую папку удалить через Erase? Кто вообще удаляет папки через Erase? Для этого придумали RD (оно же - RmDir).

Здесь надо действовать по-другому. Попробуй догадаться, как...

При рекурсии это исправить затруднительно

Неправда. При рекурсии это исправить проще простого. По крайней мере, гораздо проще, чем при итерации...

P.S. На всякий случай - копировать файлы побайтно - долгая история. В Хелпе Турбо Паскаля лежит пример использования BlockRead, так вот там приведена программа, производящее гораздо более быстрое копирование файла.