Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Проблема с планировщиком.

Автор: Stoun 31.8.2005, 12:53

Доброе время суток. Я почти дописал планировщик для своих нужд, но возникла проблема после прохождения таймера отведенного ему интервала времени мой проект грузит ЦПУ на 96-100%. Вот код события OnTimer:

Код


var NowDate,BDate: string;
begin


ClientDataSet1.First;
While not ClientDataSet1.Eof do
 begin
 NowDate:= DateTimeToStr(now);
 BDate:= DateTimeToStr(ClientDataSet1.FieldByName('DateTime').AsDateTime);
 Delete (NowDate,length(NowDate)-2,2);
 Delete (BDate,length(bdate)-2,2);
 IF NowDate=Bdate then
  begin
  //здесь будет код который выполняется при наступлении времени указанного в планировщике.
  
    ClientDataSet1.Delete;
   
  end;
 application.ProcessMessages;
 end;


end;

Как можно усыпить или приостановить таймер на некоторое кол-во секунд (только чтоб он останавливался и запускался автоматически)?

У меня данные хранятся в XML таблице. Я сначала думал сделать расписание на месяц, но потом передумал и думаю сделать, чтоб выполнялось ежедневно. И возникла проблема при переходе с месячного расписание на ежедневное:

Кнопка "Новая запись":
----------
ClientDataSet1.Insert;
----------

Кнопка "Зафиксировать":

Код


var full :  string;
begin
full:=maskedit1.Text;
ClientDataSet1.FieldByName('DateTime').AsDateTime:= StrToDateTime(full);
ClientDataSet1.Post;
ClientDataSet1.SaveToFile('events.xml');

Я заношу в таблицу данные только время, но при наступлении этого времени ни чего не происходит, где я ошибся?

Автор: _hunter 31.8.2005, 13:05

приостановить можно Sleep() или таймер на интервал назначить

почему ничего не происходит -- посмотри сам ( дебагер на что дан? )

Автор: Stoun 31.8.2005, 13:24

Вот в том-то и дело, что таймеру плевать на интервал, после того как таймер активируется и проходит заданный интервал, проект грузит CPU на 100% до наступления времени указанного в планировщике.

Автор: _hunter 31.8.2005, 13:46

само-собой грузит. где у тебя переход на следующую запись?

Автор: Snowy 31.8.2005, 13:52

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