File System Watcher (TfisFileNotification)

[maxefficiently]

поставил TfisFileNotification (TfisFile Notification v.1.00) на Delphi 2010. Указал директорию, стартанул компонент, обрабатываю событие-мобытия нет, не работает вообще. Поток 2-й создаётся.

В чём проблема, кто -то пользуется этим компонентом или посоветуете другой рабочий компонент File System Watcher, для отслеживания изменений в файловой системе?

Спасибо за полезные ответы!

[SERG1980]

Могу предложить юнит для этих целей, который в свою очередь мне дал Stilet. работает на ура в D2007

[maxefficiently]

Спасибо, попробуем, вот эта штука: TSHChangeNotify v.3.0 с http://www.torry.net/pages.php?id=252 работает, только тупая, директорию не выставить, мониторит не понятно что, каталог пользоватедя пониторит, остальное ничего не мониторит, каталог не сменить, бесит такая тупость Столько уже перепробовал, ничего нормаьно не пашет Будем модуль пробовать.

[maxefficiently]

SERG1980, супер, работает. Только незадача: надо отследить, что текстовый файл в папке изменился и сделать form1.Memo1.Lines.LoadFromFile его,и когда он начинает загружатся, то возникает ошибка: процесс не может получить доступ к файлу, так как файл используется другим процессом. Незадача, как побороть?

[Serge_Bliznykov]

процесс не может получить доступ к файлу, так как файл используется другим процессом. Незадача, как побороть?

вообще-то, на форуме действует правило - один вопрос - одна тема (ну, или наоборот - одна тема - один вопрос).
поэтому, если собираетесь вести обсуждение - тогда лучше создайте новую тему.

а по сути могу посоветовать, попробуйте прочитать файл через TFileStream
открывайте его в режиме совместного доступа:
Tf1 := TFileStream.Create('тут ваш файл.txt', fmOpenRead or fmShareDenyNone );
и потом грузите его в Ansi строку (не забудьте только ей установить размер предварительно!)

[SERG1980]

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

и потом грузите его в Ansi строку (не забудьте только ей установить размер предварительно!)

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

procedure TForm1.Button1Click(Sender: TObject);
var s:TStringStream;
    Tf1:TFileStream;
begin
Tf1 := TFileStream.Create('d:\1.txt',fmOpenRead or fmShareDenyNone);
s:=TStringStream.Create('');
s.CopyFrom(Tf1,Tf1.Size);
memo1.Text:=(s.DataString);
s.Free;
Tf1.Free;
end;

[maxefficiently]

спасибо Serge_Bliznykov, огромное спасибо SERG1980, жму обоим руки, помогли!!! Работает!

[maxefficiently]

Одна проблема - модуль отследив изменения в текстовом файле, на последующие - просто не реагирует, будет другой файл изменён-отреагирует, то есть не сообщает, что файл изменён несколько раз подряд, только 1-н раз, как решить трабл?

[maxefficiently]

По последнему вопросу создал отдельно новую тему: http://www.programmersforum.ru/showt...877#post735877