powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Адекватный способ получить штамп времени
25 сообщений из 43, страница 1 из 2
Адекватный способ получить штамп времени
    #40013908
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть в моей библиотеке такая вещь как штамп времени
Долго я его выстрадывал. Там суть в том, чтобы в Int64 запихнуть высокоточный замер времени
И в POSIX это удаётся сделать просто, там есть функция clock_gettime, она достаточно быстрая и даёт точность до наносекунд

А в Windows появились сложности. Я вычитал, что GetSystemTimeAsFileTime работает очень быстро и имеет высокую точность (до 10й части микросекунды). Проблема началась тогда, когда я стал замерять дельту времени с помощью этого штампа. Оказалось, метод имеет такую же погрешность как и GetTickCount - в районе 15мс.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
program TimeStamp;

{$APPTYPE CONSOLE}

uses
  Winapi.Windows,
  System.Diagnostics,
  System.SysUtils;

procedure Delay(const AMilliseconds: Cardinal);
var
  LStopwatch: TStopwatch;
begin
  LStopwatch := TStopwatch.StartNew;
  repeat
    System.YieldProcessor;
  until (LStopwatch.ElapsedMilliseconds >= AMilliseconds);
end;

function GetTime: Cardinal;
{begin
  Result := GetTickCount;
end;}
var
  LFileTime: TFileTime;
begin
  GetSystemTimeAsFileTime(LFileTime);
  Result := Round(Int64(LFileTime) * (1 / 10000));
end;

var
  T: Cardinal;
  Next: Boolean;
  TimeDelta, i: Integer;

begin
  try
    TimeDelta := 0;

    repeat
      Inc(TimeDelta);

      Next := False;
      for i := 1 to 30 do
      begin
        T := GetTime;
        Delay(TimeDelta);
        T := GetTime - T;
        if (T = 0) then
        begin
          Next := True;
          Break;
        end;
      end;
    until (not Next);

    Dec(TimeDelta);
    Writeln('Time delta: ', TimeDelta, 'ms');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

  Write('Press Enter to quit');
  Readln;
end.



В итоге я не знаю, что делать под виндой. Было желание поиграться с QueryPerformanceCounter, но не совсем ясно, как его привязать к датам. Плюс лет 10 назад я сталкивался с проблемой, что в зависимости от ядра замер времени различался, получалось, что замер времени мог быть отрицательным.

Есть у кого-то опыт и мысли по решению задачи?
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013910
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
System.Diagnostics.TStopwatch.GetTimeStamp
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013912
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreat,

Так он и делает QueryPerformanceCounter
Только как ты этот штамп времени переведёшь в дату?
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013914
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Исходники посмотри.
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013917
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rgreat,

А ты сам то смотрел? )
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013929
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NtQuerySystemTime
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013933
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Kazantsev Alexey
NtQuerySystemTime

[NtQuerySystemTime may be altered or unavailable in future versions of Windows. Applications should use the GetSystemTimeAsFileTime function.]
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013934
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Kazantsev Alexey
NtQuerySystemTime

Хотя, нет. Не подойдёт.
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013935
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Kazantsev Alexey,

Слушай, спасибо
Похоже это то, что нужно
А что у неё с поддержкой? Я так понял с Windows 2000?
Есть какая-то информация по производительности?
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013937
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alekcvp,

maybe yes, maybe no, maybe rain, maybe snow...
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013940
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alekcvp
Kazantsev Alexey
NtQuerySystemTime

[NtQuerySystemTime may be altered or unavailable in future versions of Windows. Applications should use the GetSystemTimeAsFileTime function.]


Бл*
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013944
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Штамп времени - неадекватная мысль сама по себе, так что способ его получения уже безразличен.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013947
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
..
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013948
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dimitry Sibiryakov,

Если бы это высказал кто-то другой, я бы даже не переспрашивал
Но так как это говоришь ты, я всё-таки спрошу
С чего такие мысли? )
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013967
Cobalt747
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SOFT FOR YOU,

Точность до наносекунд на НЕ-рилтайм ОС - это желание странного.
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013973
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Cobalt747,

Ну мне до наносекунд и не нужна
Обычно нужна до миллисекунд. Но GetTickCount даёт большую погрешность
В целом вариант точности до микросекунд (1 / 1000000 секунды) с учётом UTC и возможностью перевести в локальное время - на мой взгляд весьма крутая штука. Практически это закрывает все задачи с таймингом. Будь то замер времени или логирование то же
Плюс это универсальный формат для разных ОС, можно передавать по сети

Кажется, я знаю как решить задачу для винды )
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013976
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SOFT FOR YOU
Есть у кого-то опыт и мысли по решению задачи?
Мысль простая - забить.
Такая точность только на DSP достижима, и то не на всех.
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013978
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Жесть, сколько тут людей, не верящих в собственные силы )
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013981
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SOFT FOR YOUОбычно нужна до миллисекунд.

И вот тут вплывает "проблема XYZ" и
встаёт вопрос "для чего она нужна".
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013982
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SOFT FOR YOU
Обычно нужна до миллисекунд. Но GetTickCount даёт большую погрешность

Разрешение у NtQuerySystemTime и GetSystemTimeAsFileTime плавающее. Его можно изменить вызовами NtSetTimerResolution (теоретически, можно получить субмиллисекундное разрешение) и вызовом timeBeginPeriod(1) (разрешение 1 миллисекунда).
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013984
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dimitry Sibiryakov,

Я новичок?
Ну ок :)

Краткий ответ - для всего, где нужен тайминг :)

У меня что-то типа компании, совсем начинающей, я специализируюсь на Delphi. Иногда приходят задачи по доработке легаси проектов. Соответственно и библиотеки я пытаюсь разрабатывать таким образом, чтобы Delphi, начиная с 7 версии, поддерживался. Так вот когда я лепил бенчмарки, оказалось, что мой штамп времени для замера времени не подходит, поскольку имеет высокую погрешность. Пришлось лепить поверх System.Diagnostics.TStopwatch. Мелочь конечно, но неприятно.

У меня есть синхронизирующие примитивы. Там можно выставить таймаут. И считается он поверх таймштампа. Соответственно сейчас погрешность составляет 15 миллисекунд.

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

Необходимость в UTC таймштампе с высокой точностью загрела давно. И под Posix этот вопрос решается на раз-два. Вопрос был в том, как добиться высокой точности и привязке к дате на винде. Если я похож на новичка, который не умеет задать вопрос, это конечно прикольно. Но ты то меня должен знать давно. Соответственно и ассоциаций таких быть не должно.
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013986
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Kazantsev Alexey,

Я решил делать QueryPerformanceCounter с UTC-инкрементом. Спасибо, что прояснил ситуацию
Это была очень полезная информация
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013994
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SOFT FOR YOU
Соответственно сейчас погрешность составляет 15 миллисекунд.
Т.е., грубо говоря, один квант процессорного времени, как и следовало предполагать.
Мне крайне любопытно, каким способом можно повысить точность если Винда решит, что в этот момент у нее есть более приоритетные задачи?
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013996
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SOFT FOR YOUНо ты то меня должен знать давно.

Именно это и заставило меня заподозрить, что ты маешься фигнёй. И ты это только что
подтвердил.

Бенчмарки приводятся к нужной точности удлинением мерной мили.

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

Логгеру вообще таймштампы нужны исключительно для косметики, а идентификация
последовательности событий решается сериализацией их записи.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Адекватный способ получить штамп времени
    #40013997
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Соколинский Борис,

Ты не понял
Операция может занимать 14 мс
Но такой замер времени покажет 0

Вообще 1мс - это огромный промежуток времени для процессора
Можно несколько миллионов операций за это время провести
...
Рейтинг: 0 / 0
25 сообщений из 43, страница 1 из 2
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Адекватный способ получить штамп времени
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]