Immer wiederkehrende Aufgaben realisieren

[r2c2]

Kann ich ohne genaue Infos nicht sagen. Tendentiell macht aber das bisschen Rechnen gar nichts. Die paar Takte sind vernachlässigbar.

mfg

Christian

[RWarnecke]

Zitat von taaktaak:

Hmmm, die Timer-Funktionalität wird also nur genutzt, wenn das Programm ins Tray gesetzt ist - sonst nicht?!

Korrekt so.

Zitat von taaktaak:

Nach einer Stunde ändern sich die Intervalle?

Die Intervalle bleiben immer gleich, wenn das Programm im Tray ist.

Zitat von taaktaak:

Wenn ich die Aufgabe des Timers in diesem speziellen Fall richtig interpretiere, gehe ich davon aus, dass keine besondere Genauigkeit notwendig ist. Ob ein Fenster 100ms früher oder später erscheint, ist vermutlich irrelevant.

Das ist nicht relevant. Selbst wenn es mal 500ms später oder früher angezeigt wird, macht das nichts aus. Es sollte nur auf jedenfall angezeigt werden. Die Genauigkeit spielt dabei eine nicht so große Rolle.

Startet die TTimer - Komponente den Interval neu, wenn ich Sie deaktiviere und dann wieder aktiviere ? Ich bin bis jetzt zumindest davon ausgegangen.

[nahpets]

Zitat von RWarnecke:

Startet die TTimer - Komponente den Interval neu, wenn ich Sie deaktiviere und dann wieder aktiviere ? Ich bin bis jetzt zumindest davon ausgegangen.

Ja, dadurch kommen immer "Zeitverschiebungen" zustande, die sich im Laufe der Zeit spürbar summieren.
Wie brauchst Du denn den Timer: Immer zur vollen Stunde oder immer zur vollen Minute oder immer nach Abschluß eines Vorganges eine bestimmte Zeitdifferenz.

• Interval := 60000;
  
  Timer ein
  
  Timerereignis
  Timer aus
  irgendwas arbeiten lassen
  Timer ein

Das zweite Timerereignis wird also eine Minute nach dem Abarbeiten des ersten Timerereignisses ausgelöst und nicht zur vollen nächsten Minute.

Eventuell kommst Du ja damit an Deinem Problem "vorbei":

Ein paar Konstanten für definierte Zeiträume

Delphi-Quellcode:

const
  iOneMinute      : Integer =    60000; // eine Minute in Millisekunden
  iFiveMinutes    : Integer =   300000; // Fünf Minuten in Millisekunden
  iFifteenMinutes : Integer =   900000; // Fünfzehn Minuten in Millisekunden
  iOneHour        : Integer =  3600000; // Eine Stunde in Millisekunden
  iOneDay         : Integer = 86400000; // Ein Tag in Millisekunden

Eine Funktion zum Berechnen der Zeitdifferenz bis zum nächsten Timerereignis.
Hier wird der Wert berechnet, der Interval zuzuweisen ist, bevor der Timer eingeschaltet wird.
iTimerInterval ist einer der obigen Konstanten Werte.

Delphi-Quellcode:

function  CalcTimerInterval(iTimerInterval : Integer) : Integer;
Var
          dNow : Double;
begin
  // Interval setzen
  // Tagesdatum und Uhrzeit holen
  dNow := Now;
  // Den Tagesanteil holen (= Nachkommastellen).
  dNow := dNow - Trunc(dNow);
  // Rest bis Mitternacht holen.
  dNow := 1 - dNow;
  // Nachkommastellen mal Millisekunden pro Tag
  Result := Trunc(dNow * iOneDay);
  // wir benötigen den Rest bis zum angegeben Interval, damit der Timer
  // zur nächsten Minute, Stunde, 0 Uhr ... aktive wird.
  // (Der durchschnittliche Rechenfehler liegt bei 500 Millisekunden.)
  Result := (Result mod iTimerInterval);
end;

Habe einige Routinen zum Systemmonitoring, bei denen ich diese Berechnung einsetze. Die Routinen "schlagen" zur vollen Stunde, um Mitternacht, alle vollen fünf Minuten... zu. Die Abweichung durch das Berechnen ist immer kleiner 1 Sekunde. Damit kann ich für meinen Bedarf leben.

Stephan

[Apollonius]

Bei einem so lang laufenden Timer kommt mir ein Waitable Timer in den Sinn. Wenn man ihn APCs auslösen lässt, ist das genauer als die Lösung mit TTimer und einfacher als Lösungen mit GetTickCount.

[RWarnecke]

Die Timer sollen variabel sein. Der User soll sie anhand von Sekunden einstellen können, wann die Popups angezeigt werden. Diese Zeitverschiebung wie Ihr sie hier beschreibt, würde ja nur zustande kommen, wenn das Programm immer wieder aus dem Tray geholt wird und wieder zurück gelegt wird. Nur ist das bei meinem Test nicht der Fall. Das Programm wird gestartet und unten ins Tray gelegt, ohne irgendwas damit zu machen. Ich habe im Programm insgesamt 4 Timer. Davon wird 1 Timer beim starten des Programms aktiviert und die restlichen 3 Timer werden aktiviert, wenn das Programm in den Tray geht. Der eine Timer, der beim Starten des Programms aktiviert wird, arbeitet zuverlässig. Nur die drei Timer, die beim ablegen ins Tray aktiviert werden, arbeiten gut nach einer Stunde nicht mehr korrekt. Das ist das was ich nicht verstehe.

Das Programm läuft ohne irgend ein Zugriff oder Benutzung vom User. Es werden nur die Popups erzeugt und angezeigt.

Edit:
Wie sieht das aus, mit dem Befehl SetTimer ? Ist der vielleicht besser als die TTimer-Komponente ?

[Apollonius]

TTimer ist nur eine Kapselung von SetTimer. Waitable Timer sind genauer.

[r2c2]

Zitat von RWarnecke:

Diese Zeitverschiebung wie Ihr sie hier beschreibt, würde ja nur zustande kommen, wenn das Programm immer wieder aus dem Tray geholt wird und wieder zurück gelegt wird.

Nö. Die treten auch dann auf, wenn du in OnTimer den Timer immer aus und wieder anschaltest. Tust du das?

mfg

Christian

[RWarnecke]

Zitat von r2c2:

Nö. Die treten auch dann auf, wenn du in OnTimer den Timer immer aus und wieder anschaltest. Tust du das?

Nein, nicht im OnTimer. Lediglich nur dann wenn das Programm aus dem Tray kommt, wird es deaktiviert und wenn das Programm ins Tray gelegt wird, wieder aktiviert.

[RWarnecke]

Ich habe da noch eine Frage, wenn ein TTimer schon läuft und ich dann Timer.Enabled := true setze, addiert sich dann die Zeit auch wieder ?

[mkinzler]

Das Aktivieren eines Aktiven Vorgangs hat keine Auswirkung