Я вообще не понимаю принципа построения планировщика! есть форма, в которой условия планировщика. Всё работает по таймеру. От потока отказался, т.к. надоели ошибки разные и непонятные, которых нет в таймере.

Непонятно, как мне сделать расписание, тоесть по расписанию запускать мою процедуру:
1. ежедневно - DateTimePicker1
2. раз в неделю в определённый день и время - DateTimePicker2
3. раз в месяц в определенный день и время - DateTimePicker3

При запуске проги запускается таймер и он должен проверять время и при достижении нужного запустить мою процедуру. Я НЕ ПОНИМАЮ как сделать условия!!!
Процедура таймера

Код

procedure TSettingsMenu.Timer1Timer(Sender: TObject); const edtinterval= 24*60*60; var NowDate, NowTime,ArcDate, ArcTime:TDateTime; begin     NowTime:=Now;     EDayArc:=Now;     if ((NowTime >= DateTimePicker1.Time)    and         (LastArcTime < DateTimePicker1.Time)) and         then        begin          LastArcTime := Now;   //глобальная переменная TDateTime          ProcArchive;  //запуск моей процедуры          sleep(edtinterval*1000); //ждать 24 часа        end;

но это неправильно т.к sleep(edtinterval*1000); не должно быть! Нужно проверять условия так
если щас время = времени указанном в планировщике и сегодня ещё процедура не зарускалась, то запустить мою процедуру, потом подождать до завтра 24 часа и опять запустить процедуру мою и так всё время.
А вот как такое реализовать я не понимаю.

ЭТО только 1 пример! а мне надо 3 условия реализовать:
1. ежедневно - DateTimePicker1
2. раз в неделю в определённый день и время - DateTimePicker2
3. раз в месяц в определенный день и время - DateTimePicker3

Помогите!!!
З.Ы.

А зачем вообще sleep(edtinterval*1000) ?
Можн так Timer1.Interval := (edtinterval*1000);
Можно проверять каждый тик таймера не насталоли время равное указанному в DateTimePicker1..2..3 etc. И если настало, то взводим программу и переставляем дату в пикерах на следующую.
Да вообще полно всего можно придумать.

Неплохо бы вести лог событий которые были уже запущены.

ну я и говорю, сколько не пробовал, не получается!

люди!!!

Вопрос состоит в том как реализовать

Цитата

если щас время = времени указанном в планировщике и сегодня ещё процедура не зарускалась, то запустить мою процедуру, потом подождать до завтра 24 часа и опять запустить процедуру мою и так всё время. А вот как такое реализовать я не понимаю.

Код

procedure TForm1.Timer1Timer(Sender: TObject); var   N: TDateTime; begin   n := Now;   if n >= DateTimePicker1.DateTime then begin     ShowMessage('Пора выполняться');     DateTimePicker1.Date := Now + 1; //Плюс один день   end; end;

Ой, забыл таймер тикает раз в секунду.

Это сообщение отредактировал(а) ~FoX~ - 22.11.2005, 11:43

Цитата(h2o @ 22.11.2005, 10:45)

1. ежедневно - DateTimePicker1 2. раз в неделю в определённый день и время - DateTimePicker2 3. раз в месяц в определенный день и время - DateTimePicker3

А зачем изобретать велосипед?
CreateWaitableTimer
Устанавливаешь ему любой DateTime и говоришь "Повторять каждые N времени".

Snowy
А вроде один фиг они оба WM_TIMER ловят?
Хотя я согласен это проще....

Это сообщение отредактировал(а) ~FoX~ - 22.11.2005, 11:54

1. нужно иметь файл, где хранить данные о задании
Например в формате: ( время выполнения, тип выполнения(каждый день, еженедельно...), что делать)
2. желательно создать свою структуру данных, в которую передавать задания ожидающие выполнения
к примеру:

Код

type TListRun = record      lrRecBD : word;       // ссылка на задание      lrTimeS : TDateTime;  // время старта      end;  TListRunEx = array of TListRun;

далее необходимо при загрузке создавать список (перебираешь все записи и смотришь время старта, если установленное время больше текущего, то добавляешь в список, а так же проверяешь остальные условия выполнялось не выполнялось, если раз в недёлю, то надо ли добавлять и т.д.)

Код

SetLength(ListRun,Length(ListRun)+1); ListRun[Length(ListRun)].lrRecBD:=RecNo;    // ссылка на задание ListRun[Length(ListRun)].lrTimeS:=stdS;      // где stdS время старта

желательно сделать отдельной функцией, т.к. при переходе на новые сутки, нужно будет перезаписывать этот список.
допустим будешь проверять задания каждую секунду, то надо запоминать предыдущую дату, и ставить условие : если предыдущая дата отличается от текущей, то перезаписать список. При проверке времени:

Код

if ListRun[Length(ListRun)].lrTimeS=time then ..

такой вариант не прокатит,т.к. допустим у тебя установлено время 12.12.00 ( не буду считать, но для примера это допустим будет равно 0.51222222000000), а компьютер вернёт более точное время, допустим 0.551222222222222211 и вероятность что время совпадёт очень мала, поэтому необходимо или синхронизировать часы программы и часы системы или сравнивать строки:

Код

if TimetoStr(ListN[Length(ListRun)].lrTimeS)=Timetostr(time) then

ещё хочу отметить, что DateTimePicker1.date вернёт значение вместе со временем, поэтому для перестраховки желательно использовать так:
Trunc(DateTimePicker1.date)
то же и со временем:
frac(DateTimePicker1.Time)
Добавлено @ 12:12
да ещё, после выполнения необходима из списка удалять задание
приблизительно так:

Код

// функция удаления из массива данных procedure DelMasItem(var ListDel:TListRunEx;index:word); var ListD:TListRunEx;     i,n:integer;     by:word; begin i:=Length(ListDel); if i>0 then    begin    ListDel[index].lrRecBD:=ListDel[i-1].lrRecBD;    ListDel[index].lrTimeS:=ListDel[i-1].lrTimeS;    SetLength(ListDel,i-1);    end; end;

ЗЫ: если есть ошибки или недочёты, прошу меня простить... когда писал очень спешил

Это сообщение отредактировал(а) Albinos_x - 22.11.2005, 12:14

Цитата

А вроде один фиг они оба WM_TIMER ловят?

Нет, это не юзер-таймер, а таймер объект ядра.
У Рихтера подробно описана работа с ним.
На нем построен стандартный планировщик WinXP.
Кроме того, он может выводить комп из спящего режима.

Цитата(Snowy @ 22.11.2005, 11:45)

CreateWaitableTimer

Впервые слышу. Буду пробовать!

Цитата

код Pascal/Delphi Код procedure TForm1.Timer1Timer(Sender: TObject); var   N: TDateTime; begin   n := Now;   if n >= DateTimePicker1.DateTime then begin     ShowMessage('Пора выполняться');     DateTimePicker1.Date := Now + 1; //Плюс один день   end; end; Ой, забыл таймер тикает раз в секунду.

DateTimePicker1.Date := Now + 1; //Плюс один день - а тут как надо? Что вместо +1?
Вот так:? DateTimePicker1.Date := Now + 24часа*60минут*60секунд?

Добавлено @ 13:04
Albinos_x принял к сведению! но у меня более тупо реализовано! хотя...

Snowy А где его создавать? Как с ним работать? когда включать/выключать? и т.д.?

Цитата(h2o @ 22.11.2005, 13:18)

Snowy А где его создавать? Как с ним работать? когда включать/выключать? и т.д.?

Я же сказал - у Рихтера все подробно расписано.
Найди в инете книгу:
"Джефри Рихрер - Создание эффективных WIN32-приложений" в chm формате.
Не раз еще пригодится. Это Библия WinAPI программиста.
Про таймеры читай в главе 9.

ещё SetTimer мона =)

Код

DateTimePicker1.Date:=date+1;

1 - одни сутки.

Цитата

Вот так:? DateTimePicker1.Date := Now + 24часа*60минут*60секунд

чтобы добавить время желательно использовать EncodeTime
пример:

Код

Label1.caption:=datetimetostr(date+EncodeTime(1,0,0,0)*5+EncodeTime(0,1,0,0)*30+EncodeTime(0,0,1,0)*20;

где 5 -часы - 30 - минуты - 20 - секунды