VPF::Pascal не Delphi - Форум программистов

PROme

Дата 6.9.2003, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 346
Регистрация: 23.7.2003
Где: Kiev

Репутация: нет
Всего: 1

Ну в старом - добром Делфи все понятно. А вот как в Паскале узнать частоту проца? Желательно самый простой способ, пусть и не самый оптимальный/точный.

--------------------

SEO-мастер

<Spawn>

Дата 6.9.2003, 20:27 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Не знаю можно ли в Паскале вызвать GetTickCount, но вот такой пример есть(значение возвращает в герцах):

Код

(** This function is not as accurate **)
function OldGetCpuSpeed: Comp;
(** Uses RDTSC Command to get the Processor Timer count **)
var
  t: DWORD;
  mhi, mlo, nhi, nlo: DWORD;
  t0, t1, chi, clo, shr32: Comp;
begin
Result:=0;
  shr32 := 65536;
  shr32 := shr32 * 65536;

  (** Get a start time **)
  t := GetTickCount;
  while t = GetTickCount do begin end;
  asm
    DB 0FH
    DB 031H  	(** RDTSC Opcode retrieves 64-bit tick count since boot **)
    mov mhi,edx (** 32-bit Ticks Hi **)
    mov mlo,eax (** 32-bit Ticks Lo **)
  end;

 (** Look 1 second later **)
  while GetTickCount < (t + 1000) do begin end;
  asm
    DB 0FH
    DB 031H  (** RDTSC **)
    mov nhi,edx
    mov nlo,eax
  end;

  (** See how many Processor Timer Ticks have elapsed **)
  chi := mhi; if mhi < 0 then chi := chi + shr32;
  clo := mlo; if mlo < 0 then clo := clo + shr32;

  t0 := chi * shr32 + clo;

  chi := nhi; if nhi < 0 then chi := chi + shr32;
  clo := nlo; if nlo < 0 then clo := clo + shr32;

  t1 := chi * shr32 + clo;

  Result := Round(t1 - t0);
end;

Это сообщение отредактировал(а) <Spawn> - 6.9.2003, 20:28

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

dm9

Дата 6.9.2003, 20:41 (ссылка)

(нет голосов)

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137

GetTickCount с успехом заменяется MemL[$0000:$046C].

P. S. Это ещё вопрос, кто тут старый и добрый

Это сообщение отредактировал(а) dm9 - 6.9.2003, 20:43

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »