Время работы программы

[Vadim]

Посоветуйте кроссплатформенное средство для подсчёта времени работы программы, не привязанное к функциям даты. Считать нужно в секундах, а не в тиках процессора (про RTDSC я знаю... ). Windows, Linux.

[Лекс Айрин]

Прямой доступ к контролеру тактового генератора. Естественно, на ассемблере.

[zub]

Вы тут с ассемблером с дуба рюхнулись. Забыть про него давно надо. Тем более кроссплатформенный.

Любой таймер тикающий каждую единицу времени (секунду) в обработчике простой инкремент переменной, хранящей время работы в этих еденицах

[Vadim]

рямой доступ к контролеру тактового генератора. Естественно, на ассемблере.

Ужас какой... Пошёл за валерьянкой и валидолом...
А есть что-нибудь относительно высокоуровневое?
В принципе можно условную компиляцию сделать:

Код: Выделить всё

function GetSeconds(): longint;
begin
{$IFDEF WINDOWS}
  result:=GetTickCount div 1000;
{$ELSE}
  result:= ???????
{$ENDIF}
end;

Добавлено спустя 1 минуту 21 секунду:

Любой таймер тикающий каждую единицу времени (секунду) в обработчике простой инкремент переменной, хранящей время работы в этих еденицах

Окошек нет - чистая консоль...

[zub]

EpicTimer?

[MysticCoder]

В принципе можно условную компиляцию сделать:

GetTickCount зависит от частоты проца и может ускоряться\замедляться. Построенная на нем игруха на другом компе у меня шла в 5 раз быстрее +32хбитность через несколько дней даст переполнение. Лучше замени на связку NTQueryPerfomanceCounter и NTQueryPerfomanceFrequency или что то типа того.

под линух:

Код: Выделить всё

{$IFDEF LINUX}
function GetTickCount: Cardinal;
var
  tv: timeval;
begin
  gettimeofday(tv, nil);
  Result := int64(tv.tv_sec) * 1000 + tv.tv_usec div 1000;
end;
{$ENDIF}


[Дож]

Плюсую за EpicTimer

[Лекс Айрин]

Вы тут с ассемблером с дуба рюхнулись. Забыть про него давно надо.

Увы... для некоторых штучек типа сверхточных таймеров он идеален. Что-то более высокоуровневое в данном случае менее надежно. Единственное... даст ли система подцепиться к обработчику.

[zub]

>>Прямой доступ к контролеру тактового генератора. Естественно, на ассемблере.
ну давайц, получи доступ хоть к чемунить железному в современной оси.

>>Увы... для некоторых штучек типа сверхточных таймеров он идеален
сим извещаю - MSDOS умер.

[Vadim]

...+32хбитность через несколько дней даст переполнение.

Нынешний компилятор напоминает, что нынче надо использовать GetTickCount64()... Но вряд ли это придаст стабильности, т.к. всего лишь увеличивает объём хранилища под 64-битные системы.

Добавлено спустя 1 минуту 6 секунд:

EpicTimer?

Ок. Посмотрю, что там внутри...

[Лекс Айрин]

сим извещаю - MSDOS умер.

Я не знаю как в десятке, но в ХР он живее всех живых... Пошукал... и в десятке от этого недостатка не избавились совсем. Просто засунули в глубь системы и заперли на пару замков. В никсах с этим вроде как посложнее.

ну давайц, получи доступ хоть к чемунить железному в современной оси.

Может и стоит попробовать. Найду только справочник по прерываниям биоса. Впрочем, даже если не получится, то это ровным счетом ничего не значит -- в ассемблере я так до конца и не разобрался. Да и нужно это преимущественно при написании драйверов.

[Vadim]

Может и стоит попробовать. Найду только справочник по прерываниям биоса. Впрочем, даже если не получится, то это ровным счетом ничего не значит...

На самом деле многие прерывания будут нормально работать. Вот только в отличие от чистого MSDOS, это будет эмуляция на основе WinAPI. Заранее предупреждаю - лезть с прерываниями для видеокарт типа CGA или EGA не стоит, операционка будет изрядно удивлена...

[Лекс Айрин]

Vadim, да в курсе я. И даже не совсем эмуляция. Фактически, обработчики прерываний просто заменены Если честно, я не ожидал, что кто-то серьезно воспримет мои слова Просто показал. что это желание немного странноватое. Чем более высокоуровневые функции, тем меньше точность таймера.

Заранее предупреждаю - лезть с прерываниями для видеокарт типа CGA или EGA не стоит, операционка будет изрядно удивлена...

Логично. Уж эти точно переписаны.

[Vadim]

Чем более высокоуровневые функции, тем меньше точность таймера.

Ну, милисекунды мне и не нужны. Функции тяжёлые и многоповторяющиеся, так что речь идёт о десятках и сотнях секунд...

[zub]

Вы про какие прерывания? INT xxH чтоли? это никакой не прямой доступ, это просто способ вызвать соответствующую процедуру
Прямой доступ он через порты, и любая нормальная операционка сразу грохнет пользовательскую программу при таких попытках