Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Системное время [D5, Win95/98]

Lamerr © (2003-03-19 15:08:00)
Доброе время суток!
Имеется следующая проблема.
Отдельным потоком, постоянно работающим, осуществляется чтение данных с АЦП с частотой 5 кГц.
Каждой порции данных соответствует время их получения, которое определяется процедурой Time.
Примерно так:
begin
while not Terminated do
begin
GetData{берем данные с карточки}
CurTime:=Time{собственно определяем время}
SaveData{сохраняем CurTime и данные с АЦП в файл}
end;
end;

После завершения работы проги выясняется, что значения CurTime изменяются раз в секунду!
То есть имеется куча данных (5000) с однм и тем же значением времени.
На сколько я знаю системное время должно обновляться через каждые 55 мсек, а никак не через секунду.
Как можно решить эту проблему?
Или подобная задержка обновления системного времени связана с тем, что чтение данных осуществляется из потока?
Быть может существует иной, более надежные способ получения времени, нежели Time?
Буду очень вам благодарен, если подкините ссылки на доки по устройству системного таймера и работе с ним.
Заранее спасибо.

Lamerr (2003-04-15 09:50:00) [1]
Извените за долгое отсутствие. Рубанули сеть.
Так вот все оказалось проще. Время в формате TTime оказалось нормальным!!! Проблема оказалась в LongTimeFormat.
Так что вопрос насчет обновления раз в секунду снимается.

Пробовал GetTickCount... Обновляется, по-моему, также раз в 55 мс.

To Anatoly Podgoretsky: Спасибо, вы оказались ближе всех. :о)

Anatoly Podgoretsky (2003-03-26 16:09:00) [2]
Ошибка в SaveData

Jel (2003-03-26 14:31:00) [3]
Значение типа tDateTime определяет время с точностью до _секунды_ а посему и обновляться будет раз в _секунду_. Все-таки GetTickCount.

Lamerr (2003-03-26 13:50:00) [4]
Про это я знал, но, быть может, есть способ поизящнее?

Mnch (2003-03-25 16:13:00) [5]
используй функцию gettickcount - она считает кол-во тиков, натикавших с момента включения машины

Наверх

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