Скачать: CL | DM;

Таймер реального режима и подсчет времени   Найти похожие ветки 

← →
Интересующийся   (2003-07-27 04:28) [0]

Добрый день!
Может кто подскажет, как в Delphi узнать время с точностью до милесекунд в реальном режиме.

Нужно подсчитать время выполнения процедур и функций проги.

---

← →
IntLex   (2003-07-27 10:14) [1]

Просто получить значение функции Time()

---

← →
Fenik ©   (2003-07-27 13:08) [2]

x := GetTickCount; {перед началом процесса}
...
x := GetTickCount - x; {после завершения процесса}

В "х" будет то, что тебе нужно в милесекундах.

---

← →
AlexRush ©   (2003-07-28 11:09) [3]

2Fenik © (27.07.03 13:08) - в этом случае не учитывается тот момент, что во время "замера" (между x := GetTickCount; {перед началом процесса} и x := GetTickCount - x; {после завершения процесса}) может осуществиться переключение на другой поток. Поэтому рекомендую перед замером брать высший приоритет для процеса и потока ( SetThreadPriority и SetPriorityClass).

Если же размер замеряемого на скорость выполнения кода невелик, то таким способом поемерять реальную скорость вообще нельзя.
Если есть возможность исполнить проверяемый код в нулевом кольце защиты (драйвер), то можно воспользоваться расширением Pentium"ов для замерки скорости.

---

← →
Игорь Шевченко ©   (2003-07-28 11:18) [4]

Командой процессора rdtsc.
Например http://www.midnightbeach.com/jon/pubs/rdtsc.htm

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c