AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Timer in einer Unit

Ein Thema von Popov · begonnen am 19. Mär 2015 · letzter Beitrag vom 23. Mär 2015
Antwort Antwort
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
981 Beiträge
 
Delphi 6 Professional
 
#1

AW: Timer in einer Unit

  Alt 23. Mär 2015, 13:08
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.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.340 Beiträge
 
Delphi 12 Athens
 
#2

AW: Timer in einer Unit

  Alt 23. Mär 2015, 13:15
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.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Timer in einer Unit

  Alt 23. Mär 2015, 14:40
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.
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
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.340 Beiträge
 
Delphi 12 Athens
 
#4

AW: Timer in einer Unit

  Alt 23. Mär 2015, 14:46
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.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz