| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отслеживание ситемного времени. [D7, XP]

Андрей (Начинающий) ©   (2008-12-11 15:33:00) 

Как в приложении организовать проверку наступления определенной даты/времени?
Количество контрольных точек заранее неизвестно.
Пример:
- сегодня мне захотелось, чтобы завтра в 15.00, 18.00 мое приложение в это время сделало ...
- через час к этому добавилась еще одна контрольная точка в 17.00
- на след. день нужно ...
- ...
Органайзер одним словом :)

---

Сергей М.   (2008-12-12 17:19:00) [1]

> Андрей (Начинающий)   (12.12.08 17:10) [5]


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

---

Андрей (Начинающий)   (2008-12-12 17:10:00) [2]

> И тогда таймер не будет тикать зря.

А чем плохо бесполезное тикание?

---

Юрий Зотов   (2008-12-12 15:43:00) [3]

1. Иметь ОТСОРТИРОВАННЫЙ по времени список пар "время - действие".

2. Иметь таймер вообще без всякого интервала

3. При старте программы таймеру устанавливается интервал, равный времени первого действия минус текущее время.

4. При выполнении каждого действия таймеру устанавливается интервал, равный времени следующего действия минус текущее время.

=====================

И тогда таймер не будет тикать зря.

---

Андрей (Начинающий)   (2008-12-11 15:59:00) [4]

> Ega23

спасибо

---

Ega23   (2008-12-11 15:46:00) [5]

1. Иметь список пар "время - действие".
2. Иметь таймер с интервалом (ну, например, секунда. Или 10 секунд.)

В обработчике таймера:
var
 i : Integer;
begin
 for i:= TaskList.Count-1 downto 0 do
 begin
   if TaskList[i].TaskDateTime<=Now then
   begin
     DoAction(TaskList[i].Action) ;
     TaskList.Delete(i);
   end;
 end;
end;


---

charoey_mag   (2008-12-11 15:38:00) [6]

TTimer?

---

Наверх