Форум: "Система";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Вниз

О точных временных интервалах ...   Найти похожие ветки 

← →
BGA   (2002-01-25 12:38) [11]

В WinNT4.0 и выше реализованы объекты ядра - WaitableTimer, позволяют точно работать с временами от 19мсек. (время квантования потоков ядром ОС). Хорошо описаны у Рихтера.

Необходимо создать высокоприоритетный рабочий поток.
Рабочий код примерно такой:

procedure T????.Execute;
var
hTmr: THandle;
li: TLargeInteger;
lp: cardinal;
begin
hTmr := CreateWaitableTimer(NIL, False, NIL);
try
li := 0;
lp := INTERVALS_REQUEST[16];
if SetWaitableTimer(hTmr, li, lp, NIL, NIL, False)then //пусть тикает через 16 мсек
repeat
WaitForSingleObject(hTmr, INFINITE);
/***********************************************/
Рабочий код
/***********************************************/
until Stop???; // глобальная переменная для останова
finally
CloseHandle(hTmr);
CloseHandle(fhFile);
end;
end;


---

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

Форум: "Система";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c