Проблема с сис таймером

[Lauri]

Помогите найти ошибку.
Использую таймер в консоли

procedure StartTimer(interval:cardinal);
begin
TID := timeSetEvent(interval,0,@TimeCallBack,0,TIME_PERIODIC);
end;

procedure TimeCallback(TimerID,Msg : UINT; dwUser,dw1,dw2 : DWord); pascal;
begin
//выполняю действия
end;


starttimer(600000);//запускаю таймер

Вот только таймер отказывается работать более 3 с половиной минут И прикол в том, что раньше всё работало, и по ходу код не менял, а сейчас вот такая фигня

[Lauri]

Никто не поможет? Может есть альтернатива такому таймеру кроме копонента?

[Lem0nti]

Аналогичная проблема. Только у меня потолок - 1000000 миллисекунд (16 минут 40 секунд). В описании функции timeSetEvent написано, что задержка должна лежать в определённом диапазоне. Как узнать этот диапазон?

[raxp]

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

inc(p);

if p > задержка/tick then begin
p:= 0;
// выполняем чего надо
end;

ферштеен?

[Lem0nti]

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

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

inc(p);

if p > задержка/tick then begin
p:= 0;
// выполняем чего надо
end;

ферштеен?

Это уход от проблемы. С таким же успехом я могу ставить период не больше минуты или двух. Или вообще использовать WaitforSingleObject или что-то ещё. И так до бесконечности усложнять алгоритм пока не перестану понимать что там происходит. Есть инструмент, он работает, надо понять его тонкую настройку. В случае если это не удастся, я найду как испортить себе жизнь обходными методами.

Удалось выяснить, что необходимая информация может быть добыта при помощи структуры TIMECAPS. Если кто сталкивался, подскажите, пожалуйста что из неё можно вытащить? Каким образом? Как понимать данные?

[Stilet]

Может есть альтернатива такому таймеру кроме копонента?

Сопроцесс создать с Sleep-ом на нужную величину не желаешь?

[Lem0nti]

Судя по всему, надо дать некоторые дополнительные объяснения .
Нет, слипы не подходят. Это служба, куча параллельных потоков с самой разнообразной работой - чтение/запись в БД, чтение/запись на диск, работа с ком-портом, работа с сетью, напоминалки для подключённых клиентских приложений, ответы по http протоколу, запросы по нему же. Каждая отдельная задача реализована в отдельном плугине, которые подгружаюся при старте, подтягиваются настройки, выставляются режимы работы, затем создаются потоки, которые работают с этими плугинами, дёргая их полезную логику периодически или постоянно, или не дёргая. Во время программирования мне неизвестно достоверно сколько и какого рода, этих потоков будет. Среди прочего есть такие, которые должны отрабатывать по таймеру, время таймера от итерации к итерации может меняться. Обнаружилось, что при выставлении периода работы какой-либо задачи (плугина) больше чем на 16 минут 40 секунд, исполнние не идёт и ммРезулт равен 0. Текст ошибки взятый через SysErrorMessage не информативен. Если я буду использовать слипы, то буду испытывать проблемы при остановке и взаимодействии между потоками.

И самое главное - обходных методов придумать с десяток я в состоянии. Прошу помощи в отношении именно работы с мультимедиа таймерами. Это позволит обойтись минимумом переделок и не добавлять механизмы новыми логиками.

[raxp]

Это уход от проблемы.

вы не правы, это обход проблемы.

С таким же успехом я могу ставить период не больше минуты или двух.

бред. Переменная-счетчик никак не влияет на период таймера, период выполнения цикла кода - да.

И так до бесконечности усложнять алгоритм пока не перестану понимать что там происходит.

где же тут усложнение, у вас один таймер.

должны отрабатывать по таймеру, время таймера от итерации к итерации может меняться

это элементарно регулируется условием в коде выше.

Обнаружилось, что при выставлении периода работы какой-либо задачи (плугина) больше чем на 16 минут 40 секунд, исполнние не идёт и ммРезулт равен 0. Текст ошибки взятый через SysErrorMessage не информативен.

Win ОС - не среда реального времени, никто вам гарантировать ничего не обязан ...обратитесь к WinRT.