Как заменить sleep в потоке? чтобы получить задержку 5 мили

[krGorka]

Mожет несовсем в тему :есть функция мультимедийного таймера timeSetEvent, которая позволяет создать таймер с интервалом от 1 мс. Короткое описание с инета:
Сначала готовится процедура обратного вызова (call back) с таким заголовком:
procedure TimeProc(uID, uMsg: UINT; dwUser, dwi, dw2: DWORD);
stdcall;
Здесь uID - идентификатор события таймера (см. ниже); uMsg - не используется; dwuser - произвольное число, передаваемое процедуре в момент запуска таймера; dwi, dw2 - не используются.

Запуск таймера реализуется функцией
function timeSetEnet(uDelay, uResolution: UINT;
IpTimeProc:Pointer;
dwUser: DWORD;
fuEvent: UINT): UINT;
stdcall;
external 'winmm.dll';
Здесь uDelay - требуемый период срабатывания таймера (в мс);
uResolution - разрешение таймера; значение 0 означает, что события срабатывания таймера будут возникать с максимально возможной частотой; в целях снижения нагрузки на систему вы можете увеличить это значение; IpTimeProc - адрес процедуры обратного вызова; dwUser - произвольное число, которое передается процедуре обратного вызова и которым программист может распоряжаться по своему усмотрению; fuEvent - параметр, управляющий периодичностью возникновения события таймера: time_oneshot (0) - событие возникает только один раз через uDelay мс; time_periodic (1) - события возникают периодически каждые uDelay мс. При успешном обращении функция возвращает идентификатор события таймера или 0, если обращение было ошибочным.
Таймер останавливается, и связанные с ним системные ресурсы освобождаются функцией
function timeKillEvent(uID: UINT): UINT;
stdcall; external 'winmm.dll';
Здесь uID - идентификатор события таймера, полученный с помощью timeSetEvent.


В TimeProc можно было бы расчитывать твои Updatedann через 5 млс

[TwiX]

А почему бы не использовать WaitForSingleEvent?

[Dasverd2010]

Парни, sleep() производит задержку 5 милисекунд, и 1 милисекунду, вот только я, не правильно замерял.

В посте выше, я описал, как правильно замерять скорость выполнения функции.

TwiX, про WaitForSingleEvent не слышал, можете подробнее описать...

[TwiX]

Полезная штука для потоков. СОздаётся переменная типа TEvent(или что-то подобное). В конце синхронизации активируем этот ивент, вроде так: SetEvent. А Вашей функции заменяем слип на WaitForSingleEvent(MyEvent) - эта строка будет ждать включения MyEvent в синхронизированной процедуре.

Что бы узнать поподробней, то просто вбейте в справку WaitForSingleEvent, или в гугл