Многозадачный режим работы приложения?

[S_Yevgeniy]

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

Заранее спасибо, как и за совет, так и за код программы.

[Пепел Феникса]

многозадачный=многопоточный

дельфийская реализация это класс TThread(New...=>New Thread Object(или class))

[Serge_Bliznykov]

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

1) в данном случае АБСОЛЮТНО нет строгой необходимости обращаться к потокам. Достаточно кинуть таймер, выставить нужный интервал проверки (желательно не очень маленький, чтобы не грузить систему понапрасну - ну, например, раз в три/пять минут) и — вперёд...

2) для проверки появления файла в определённой папке лучше воспользоваться возможностью операционной системы оповещать программу об изменениях в файловой системе - результат поиска на Гугле

[Altera]

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

1) в данном случае АБСОЛЮТНО нет строгой необходимости обращаться к потокам. Достаточно кинуть таймер, выставить нужный интервал проверки (желательно не очень маленький, чтобы не грузить систему понапрасну - ну, например, раз в три/пять минут) и — вперёд...

2) для проверки появления файла в определённой папке лучше воспользоваться возможностью операционной системы оповещать программу об изменениях в файловой системе - результат поиска на Гугле

Ну, в данном случае человеку и таймер подойдёт. Я бы вообще на 2000 или даже 1000 мили секунд выставил-бы, т.к. fileExists не много ресурсов жрёт.

[Stilet]

пришел файл (появился в определенной папки) или нет

Функции:
FindFirstChangeNotification
или
ReadDirectoryChangesW [New - Windows NT]

[S_Yevgeniy]

Не понятно, почему вы все не рекомендуете пользоваться многозадачностью?
Или можно объяснить идею ваших предложений?

[Serge_Bliznykov]

S_Yevgeniy, если Вы в магазин собираетесь, чтобы купить пакет молока, заказываете грузчика и грузовую газель с водителем?..
можете сделать с многопоточностью.
но, по сравнению с вариантом с таймером напишете раз в десять больше кода, обеспечите синхронизацию основной программы и потока, защитите VCL компоненты от проблем одновременного доступа, разработаете механизм запуска (и, возможно, остановки потока) и т.д. и всё равно, если Вы в потоке будете в цикле НЕПРЕРЫВНО проверять наличие файла - Ваша основная программа (как впрочем и весь компьютер) встанут колом! Значит либо в цикле делать паузы, либо пользоваться таймером в отдельном потоке.

Да и вообще, в данном случае использование многопоточности принесёт Вам только вред.
Вам надо:
Или, по простому, просто использовать таймер (вешаете на него процедуру и всё. Она выполняется независимо от работы основного приложения!)
либо (я бы рекомендовал!) использовать WinAPI (функции ReadDirectoryChangesW или FindFirstChangeNotification).
точка.

[Stilet]

Не понятно, почему вы все не рекомендуете пользоваться многозадачностью?

что значит все?? я тее такого не говорил. создай поток, и в нем мониторь изменения в папке при помощи мною указанных функцый.

Да и вообще, в данном случае использование многопоточности принесёт Вам только вред.

Не согласен. В таймере все повиснет.
Я уже с таким столкнулся когда писал монитор изменения файлов в сети.

[S_Yevgeniy]

Здравствуйте!!!
Здесь вы пишете что можно воспользоваться таймером а можно подробнее.
Вот например нужно проверять появился ли файл через каждые 5 секунд как это осуществить. Причем начинать проверку после 5 секунд от запроса.
И что будет с программой пока таймер считает она будет ждать ответа или как?
Спасибо!!!

[Stilet]

Вот пример с таймером:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
 var ec: Cardinal;  ob:_OFSTRUCT;
  const a:array[1..2] of string=('File1.txt','File2.txt');
  var i:integer;
  begin
    for i:=1 to 2 do begin
     if OpenFile(pchar(ExtractFilePath(paramstr(0))+a[i]),ob,OF_SHARE_EXCLUSIVE)<>HFILE_ERROR then
         begin
           form1.ListBox1.Items.Add('Файл '+a[i]+' появился в '+TimeToStr(now));
         end;
    end;
  end;

end.

Для этого таймер нужно кинуть на форму и задать 5000 (5 сек) в свойство Interval.

Будет практически тоже самое.