BitCell

by **DarkByte** » 06 Jan 2010, 19:59

Un waitable timer blocheaza executia thread-ului in care e folosit pentru o durata specificata de timp.

Pentru a-l folosi in Delphi, aveti mai jos un exemplu de cod:

Line number On/Off | Expand/Contract | Select all

procedure WaitableTimer;
const sec = 10000000;
var wTimer, lBusy : Longint;
    interval : LARGE_INTEGER;
begin
  wTimer := CreateWaitableTimer(nil, True, PANSIChar('myTimer' + IntToStr(GetTickCount)));
  {numele poate fi si gol (empty string}
 
  interval.QuadPart :=  - sec * 3; {numarul de secunde}
                                   {valoare negativa = valoare relativa}
                                   {valoare pozitiva = valoare absoluta}
 
  Repeat
    SetWaitableTimer(wTimer, TLargeInteger(interval), 0, nil, nil, false);
    lBusy := WaitForSingleObject(wTimer, INFINITE);
    If lBusy = WAIT_OBJECT_0 Then
      Begin
        Execute_Something; {aici se pune codul care se doreste executat la fiecare X secunde}
      End;
  Until some_condition;
 
  CancelWaitableTimer(wTimer);
 
  CloseHandle(wTimer);
end;

by **v0id** » 07 Jan 2010, 11:07

... si daca vreti sa scoateti sistemul din starea de Standby/Sleep/Hibernate la expirarea timer-ului, apelati functia SetWaitableTimer cu ultimul parametru True:

Line number On/Off | Expand/Contract | Select all

SetWaitableTimer(wTimer, TLargeInteger(interval), 0, nil, nil, true);

Pentru mai multe informatii: SetWaitableTimer on MSDN.

BitCell

Delphi - Waitable Timer

Delphi - Waitable Timer

Re: Waitable Timer in Delphi

Who is online