Timer in einer Unit

[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.

[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.

[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

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...

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