Отслеживание директории на наличие файлов

[makc9I]

Всем привет, возникла необходимость отслеживать директорию на наличие файлов в ней. Файлы туда попадают и обрабатываются другой программой, после чего удаляются. В итоге через какое-то время(время на обработку этих файлов программой) директория становится пустой.
Мне необходимо отслеживать текущее состояние этой директории до того момента, пока она не очиститься, попутно выводя количество необработанных файлов там.

Я реализовал это так:

procedure TForm1.sendFilesClick(Sender: TObject);
var
  sr : tSearchRec;
  i : integer;

begin

  while FindFirst(BIS_IN_PATH + '*.txt', faAnyFile - faDirectory - faVolumeID, sr) = 0 do
  begin
    i := 0;
    repeat
      i := i + 1;
    until FindNext(sr) <> 0;
    FindClose(sr);
    label_bis_send.Caption := 'Осталось обработать: ' + inttostr(i);
    sleep(5000); //5 секундная задержка до следующей проверки
  end;

end;

В принципе, данный код даже работает, но есть одно НО, форма намертво повисает до тех пор, пока каталог не опустеет и label_bis_send.Caption не обновляется вообще.

Да и в целом я не уверен, что данный код решает задачу оптимальным способом.

Вопроса два:
1) Как решить проблему с отображение количества файлов на форме
2) Можно ли решить задачу более оптимальным способом?

[ZuBy]

вот
и вот
мониторинг папок быстро ищется в гугле!

[Slym]

в упрощеном виде повесить сие на таймер и while со sleep убрать

[makc9I]

ZuBy,
Пока так и не вкурил, как это делается.
Вот читаю листинг программы по вашей ссылке номер 2.
Нашел такую строку:

 Application.MessageBox('Отвянь, гнида!', 'Помощи хочешь?', MB_OK+MB_ICONINFORMATION);

Прям читать дальше расхотелось сие творчество.

Как я понимаю, чтобы мой код заработал на отображение количества файлов(обновление label), необходимо все это дело в отдельный поток завернуть?
Пойду гуглить о потоках.

Slym, сейчас попробую ваш вариант

[ZuBy]

я не особо вчитывался, это просто выборка из гугла.
я бы посоветовал 1 ссылку посмотреть, там как раз с потоком сделано

[Serge_Bliznykov]

во-первых, делать подобные циклы - моветон! Хоть в потоке, хоть не в потоке!
Но, если уж Вы пишите индусский код, так, по крайней мере, отдавайте в цикле циклы операционной системе, вставьте внутрь цикла
строчку :

   Application.ProcessMessages;

во-вторых, чтобы не делать задержку на пять секунд, достаточно было повесить данный код просто на событие таймера (кстати, Application.ProcessMessages; всё равно нужно и в этом случае, чтобы форма "не зависала"!

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


p.s. извините, по ссылкам не ходил. Подозреваю, что там как раз то, о чём я и написал в своё сообщении

[makc9I]

Все получилось, спасибо Slym
Рабочий код такой:

//Обработчик клика на кнопку
procedure TForm1.sendFilesClick(Sender: TObject);
begin
  label_bis_send.Caption := 'Обработка...';
  timer1.Enabled := true;
end;

//обработчик таймера
procedure TForm1.Timer1Timer(Sender: TObject);
var
  sr : tSearchRec;
  i : integer;
begin
    Application.ProcessMessages;
    if FindFirst(BIS_IN_PATH + '*.txt', faAnyFile - faDirectory - faVolumeID, sr) = 0 then
    begin
      i := 0;
      repeat
        i := i + 1;
      until FindNext(sr) <> 0;
      FindClose(sr);
      label_bis_send.Caption := 'Осталось обработать: ' + inttostr(i);
      //Form1.Refresh;
      end
    else begin
      Timer1.Enabled:=False;
      label_bis_send.Caption := 'Все файлы выгружены';
    end;


end;

[makc9I]

Serge_Bliznykov, я догадываюсь, что задачу можно решить гораздо изящней и красивей, написал первое, что пришло в голову. Мой опыт разработки на делфи сводится к написанию пятерки программ, обрабатывающих всякие данные из DBF и прочего и формирующие ответы. А мои знания в этой среде сводятся к компьютерной школе, законченной 8 лет назад, школьным знаниям, базированным на Паскале, ну и с десяток программ, написанных в универе.
Я программист по образованию, но не по профессии, т.е. опыта у меня около нуля. Именно поэтому мой код, вероятнее всего, отдает душком, и действительно его можно назвать индусским.

[Slym]

Application.ProcessMessages; в таймере не нужен

[Serge_Bliznykov]

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

Application.ProcessMessages; в таймере не нужен

Вы не правы!


если на таймере будет висеть код типа:

    if FindFirst(BIS_IN_PATH + '*.txt', faAnyFile - faDirectory - faVolumeID, sr) = 0 then
    begin
      i := 0;
      repeat
        i := i + 1;
      until FindNext(sr) <> 0;
      FindClose(sr);

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

Таймер позволит избавиться от цикла со Sleep, тут, безусловно - ГУД!
Но между repeat .. until тоже ProcessMessages будет полезен!