Timer in einer Unit

[Sir Rufo]

@Popov

Nein, so ist es nicht ganz:

• Übergibst du ein Fenster-Handle, dann bist du für die Vergabe/Verwaltung der TimerID zuständig.
• Übergibst du kein Fenster-Handle, dann bekommst du eine TimerID zugewiesen.

Also wir übergeben ein Handle und eine TimerID:

Delphi-Quellcode:

var
  LTimerID: UINT_PTR;
begin
  LTimerID := 1;
  LTimerID := SetTimer( AHandle, LTimerID, 1000, @TimerProc );
end;

Nach Aufruf von SetTimer ist LTimerID immer noch 1.

Jetzt ohne Handle:

Delphi-Quellcode:

var
  LTimerID: UINT_PTR;
begin
  LTimerID := 1;
  LTimerID := SetTimer( 0, LTimerID, 1000, @TimerProc );
end;

Nach dem Aufruf von SetTimer bekommen wir eine völlig andere TimerID zurück - es sei denn, es gibt schon einen Timer mit der TimerID 1, dann wird dieser auf das neue Intervall gesetzt. Wenn wir Pech haben funken wir einem anderen Timer dazwischen. Darum soll man hier zwingend 0 übergeben, wenn man einen neuen Timer anlegen will und keinen vorhandenen ändern.

Das steht auch alles so in der Doku.

[hathor]

...oder mit Konstante:

Delphi-Quellcode:

//global
const IDC_TIMER = 4;
var wnd: HWND;
    hwndTimer : DWORD;

//in beliebigen Prozeduren
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
...
KillTimer(wnd, hwndTimer);
hwndTimer := 0;
...
function WndProc(wnd: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM):
  LRESULT; stdcall;
begin
case uMsg of
WM_TIMER:
      begin
 //  tu was...
      end;   
end;

[Sir Rufo]

@hathor

Vorausgesetzt dass wnd ungleich 0 ist, ist hwndTimer überflüssig, denn der wird immer den Wert 4 haben (oder 0 wenn die Erstellung des Timers fehlgeschlagen ist).

[hathor]

@Sir Rufo:

Das stimmt nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
Memo1.Lines.Add(INTTOSTR(hwndTimer));
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
Memo1.Lines.Add(INTTOSTR(hwndTimer));
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
Memo1.Lines.Add(INTTOSTR(hwndTimer));
//hwndTimer - Werte bei mir:
//7187
//7186
//7185
end;

[Sir Rufo]

Zitat von hathor:

@Sir Rufo:

Das stimmt nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
Memo1.Lines.Add(INTTOSTR(hwndTimer));
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
Memo1.Lines.Add(INTTOSTR(hwndTimer));
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
Memo1.Lines.Add(INTTOSTR(hwndTimer));
//hwndTimer - Werte bei mir:
//7187
//7186
//7185
end;

Es wäre sehr schön, wenn du den Wert von wnd mal mit postest (und ob das auch ein gültiges Fenster-Handle ist, denn ansonsten ist das so wie ich es gesagt habe und in der Doku steht).

Ist das so schwer zu begreifen? Diese SetTimer-Funktion reagiert abhängig davon ob du ein Fenster-Handle übergibst oder nicht. Ohne Fenster-Handle bekommst du eine TimerID zugewiesen. Die übergebene TimerID sollte aber 0 (in Worten Null, Zero, Nada, nix, ...) sein, wenn du einen neuen Timer haben möchtest.

[BadenPower]

Wenn Du SetTimer() mit einem Handle aufrufst, dann ist der Rückgabewert irgendein Wert. Diesen Wert solltest Du aber nicht für KillTimer() benutzen, sondern den, welchen Du im 2. Parameter angegeben hast.

Ist kein Handle bei SetTimer() angegeben, dann ist der Rückgabewert der Funktion gleich dem Wert, welchen Du für die KillTimer()-Funktion benötigst.

[jaenicke]

Also mich wundert vor allem wieso die TimerProc hier in allen Posts nicht der Doku entspricht. Ich würde mal sagen die Beispiele sorgen alle für einen fehlerhaften Stack...
Denn die bekommt eigentlich noch Parameter und da das stdcall ist, muss die aufgerufene Prozedur auch die Parameter aufräumen (tut es aber nicht, weil sie nix davon weiß):
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Korrekt sieht die so aus:

Delphi-Quellcode:

procedure OnTimer(hwnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD); stdcall;
begin
...

Und dann hat man auch die ID des Timers...

[Sir Rufo]

Zitat von BadenPower:

Wenn Du SetTimer() mit einem Handle aufrufst, dann ist der Rückgabewert irgendein Wert. Diesen Wert kannst Du aber nicht für KillTimer() benutzen.

Ist kein Handle bei SetTimer() angegeben, dann ist der Rückgabewert der Funktion gleich dem Wert, welchen Du für die KillTimer()-Funktion benötigst.

Hat einer von euch das schon mal ausprobiert? Ich schon.

• SetTimer mit Handle liefert exakt den Wert zurück, den ich als IDEvent übergeben habe.
• SetTimer ohne Handle und IDEvent 0 liefert irgendeinen Wert <> 0 zurück
• SetTimer ohne Handle und IDEvent <> 0 (zu dem es aber aber keinen existierenden Timer gibt) liefert irgendeinen Wert <> 0 zurück
• SetTimer ohne Handle und IDEvent mit einer existierenden TimerId liefert exakt diese TimerID wieder zurück

[BadenPower]

Zitat von Sir Rufo:

Hat einer von euch das schon mal ausprobiert? Ich schon.

Nein ausprobiert habe ich die Rückgabewerte nicht.

Wozu auch, es steht doch in der MSDN-Doku das drin, was ich gepostet habe und dies deckt sich mit dem was Deine Rückgabewerte sagen.

Und den Rückgabewert von SetTimer mit Handle braucht man ja gar nicht, da man ja schon nIDEvent sowiso hat.

Zitat:

If the function succeeds and the hWnd parameter is NULL, the return value is an integer identifying the new timer. An application can pass this value to the KillTimer function to destroy the timer.

If the function succeeds and the hWnd parameter is not NULL, then the return value is a nonzero integer. An application can pass the value of the nIDEvent parameter to the KillTimer function to destroy the timer.

[hathor]

Wer als Anfänger auf diesen Thread kommt, wird am Ende völlig verwirrt sein.
Abschliessend Beispiele, die bei mir funktionieren
- Console(Memo1-Befehle durch WriteLn ersetzen) + VCL - (WIN8.1, XE7):

Delphi-Quellcode:

procedure MyTimer(hWnd: HWND; uMsg: Integer; idEvent: Integer; dwTime: Integer); stdcall;
begin Form1.Memo1.Lines.Add('Timer Event: '+ INTTOSTR(idEvent)); WinApi.Windows.Beep(1800,50); end;

// global var  id1, id2, id3 : DWORD;
procedure TForm1.Button11Click(Sender: TObject);
begin
if id1=0 then id1 := SetTimer(0, 1, 1000, @MyTimer); Memo1.Lines.Add(INTTOSTR(id1));  //1000msec
if id2=0 then id2 := SetTimer(0, 1, 2000, @MyTimer); Memo1.Lines.Add(INTTOSTR(id2));  //2000msec
if id3=0 then id3 := SetTimer(0, 1, 3000, @MyTimer); Memo1.Lines.Add(INTTOSTR(id3));  //3000msec
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
KillTimer(0, id1); Memo1.Lines.Add(INTTOSTR(id1)); id1:=0;
KillTimer(0, id2); Memo1.Lines.Add(INTTOSTR(id2)); id2:=0;
KillTimer(0, id3); Memo1.Lines.Add(INTTOSTR(id3)); id3:=0;
end;

Code wegen #51 korrigiert.