Thread GENAU alle 10ms ausführen

**mm1256**

Was hast Du den während der Messung gemacht? Nix? Oder mal Datei oder Screen I/O?
Oder mal ne For-Schleife die 1 Minute läuft? Hast Du mal ein anderes Programm gestartet (Word Delphi oder so...)

Der Windows-Media-Timer wird in dieser Form vielen Multimedia-Anwendungen verwendet, z.B. beim Abspielen von Midifiles. Das sind sehr zeitkritische Anforderungen (ein Midifile darf ja nicht "leiern", Aussetzer haben oder dergleichen) wo parallel dazu noch andere Aufgaben (auch VCL) erledigt werden müssen. Mein Testprogramm war ganz einfach als VCL-Anwendung gestrickt. In der Praxis (und auch so wie vom TE gewünscht) lauft der Timer in einem eigenen Thread mit erhöhter Priorität. Ich hab mir die Arbeit für ein diesbezügliches Testprogramm jetzt nicht gemacht, aber die Abweichung liegt mit Sicherheit noch darunter, auch wenn parallel dazu andere Arbeiten erledigt werden.

Auszug, ohne Anspruch auf Vollständigkeit, eben nur mal schnell zum Testen:

zusammenfalten · markieren

Delphi-Quellcode:

			
implementation

uses MMSystem;

const

  MW_TIMER_TEST = WM_USER + 100;

procedure TimerCallBackProc(uTimerID, uMsg: Integer; dwUser, dwParam1, dwParam2: LongWord); stdcall;

begin

  PostThreadMessage(HWND(dwUser), MW_TIMER_TEST, 0, 0);

end;

procedure TFrmTimerTest.Start;

const

  MaxCount = 10000;

var

  TimerMsg: TMsg;

  TimerProc: TTimerProc;

  TimerInterval, TimerID, TimerCount, Counter: Integer;

  CloseRequested: boolean;

  TimerReturnMsg: Longbool;

begin

  Counter := 0;

  TimerInterval := 10;

  TimerCount := 0;

  TimerProc := TimerCallBackProc;

  TimerID := timeSetEvent(TimerInterval, TimerInterval, @TimerProc,

                          GetCurrentThreadId, TIME_PERIODIC);

  if TimerID = 0 then begin

    timeEndPeriod(TimerInterval);

    Exit;

  end;

  Memo.Lines.Clear;

  edStartTickCount.Tag := GetTickCount;

  edStartTickCount.Text := IntToStr(edStartTickCount.Tag);

  repeat

    TimerReturnMsg := GetMessage(TimerMsg, 0, 0, 0);

    Inc(Counter);

    if Counter > MaxCount then break;

    if TimerMsg.Message = MW_TIMER_TEST then

    begin

      Inc(TimerCount);

      // Anzeige, damit der VCL-Thread auch ein bisserl was zu tun hat

      Memo.Lines.Add('Count:'+IntToSTr(TimerCount));

    end;

    TranslateMessage(TimerMsg);

    DispatchMessage(TimerMsg);

  until (integer(TimerReturnMsg) <= 0);

  edStopTickCount.Tag := GetTickCount;

  edStopTickCount.Text := IntToStr(edStopTickCount.Tag);

  edDiffTickCount.Tag := edStopTickCount.Tag - edStartTickCount.Tag;

  edDiffTickCount.Text := IntToStr(edDiffTickCount.Tag);

  timeKillEvent(TimerID);

  timeEndPeriod(TimerInterval);

end;

Thread GENAU alle 10ms ausführen

AW: Thread GENAU alle 10ms ausführen

Forumregeln