VPF::Задержка в микросекундах - Форум программистов

DonPager

Дата 20.9.2003, 11:50 (ссылка)

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

Загрузка ...

Колдырь

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

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

Помогите организовать "универсальную" задержку в 5 микросекунд(!) на дельфи.
(под словом универсальная - я понимал независимость от тактовой частоты процессора)

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

кодер + лодырь = колдырь

p0s0l

Дата 20.9.2003, 12:47 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Где-то в разделе Си был недавно такой вопрос. Ответом было что-то вроде QueryPerfomanceCounter и QueryPerformanceFrequency - правда, ниразу ими не пользовался...

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

С уважением, г-н Посол.

Vit

Дата 20.9.2003, 13:10 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

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

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

Код

Windows is not a real time operating system so it is not really able to reliably achieve high accuracy timing without using a device driver. The best I have been able to get is a few nanoseconds using QueryPerformanceCounter. This is the procedure I use: 

var 
  WaitCal: Int64; 

procedure Wait(ns: Integer); 
var 
  Counter, Freq, WaitUntil: Int64; 
begin 
  if QueryPerformanceCounter(Counter) then 
  begin 
    QueryPerformanceFrequency(Freq); 
    WaitUntil := Counter + WaitCal + (ns * (Freq div 1000000)); 
    while Counter < WaitUntil do 
      QueryPerformanceCounter(Counter); 
  end 
  else 
    Sleep(ns div 1000); 
end; 


To get improved accuracy do this a little while before using Wait() 


var 
  Start, Finish: Int64; 

Application.ProcessMessages; 
Sleep(10); 
QueryPerformanceCounter(Start); 
Wait(0); 
QueryPerformanceCounter(Finish); 
WaitCal := Start - Finish; 


A trick I have found to increase the reliability of this on my computer is to call Wait like this: 

Application.ProcessMessages; 
Sleep(0); 
DoSomething; 
Wait(10); 
DoSomethingElse;

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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