Мониторинг каталога. Снимок папки.

[zhefran]

Делаю мониторинг каталога на предмет изменений с помощью FindFirsChangeNotification. Мне необходимо вытягивать имя папки или файла, который изменился. Как вариант - это делать снимок структуры папки и сравнивать этот снимок после изменения для выявления этих файлов и папок.
Как этот снимок можно сделать?

[_SERGEYX_]

А зачем? Есть куча готовых компонентов (например, abfFolderMonitor), которые мониторят каталоги на изменение для размера или имени файлов, изменение атрибутов, измнение имени каталога и т.д и готовое событие OnChange. Работают быстро. Проверял.

[zhefran]

Посмотрел, я тот компонент. Там все равно не вытянешь имя файла или папки! Я не нашел.

[eoln]

Если надо проверить изменения папки через несколько дней, надо эту папку сканировать FindFirst/FindNext и сохранить в файл информацию. Затем уже проверять.

procedure TForm1.Button12Click(Sender: TObject);
var
  mas: array of TSearchRec;
procedure ScanDir(StartDir: string);
var
  SearchRec: TSearchRec;
  k: integer;
begin
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  k := 0;
  if FindFirst(StartDir + '*', faAnyFile, SearchRec) = 0 then
  repeat 
     if (SearchRec.Name<>'..')and(SearchRec.Name<>'.') then
     begin
     inc(k);
     setlength(mas, k);
     mas[k-1] := SearchRec
     end
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec)
end;
begin
  ScanDir('путь к папке')
  //затем сохраняем массив mas в файл 
end;

Добавлю, что иногда может меняться пару байт, а атрибуты нет, в этом случае к каждому файлу надо вычислять CRC например

[mihali4]

Вот компонент:
Вложение 5812
Описание

Компонент является оболочкой функций Win32 API, позволяющих отслеживать изменения в файловой системе. Работает в отдельном потоке.
Имеет всего два свойства: Active и DirToWatch.
Первое служит для включения/выключения слежки за изменениями, второе - для указания директории за которой нужно следить.
Имеет события:
OnChangeFileName
OnChangeDirName
OnChangeAttributes
OnChangeSize
OnChangeLastWrite

Если вы и с ним не справитесь, то извините - кривизну рук на расстоянии вылечить нереально...

[Ring0Sn]

OFF

то извините - кривизну рук на расстоянии вылечить нереально...

Почему? всё реально:
Например, можно дать совет, как их правильно направить в шель между забором

[zhefran]

mihali4, при использовании компонента TDirInspector нужно все равно пользоваться тем, что предложил eoln. В свойствах предложеного компонента нету такого, которое бы отвечало за имя файла или папки, который/каторая изменялась.

[mihali4]

В свойствах предложеного компонента нету такого, которое бы отвечало за имя файла или папки, который/каторая изменялась

А посмотреть код компонента? А поколдовать над ним малость?
Или все на чужого дядю будете надеяться?

[zhefran]

mihali4, мониторинг реализован в этом компоненте с помощью функции FindFirstChangeNotification/FindNextChangeNotification, а в этих функциях отследить имя изменяемого обьекта я не нашел как.

[_SERGEYX_]

отследить имя изменяемого обьекта я не нашел как.

А если сортировать файлы не по имени, а по дате/времени последнего изменения? Что касается изменения имени самого каталога..., хм, а почему бы в сам код проверки не вставить if not directoryexists(...)?