Dokladny sleep (timer)

Temat stary jak swiat ale na swoje pytanie nie znalazlem odpowiedzi...
generalnie chodzi o to aby zmierzyc (odczekac) krotki okres czasu (tzn mniejszy niz 10ms).

Po niekrotkich poszukiwaniach doszedlem do napisania funkcji:

 procedure CzekajXms(x: integer);
 var start,cur,delay,freq: int64;
 begin
   QueryPerformanceCounter(start);
   QueryPerformanceFrequency(freq); //ile razy na sekunde
   delay := round(x/1000*freq);
   cur := start;
   while cur-start < delay do
     QueryPerformanceCounter(cur);
 end;

No i pieknie dziala, zmieniajac przelicznik moznaby odmierzac tez duzo mniejsze okresy...

Ale problem sie pojawil nastepny...
w moim programie bardzo czesto musze odczekac te 5ms... mniej wiecej raz na 10-20ms...
a to prowadzi do tego ze przez prawie caly czas wykonuje sie petla while, co skutkuje niepotrzebnym obciazeniem procesora...

czy ktos ma jakis pomysl jak odczekac 5ms bez obciazania procesora? (i bez blokowania okienka programu - zatem usleep odpada)

A nie możesz tego kodu podpiąć pod osobny wątek?

Nie wiem czy to pomoze ale kiedys na stronie Borlanda znalazlem takie cos

procedure WaitMS(Milisec:Integer);
var
 iwaits : Integer;
begin
 iwaits:=GetTickCount;
 while GetTickCount<iwaits+Milisec do
 Application.ProcessMessages;
end;

@a_s_f
Twoje rozwiazanie niestety nie jest dobre bo

• getTickCount pozwala uzyskac najmniejszy kwawlek czasu ok 10ms...
• jest to taka sama procedura jak moja (tez ma petle ktora bedzie blokowac procesor)
  tylko zrobiona na innych funkcjach...

sprobuje z drugim watkiem,
ale procesor nadal bedzie zajety....
(chyba ze ustawienie priorytetu na nizszy troche by go odciazylo....)

Użyj waitable timer'a: http://msdn.microsoft.com/en-us/library/ms687012.aspx
Z tym, że musisz zaimplementować własną pętlę komunikatów z wykorzystaniem funkcji MsgWaitForMultipleObjects. Takie coś powinno zadziałać:

hTimer := CreateWaitableTimer(...);
SetWaitableTimer(hTimer, ...);

while(warunek) do
  case MsgWaitForMultipleObjects(1, @hTimer, True, INFINITE, QS_ALLEVENTS) of
    WAIT_OBJECT_0: /* akcja */;
    WAIT_OBJECT_0 + 1: Application.ProcessMessages;
  end;

Waitable Timer opieraja sie na WinAPI i jest zalezna m. in. od obciazenia systemu wiec ich dokladnosc jest dosc mala i dosc losowa! Musisz postarac sie aby system nie zajmowal sie innymi watkami gdy Twoj bedzie czekal na timer, a wiec musisz obciazyc procesor. Rozwiazanie z QueryPerformance... jest najdokladniejsze (zwlaszcza jesli zrobisz cos w tym stylu: http://www.codeguru.com/cpp/w-p/system/timers/article.php/c5759/).

Jeśli nie chcesz blokować procka, to musisz skorzystać z pomocy systemu operacyjnego.

Bzdura, nie ma gwarancji, że Twoja pętla nie zostanie przerwana przełączaniem zadań, będzie równie niedokładna. Johny_Morfina, co Ty takiego tworzysz, że tak dokładne opóźnienia potrzebujesz?

komunikacja po RS485, sterowanie przeplywem,
problem polega na tym ze uzywam jakiegos prostego konwertera 232 na 485 i
nie mam mozliwosci sprzetowej obslugi tego sterowania.
(gdy uzywam wbudowanego portu rs485 nie mam tych problemow)

urzadzenie odpowiada chwile (<10ms) po tym jak skonczy odbierac dane,
no i musze wylaczyc nadajnik zanim urzadzenie zacznie odpowiadac.
a jak go wylaczam zaraz po wyslaniu danych to albo jest to juz za pozno
(trafia w nastepne 10ms, a uzadzenie zaczelo odpowiadac juz w tym czasie)
albo wylacza sie jeszcze przed wyslaniem danych i nic sie nie dzieje
(dane nie sa wysylane - nie ma odpowiedzi...)

Problem wynika z rozwiazan zastosowanych przez ludzi od sprzetu,
no i na mnie spadlo jego rozwiazanie... bo przeciez na PC mozna zrobic wszystko! :-[

Czy musisz tak synchronizować? przecież RS ma bufor danych - wystarczy że dla odbioru odczytasz go co jakiś czas (w osobnym watku), a podczas wysyłania użyj funkcji systemowych. Sporo pisałem na RS-ach i nigdy ne ibawiłem się w tak małe interwały.

Witam,
Mam podobny problem jak Johny_Morfina.
Czyli "głupi" konwerter rs232 na rs485 w którym sam muszę sterować nadajnikiem.
Nadajnikiem sreruje poprzez linie RTS. Problem polega na tym że nie wiem jak stwierdzić że musze już go wyłączyć. Bo znając predkość wysyłania i ilość bajtów moge policzyć ile czasu ma być włączony. Ake gdy uzyje TTimer to wtedy mam rozdzielczość 10ms.. I jak transmisja trwa 3ms to ja wyłączam nadajnik po 10ms co powoduje że urządzenie z którym sie komunikuje zdąrzy nadać odpowiedź zanim ja wyłącze nadajnik.
Natomiast gdy używam QueryPerformanceTimer to musze go odczytywać w petli w innym wątku. Co daje dobre efekty ale strasznie obciaza procesor. a na takie obciazenie nie moge sobie pozwolic bo procesor ma ciekawsze rzeczy do robienia niż czekanie.

Wieć potrzebowałbym czegoś jak TTimer które by się odswierzało co jedna ms. Gdyby ktoś miał jakiś pomysł jak cos takiego zrealizować to byłbym wdzięczny

Pozdrawiam