Timer in einer Unit

[Dejan Vu]

aber der Event wird nur 1x ausgelöst, d.h. es handelt sich nicht um einen periodischen Timer (den man aber sehr leicht anhand des Codes erstellen kann)

[Sir Rufo]

Zitat von Dejan Vu:

aber der Event wird nur 1x ausgelöst, d.h. es handelt sich nicht um einen periodischen Timer (den man aber sehr leicht anhand des Codes erstellen kann)

Wo wie was wann wird da nur einmal etwas ausgelöst? Der Timer, wenn erfolgreich gesetzt, löst nach jedem Intervall aus bis es den Timer nicht mehr gibt.

[BadenPower]

Zitat von Dejan Vu:

aber der Event wird nur 1x ausgelöst, d.h. es handelt sich nicht um einen periodischen Timer (den man aber sehr leicht anhand des Codes erstellen kann)

Einmal abgesehen davon, dass die Aussage falsch ist, hätte man dennoch als Antwort die Code-Änderung posten können, welche dann die angebliche richtige Lösung enthalten würde.

So ist es halt nur wieder das übliche BlaBla.

[Dejan Vu]

Ich hatte die MSDN-Beschreibung so verstanden, aber -so im nachhinein- wäre das auch ziemlich blöd, wenn es nur 1x gefeuert würde.

Zitat von BadenPower:

So ist es halt nur wieder das übliche BlaBla.

Niveau ist das Denkmal des Verstandes.

[Popov]

Ich hab das mal übersetzt:

SetTimer

Code:

function SetTimer(Wnd: HWnd; IDEvent: Integer; Elapse: Word; TimerFunc: TFarProc): Word;

Die Funktion SetTimer erzeugt ein System-Timer-Ereignis. Ein Time-Out-Wert wird festgelegt. Immer wenn ein Time-Out eintritt, sendet das System eine WM_TIMER-Meldung an die installierte Anwendungswarteschlange, oder übergibt die Meldung an eine anwendungsdefinierte TimerProc-Callback-Funktion.

Parameter	Beschreibung
Wnd	Legt das Fenster fest, das dem Timer zugeordnet werden soll. Ist der Parameter TimerFunc nil, erhält die mit diesem Fenster verbundene Fenster-Prozedur die Meldungen WM_TIMER von dem Timer. Ist dieser Parameter Null, wird kein Fenster mit dem Timer verbunden.
IDEvent	Legt einen von Null verschiedenen Bezeichner für ein Timer-Ereignis fest. Ist der Parameter Wnd Null, wird dieser Parameter ignoriert.
Elapse	Bestimmt die abgelaufene Zeit zwischen Timer-Ereignissen in Millisekunden.
TimerFunc	Bestimmt die Adresse der Prozedurinstanz der Callback-Funktion, die die Meldungen WM_TIMER weitergibt. Ist dieser Parameter nil, werden die Meldungen WM_TIMER in der Anwendungswarteschlange plaziert, und das hwnd-Mitglied der Struktur TMSG enthält das durch den Parameter Wnd bestimmte Fenster-Handle. Weitere Informationen finden Sie in der Beschreibung der Callback-Funktion TimerProc

Rückgabewert
Der Rückgabewert legt den Integer-Bezeichner für das neue Timer-Ereignis fest, wenn der Parameter Wnd Null ist, und die Funktion erfolgreich ausgeführt wurde. Eine Anwendung übergibt diesen Wert an die Funktion KillTimer, um das Timer-Ereignis zu beseitigen. Der Rückgabewert ist ungleich Null, wenn der Parameter Wnd ein gültiges Fenster-Handle ist, und die Funktion erfolgreich ausgeführt wurde. Andernfalls ist der Rückgabewert Null.

Hinweis
Timer sind eine eingeschränkt verfügbare, globale Ressource. Aus diesem Grund ist es wichtig, daß eine Anwendung den durch die Funktion SetTimer zurückgegeben Wert überprüft, um sicherzustellen, daß ein Timer verfügbar ist.

Um eine Timer-Funktion zu installieren, muß TimerFunc eine Adresse der Prozedurinstanz einer Callback-Funktion bestimmen und die Funktion muß in der Moduldefinitionsdatei der Anwendung exportiert werden. Die Adresse sollte mit Hilfe der Funktion MakeProcInstance erzeugt werden.

Die Callback-Funktion muß die Pascal-Aufrufkonvention verwenden und als FAR deklariert werden.

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