Контроль часов

[Antony41]

Хочу сделать защиту от перевода часов
План реализации следующий:
при запуске программы в отдельном потоке фиксируем дату открытия OpenDT
Затем через каждую секунду начинаем прибавлять к NowDTTick := OpenDT + 1 секунда

Для проверки часов от перевода проверяем NowDTTick и Now (текущее время которое сейчас на компе)
Например if NowDTTick < Now + (погрешность) значит часы перевели назад

Известно что для обеспечения возможности "многозадачности" система переключается между процессами через переодическое время, соответственно потоки впадают в suspended, приостановленное состояние, а значит работа потока будет притормаживать и через некоторое время начнет иметь существенное отличие от реального времени.

Вопрос: Возможно ли каким либо способом данный способ контроля времени потоком более точным?
ЗЫ Условие: без выхода в интернет.

Есть идея проверять например через 3-10 секунды проверку на отличие от локального времени, если отличие не более чем на две три секунды, то снова берем и отталкиваем OpenDT от времени компа.

Вобщем товарищи подскажите как бы правильнее сделать.

[Аватар]

GetTickCount и время при старте запомнить. При проверке сравнить разницу между текущим GetTickCount и начальным с разницей времен текущего и начального. GetTickCount по-моему dword и милисекунды, поэтому при переполнении в ноль сбрасывается. Через 49 суток непрерывной работы если не ошибся

[Antony41]

Ща попробую через GetTickCount збацать

[Antony41]

В общем получился примерно такой код

OpenDT := Now;
NowTickDT := OpenDT;
Tick := GetTickCount;
Tick2 := GetTickCount;
while not Terminated do
  begin
	if (GetTickCount - Tick2) > 1000 then
	  begin
		Tick2 := GetTickCount;
		NowTickDT := IncSecond(OpenDT, (GetTickCount - Tick) div 1000);
		ShowMyMessage(0, C_MSG_STATUS, 'NowTickDT: '+DateTimeToStr(NowTickDT));
	  end
	else sleep(10);
  end;

Щас проведу тест несколько часов посмотрю как расходится системное время с программным
но результат уже лучше пока отличий не видно

[Аватар]

А зачем так часто проверка? Раз в несколько минут по таймеру вполне достаточно без этих sleep

[Antony41]

не совсем понял как обойтись без sleep, ведь тогда будет грузить ЦП на 100% в цикле While, не лучший вариант решения конечно...

[Antony41]

Кстати тест с GetTickCount'ом за ~12 часов показал очень хорошие результаты, я не заметил разницы между программным временем и системным

[Serge_Bliznykov]

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

не совсем понял как обойтись без sleep, ведь тогда будет грузить ЦП на 100% в цикле While, не лучший вариант решения конечно...

И цикл выкинуть.
Вместо цикла повесить процедуру проверки на таймер.
Без всяких SLEEP!
Вот и всё!

[Antony41]

Я понял, но тут еще и другие задачи будут стоять, поэтому необходимо всё это сделать в потоке в зацикленном, кроме этого данный поток будет через некоторое время посылать другому потоку информацию о текущем времени, а второй поток будет принимать и сохранять данную дату как время последнего выхода из программы CloseDT, это нужно для возможности проверки не перевел ли пользователь часы назад в то время когда программа была выключена. И при запуске программа будет смотреть если CloseDT > Now, значит он перевел часы назад в то время когда прога не работала. Незнаю конечно правильно ли оно всё, но это алгоритм придуманный мной и теоретически должно всё работать.
Вобще будет 3 потока третий будет синхронизировать параметры с сервером лицензирования (при доступном инете)
Такая частая проверка была нужна только для теста