Multimedia Timer

[hanspeter]

Ic hatte im Beispiel vergessen die Parameter (aus dem Interfaceteil anzugeben)
Hier der Nachtrag.

procedure TimeCallBack(TimerID, Msg: Uint; dwUser, dw1, dw2: DWORD);

Im Schweizer Forum ist ein Beispiel für den Multimedia Timer.
Dieses zeigt den gleichen Fehler. Nach etwa 6000 Zyklen kommt ein Stacküberlauf.
Ich gehe jetzt davon aus, dass das ein Delphi Fehler ist und der Timer unter XE2 nicht mehr funktioniert.

Gruß

[musicman56]

Hallo,

bei mir funzt der Timer unter XE2. Hast du schon mal im 2.Parameter (uResolution) eine 1 versucht? Müsste eigentlich ja ausreichen

EDIT: Hast du "Vcl.StdStyleActnCtrls" in die Uses-Liste aufgenommen?

Ausserdem: procedure TimerProc(uTimerID, uMessage, dwUser, dw1, dw2: DWORD); stdcall;

[hanspeter]

Interesant,
wenn ich den 2.Parameter(uResolution) auf 1 setze, dann läuft es doppelt so lange.
Parameter 0 Absturz nach ca. 1400 Zyklen , Parameter 1 cy. 2400 Zyklen dann Absturz.

Hier ist nochmal das ganze Programm:

Delphi-Quellcode:

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MMSystem;

type
  TForm5 = class(TForm)
    lbl1: TLabel;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

var
  mmResult: Integer;
  anz : integer;
procedure TimeCallBack(TimerID, Msg: Uint; dwUser, dw1, dw2: DWORD); pascal;
begin
  if Form5.lbl1.Caption = 'Tick' then  Form5.lbl1.Caption:= 'Tack'
  else
   Form5.lbl1.Caption := 'Tick';
  inc(anz);
  Form5.lbl2.Caption := inttostr(anz);
end;


procedure TForm5.btn1Click(Sender: TObject);
begin
  anz := 0;
  mmResult := TimeSetEvent(10, 1, @TimeCallBack, 0, TIME_PERIODIC);
end;

end.

Grüße

[Bummi]

Das TimerEvent kommt in einem eigene Thread daher und greift unsynchronisiert auf die VCL zu. Wenn Du die VCL-Zugriffe weglässt läuft es.

[hanspeter]

Zitat von Bummi:

Das TimerEvent kommt in einem eigene Thread daher und greift unsynchronisiert auf die VCL zu. Wenn Du die VCL-Zugriffe weglässt läuft es.

Daran liegt es auch nicht.
Sobald ich in der Callbackroutine etwas mache (z.B. nur ein globales Flag setzen) kommt der Fehler.
Ich habe jetzt mal aus zwei Opensource Projekten die auf dem gleichen Prinzip gelösten Highres Timer ausprobiert.
Hier kommt der gleiche Fehler.
(New Audio Components package und basdll)
Da die Routine unter Delphi 7/Win 7 schon mal funktionierte, liegt es an Windows 8 oder XE2.
(Ein Kollege hat ausprobiert unter C# funktioniert diese Routine.)
Da TimeSetEvent ohnehin obsolet ist, probiere ich jetzt mal die Alternative.

Gruß Peter

[musicman56]

[QUOTE=hanspeter;1200197]

Zitat von Bummi:

Da TimeSetEvent ohnehin obsolet ist, probiere ich jetzt mal die Alternative.

Wieso ist das obsolet? Habe nichts darüber gefunden.

Und nochmals: Unter XE2 funktioniert der Timer bei mit einwandfrei. Nimm die VCL-Komponente, füge manuell "Vcl.StdStyleActnCtrls" zur Uses-Liste, dann tut's

[DeddyH]

Zitat von musicman56:

Wieso ist das obsolet? Habe nichts darüber gefunden.

Wo hast Du denn geschaut? timeSetEvent:

Zitat:

Note This function is obsolete. New applications should use CreateTimerQueueTimer to create a timer-queue timer.