Delphi, компонент RxFolderMonitor

[khvalera]

Как с помощью Delphi узнать название появившегося файла в указаной траектории.

[JCooper]

khvalera
Нифига не понял :)

[khvalera]

Попробывал сделать так с помощью RxFolderMonitor1Change
проверку появления файла в коталоге, а с помощью FindFirst
узнаю название файла, вроде бы все ОК! но выводит в StatusBar
только ".". В чем дело? Что я не так делаю?
procedure TForm1.RxFolderMonitor1Change(Sender: TObject);
begin
FindFirst(path2+'*',faAnyFile,Names);
StatusBar1.SimpleText:= (Names.Name);
RenameFile(path2+'\*.*',path2+'\v'+Data+'.zzz');
end;

[JCooper]

Блин, что это еще за фигня  RxFolderMonitor1Change. Очередной бестолковый компонент? Такого не знаю, пишите по человечески используя нечто постандартнее, тогда может помогу...

[hasherfrog]

Kuper Чего кипятимся?
khvalera
В принципе я лично вижу два способа отслеживания создания файлов: регулярное перечитывание каталога и использование хуков. Если У Вас всё достаточно некритично по времени, первый вариант очень даже подойдёт, имхо.

[JCooper]

регулярное перечитывание каталога
Можно это вставить в обработчик Applicattion.OnIdle или же
создать поток и засобачить туда.
hasherfrog виноват, сорвался :shuffle:

[khvalera]

Отслеживание происходит с помощью компонента RxFolderMonitor1Change из библиотеки RX, это все работает, а вот по чему вместо названия файла в StatusBar выводится точка, я так и не выкупил.

FindFirst(path2+'*',faAnyFile,Names);
StatusBar1.SimpleText:= (Names.Name);

Что тут не так?

[hasherfrog]

khvalera
Ну подумаем. Что меняется при создании нового файла? Правильно, "описание" директории тоже подновляется. Вы просто никогда на это в виндах не обращали внимания. А текущий каталог - это и есть "." (эээ, сылка на неё). Т.о. Ваш компонент всё правильно отслеживает, Folder как раз и изменяется (ну и файл, конечно, тоже). Может, попробуете RxFileMonitor1Change :)? А на самом деле проблему легко разрулить - пропускаёте точку, если встретите в FindFirst.

[khvalera]

Благодарю за помощь! Подскажите как пропустить точку, в FindFirst.  :)

[hasherfrog]

khvalera
:spy: Если FindFirst возвращает в Names.Name строку ".", делаем FindNext (или FindSecond, или FindAgain, не в курсе, чего там у Вас).

[khvalera]

Спасибо !!!
Первый FindNext  показывает „..”, следующий название подкаталога, а следующий уже файл. Проще ничего нет?

[hasherfrog]

следующий название подкаталога
Какого ещё подкаталога? Это уже похоже на работу самого обычного FindFirst/FindNext для какого-нибудь CFile или Win32API.

[khvalera]

Кто работал с RxFolderMonitor?  Какого в 98й он выдает ошибку при вводе пути и активизации в Win2000 работает нормально?
Project * raised exception class EWin32Error with message Win32 Error. Code 87.

[hasherfrog]

AL> Почему при попытке активировать rxFolderMonitor вылетает ошибка "Win32
AL> Error. Code 87. Параметр задан неверно"?
В свойстве Filter для W9x должно быть FALSE для fnLastAccess, fnCreation,
fnSecurity.

[khvalera]

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

[hasherfrog]

Я подозреваю, что в имплементейшене RxFolderMonitor используется API-функция FindFirstFileEx вместо FindFirstFile, если Вы требуете какие-то дополнительные аттрибуты файлов в поиске. А FindFirstFileEx не реализована в 95,98,me.
Вообще, я лично страшно не люблю использовать библиотеки с закрытым кодом, а в Delphi это сплошь и рядом.

[khvalera]

Та, что вы можете посоветовать? Может есть другие подобные компоненты?

[hasherfrog]

Я уже преглагал - напишите свой. Я бы так и сделал. Извините, но в компонентах дельфи я как балерина в паровозах http://smiles.ru/coll/smile/naturalist.gif