VPF::Проблема с процедурой Delay - Форум программистов

ДЫМ

Дата 19.5.2005, 01:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

В RxLib была такая процедура задержки в модуле VCLUtils.pas

Код


procedure Delay(MSecs: Longint);
var
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
    Application.ProcessMessages;
    { allowing access to other controls, etc. }
    Now := GetTickCount;
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

я установил JVCL,(а он включает в себя RxLib),
там тоже есть одноименная процедура

Код


procedure Delay(MSecs: Int64);
var
  FirstTickCount, Now: Int64;
begin
  FirstTickCount := GetTickCount64;
  repeat
    Application.ProcessMessages;
//     allowing access to other controls, etc.
    Now := GetTickCount64;
  until (Now - FirstTickCount >= MSecs);
end;

function GetTickCount64: Int64;
var
  QFreq, QCount: Int64;
begin
   Result := GetTickCount;
   if QueryPerformanceFrequency(QFreq) then
   begin
     QueryPerformanceCounter(QCount);
     if QFreq <> 0 then
       Result := (QCount div QFreq) * 1000;
  end;
end;

Я в программе ставлю Delay(50), но задержка получается больше, чем была
с использованием RxLib, почему? Явно все дело в функции GetTickCount64.
Что такое QueryPerformanceFrequency и QueryPerformanceCounter?

Дата 19.5.2005, 03:14 (ссылка)

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

Загрузка ...

Брутальный буратина

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

Репутация: 14
Всего: 115

Функция QueryPerformanceFrequency возвращает частоту счётчика.
( < 1Мгц)
функция QueryPerformanceCounter считывает его значение.

ДЫМ

Дата 20.5.2005, 01:15 (ссылка)

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

Загрузка ...

Бывалый

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

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

Какого счетчика? И зачем это в Delay?

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