Hallo,

ich versuche über einen Multimedia Timer einen Zeittakt von 1 ms zu erzeugen.
Das funktioniert auch aber nach ca. 1 min stüzt das Programm mit einen Stack overflow ab.

Aufruf :

TimeSetEvent(1, 0, @TimeCallBack, 0, TIME_PERIODIC); und die Callback Procedure:

markieren

Delphi-Quellcode:

procedure TimeCallBack;
begin
  if run <> nil then
    run.Takt1ms;
end;

bzw.

procedure TimeCallBack; stdcall;

Der Fehler tritt auch auf, wenn die Procedure TimeCallBack keine Funktion hat.

markieren

Delphi-Quellcode:

procedure TimeCallBack;
begin
  exit;
end;

TimeSetEvent wird im Create eines threads aufgerufen.

Mein Fehler oder Delphifehler ?
Hat wer eine Idee.


Gruß Peter

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ß

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;

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:

zusammenfalten · markieren

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

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.

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