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

Delphi-Quellcode:

SetTimer

ist

Delphi-Quellcode:

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

Delphi-Quellcode:

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

Delphi-Quellcode:

wnd

ungleich 0 ist, ist

Delphi-Quellcode:

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:

Zitat von hathor (Beitrag 1294416)

@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

Delphi-Quellcode:

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:

Zitat von BadenPower (Beitrag 1294419)

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
  Delphi-Quellcode:

  IDEvent

  übergeben habe.
• SetTimer ohne Handle und
  Delphi-Quellcode:

  IDEvent

  0 liefert irgendeinen Wert <> 0 zurück
• SetTimer ohne Handle und
  Delphi-Quellcode:

  IDEvent

  <> 0 (zu dem es aber aber keinen existierenden Timer gibt) liefert irgendeinen Wert <> 0 zurück
• SetTimer ohne Handle und
  Delphi-Quellcode:

  IDEvent

  mit einer existierenden TimerId liefert exakt diese TimerID wieder zurück

[BadenPower]

Zitat:

Zitat von Sir Rufo (Beitrag 1294421)

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.

[Sir Rufo]

@hathor

Bitte beschreibe dem nun vollends verwirrtem Anwender was er von deinem Code-Schnipsel erwarten kann, wenn er 2x den Button1 drückt und dann 1x den Button2.

Aber evtl. solltest du es vorher ausprobieren, wundern und dann beschreiben, denn das Ergebnis wird dich überraschen :roll:

BTW: Du solltest auch noch die Typen der Variablen und Argumente korrigieren

@BadenPower

Du hast natürlich Recht. Wenn ein Handle übergeben wird, dann ist der Rückgabewert im Erfolgsfall größer 0. Ich habe zwar gesehen, dass der Rückgabewert dem Argument nIDEvent entspricht, allerdings darf man sich darauf nicht verlassen, weil die Dokumentation es nicht zusichert.

[BadenPower]

Der 2.Parameter in hathor's Beispiel bei SetTimer() sollte auch nicht 1, sondern 0 sein.
Denn wenn ein Timer mit der ID = 1 exestieren würde, dann würde dieser mit den neuen Werten überschrieben werden und kein neuer Timer erzeugt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
id1 := SetTimer(0, 0, 2000, @MyTimer); Memo1.Lines.Add('id1:' + INTTOSTR(id1)); //2000msec
id2 := SetTimer(0, id1, 4000, @MyTimer); Memo1.Lines.Add('id2:' + INTTOSTR(id2)); //4000msec
id3 := SetTimer(0, id2, 6000, @MyTimer); Memo1.Lines.Add('id3:' + INTTOSTR(id3)); //6000msec
end;

In diesem Beispiel wird nur 1 Timer erzeugt, welcher am Schluß einen Interval von 6000 hat.

Bei Hwnd = 0 also immer 0 als 2. Parameter, denn nur dann ist auch gwährleistet, dass auch tatsächlich ein neuer Timer erstellt wird, ausser man willnatürlich einen bestehenden Timer mit neuem Interval belegen.

[HolgerX]

So, jetzt will ich auch noch ein bisschen verwirren..

Was passiert, wenn SetTimer(0, EventID,.. eine bereits durch ein anderes Programm verwendete EventID benutzt?

Wenn es sich bei den Timern um globale Timer handelt, sollte dann dem anderen Programm der Timer 'geklaut' werden... :o

Wenn dem so ist, dann sollte man SetTimer grundsätzlich mit einem gültigen Handle aufrufen, um zu verhindern, das der Timer entwendet wird.

[himitsu]

Timmer sollten nur Programmintern gelten ... ich vermtute mal die Timer sind ohne Fenster an den Thread gekoppelt.

Mit HWND sind sie nur innerhalb des Fensters eindeutig.

[Sir Rufo]

Zitat:

Zitat von HolgerX (Beitrag 1294500)

So, jetzt will ich auch noch ein bisschen verwirren..

Was passiert, wenn SetTimer(0, EventID,.. eine bereits durch ein anderes Programm verwendete EventID benutzt?

Wenn es sich bei den Timern um globale Timer handelt, sollte dann dem anderen Programm der Timer 'geklaut' werden... :o

Wenn dem so ist, dann sollte man SetTimer grundsätzlich mit einem gültigen Handle aufrufen, um zu verhindern, das der Timer entwendet wird.

Wenn du einen Timer erzeugen willst und kein Handle übergeben möchtest, dann musst du wie folgt vorgehen:

Delphi-Quellcode:

var
  nIDEvent : UINT_PTR = 0; // wir starten OHNE eine TimerID

procedure StartMyTimer;
begin
  nIDEvent := SetTimer( 
    { KEIN HANDLE } 0,
    { TimerID } nIDEvent,
    { Interval } 1000,
    { TimerProc } @MyTimerProc );
end;

procedure StopMyTimer;
begin
  if KillTimer(
    { KEIN HANDLE } 0,
    { TimerID } nIDEvent )
  then
    nIDEvent := 0;
end;

Und schon wird da auch kein Timer von wo auch immer geklaut ... man muss es nur richtig machen

[himitsu]

Zitat:

Zitat von Sir Rufo (Beitrag 1294518)

Und schon wird da auch kein Timer von wo auch immer geklaut ... man muss es nur richtig machen

Und wenn man StartMyTimer nochmals aufruft, wenn der Timer aktiv ist, dann wird die ID übergeben, der selbe Timer überschrieben und kein Neuer erstellt.

Aber dennoch, auch hier wird ein WM_TIMER ausgelöst und an den Thread geschickt, denn diese Message wird für die Synchronisation benutzt, da das Event im selben Thread ausgeführt wird, wo der Timer erstellt wurde und das WM_TIMER dient hierbei als Auslöser für den Callback, durch DispatchMessage.