VPF::Мониторинг каталога на предмет изменения файлов

zhefran

Дата 2.9.2008, 15:15 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

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

Суть такая. Есть каталог со множеством подкаталогов. Мне надо следить за изменением файлов внутри каталога. При наличии изменения копировать файл в другое место или например передавать по сети. Это что-то по принципу поиска обновлений. Как посоветуете это дело организовать?

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

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

CodeMonkey

Дата 2.9.2008, 15:48 (ссылка)

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

Загрузка ...

Эксперт

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

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

http://www.google.com/search?num=50&hl...&lr=lang_ru

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

MetalFan

Дата 2.9.2008, 15:51 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

а можно и по форуму поискать... уже вроде обсуждалось

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

There are always someone smarter than you...

Alexeis

Дата 2.9.2008, 15:58 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(MetalFan @ 2.9.2008, 14:51

)

а можно и по форуму поискать... уже вроде обсуждалось

Ага по слову ReadDirectoryChanges

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

zhefran

Дата 2.9.2008, 16:53 (ссылка)

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

Загрузка ...

Бывалый

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

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

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

MetalFan

Дата 2.9.2008, 17:10 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

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

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

There are always someone smarter than you...

zhefran

Дата 2.9.2008, 17:51 (ссылка)

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

Загрузка ...

Бывалый

Цитата(MetalFan @ 2.9.2008, 17:10)

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

Можешь показать как или послать по конкретной ссылке?

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

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

zhefran

Дата 15.9.2008, 17:03 (ссылка)

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

Загрузка ...

Бывалый

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

Это сообщение отредактировал(а) zhefran - 16.9.2008, 11:58

Присоединённый файл ( Кол-во скачиваний: 21 )

MONDIR.rar 198,59 Kb

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

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

zhefran

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

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

Загрузка ...

Бывалый

Проблема c переименованием файлов и папок в корне каталога решается тем, что при создании хэндла для поиска нужно добавить свойство FILE_SHARE_WRITE

Код


hDir := CreateFile(PChar(Dir),
                     FILE_LIST_DIRECTORy,
                     FILE_SHARE_READ or FILE_SHARE_DELETE or FILE_SHARE_WRITE,
                     nil,
                     OPEN_EXISTING,
                     FILE_FLAG_BACKUP_SEMANTICS,
                     0);

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

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

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