Delphi

JCooper · Отправлено: **13:25, 25-07-2004** | #2

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

khvalera · Отправлено: **22:29, 25-07-2004** | #3

ПопробЫвал сделать так с помощью 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 · Отправлено: **23:18, 25-07-2004** | #4

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

hasherfrog · Конфигурация компьютера

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

JCooper · Отправлено: **13:28, 26-07-2004** | #6

Цитата:

регулярное перечитывание каталога

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

khvalera · Отправлено: **22:15, 26-07-2004** | #7

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

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

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

hasherfrog · Конфигурация компьютера

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

? А на самом деле проблему легко разрулить - пропускаёте точку, если встретите в FindFirst.

khvalera · Отправлено: **13:02, 27-07-2004** | #9

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

hasherfrog · Конфигурация компьютера

khvalera

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

JCooper Сообщения: 196 Благодарности: 0	Профиль \| Сайт \| Отправить PM \| Цитировать khvalera Нифига не понял
	Отправлено: 13:25, 25-07-2004 \| #2

JCooper Сообщения: 196 Благодарности: 0	Профиль \| Сайт \| Отправить PM \| Цитировать Блин, что это еще за фигня RxFolderMonitor1Change. Очередной бестолковый компонент? Такого не знаю, пишите по человечески используя нечто постандартнее, тогда может помогу...
	Отправлено: 23:18, 25-07-2004 \| #4