Event bei Minutenwechsel der Windows-Uhr?

[TomyN]

Ich würde mal in die Docu zu CreateWaitableTimer schauen, da kann man eine Absolutzeit angeben bei der der Timerevent kommt.

[Rollo62]

Bei solchen Zeit-Problemen frage ich mich immer was prinzipiell die bessere Lösung wäre, und warum:
1. Timer-Lösung
2. Thead-Lösung, s.B. mit Sleep

Vielleicht kann das hier jemant aufklären ?

Ich persönlich tendiere auch ehere zu Timern, weil das in der Regel weniger Probleme macht.

[TomyN]

Oder Thread mit Timer

Gefühlsmässig halte ich Sleep für sehr unpräzise, kann es aber nicht begründen.

[Rollo62]

Zitat von TomyN:

Oder Thread mit Timer

Gefühlsmässig halte ich Sleep für sehr unpräzise, kann es aber nicht begründen.

Der Timer ist aber auch "unpräzise", eine Thread Lösung hätte da meiner Meinung nach mehr Möglichkeiten.

Jednfalls sehe ich für meine Projekte die Präzision sowieso nicht als kritisch an, in 90% aller Fälle reicht eine sehr moderate Präzision (1-2 Sek) aus, manchmal kann eine leichte Prozessänderung die Präzisionsanforderung dahingehend reduzieren.
Hohe Zeitpräzision ist meistens eine Illusion

Wann braucht man wirklich Präzision im 10ms Bereich, im genannten Fall jedenfalls nicht ?
Trotzdem wäre es gut mal eine stabile Lösung für echte ms/us Präzision in der Werkzeugkiste zu haben ( also quasi Echtzeitanforderungen ).
In der Praxis macht einem da aber sowieso schon das Betriebssystem einen Strich durch de Rechnung, was wohl mal locker sporadische Aussetzer im Sekundenbereich oder mehr haben kann, auch wenn es ansonsten im System-Tick bei ca. 10ms einigermaßen stabil ist.

@KodeZwerg
Ja Timer sind OK für mich in 90% der Fälle, ich habe nur immer ein schlechtes Bauchgefühl noch aus den Zeiten als es mal begrenzte Anzahl an System-Timern gab.
Ich glaube aber die Realität heute ist, dass es kein Problem sein sollte mal hier und da einen Timer einzusetzen,
trotzdem gehe ich noch immer sehr sparsam damit um.

[Michael II]

Zitat von Rollo62:

In der Praxis macht einem da aber sowieso schon das Betriebssystem einen Strich durch de Rechnung, was wohl mal locker sporadische Aussetzer im Sekundenbereich oder mehr haben kann,

...wäre zum Beispiel bei einem "MIDI Sequencer" nicht gut. Was du suchst sind Multimedia Timer.

Die Zeit darfst du dann auch nicht über now/GetSystemTime abgreifen, da dieser Wert nur alle paar ms aktualisiert wird (auf vielen Systemen nicht mal in regelmässigen Abständen).

Wenn du auf 100ns genau die Systemzeit abgreifen willst, geht das über GetSystemTimePreciseAsFileTime; für eine Auflösung im ms Bereich also so:

Delphi-Quellcode:

    procedure GetSystemTimeFT( var st : TSystemTime );
    var tf : TFileTime;
    begin
      GetSystemTimePreciseAsFileTime ( tf );
      FileTimeToSystemTime( tf, st );
    end;

Oder... ...selber schreiben (PerformanceCounter, Atomzeitserver).

Aber für die gestellte Aufgabe ist das alles viel zu viel.

[venice2]

Ich verwende für sowas SetWaitableTimer in Verbindung mit Thread und WaitForSingleObject.
Aber man kann es auch übertreiben.

Delphi-Quellcode:

function MySetWaitableTimer(hTimer: THandle;
                            var lpDueTime: TLargeInteger;
                            lPeriod: longint;
                            pfnCompletionRoutine: TFNTimerAPCRoutine;
                            lpArgToCompletionRoutine: Pointer;
                            fResume: BOOL): BOOL;
                            stdcall; external 'kernel32.dll' name 'SetWaitableTimer';

Kleiner Ausschnitt..

Delphi-Quellcode:

constructor TVisDataThread.Create(var DataReadyMsg: HWND; var MemPointer: Pointer);
begin

  inherited Create(True);

  FDriveThreadId := 0;

  FShareMemPointer := GetBufferAddress;
  MemPointer := FShareMemPointer;
  FVisTimer := CreateWaitableTimer(nil, False, nil);
  if FVisTimer <> 0 then
  begin
    DataReadyMsg := FDataReadyMsg;
    FDelayMS := 0;
    FModuledelayMs := 0;
    FDelayMSChanged := False;
    FThreadReady := True;
  end;

end;

Delphi-Quellcode:

procedure TVisDataThread.Execute;
const
  _SECOND = 10000000;
var
  qwDueTime: Int64;
  liDueTime: _LARGE_INTEGER;
  ErrMsg: string;
begin

  if FVisTimer = 0 then
    Exit;

  // Create a negative 64-bit integer that will be used to
  // signal the timer 1/4 seconds from now.
  qwDueTime := -1 * (_SECOND div 4);

  // Copy the relative time into a LARGE_INTEGER.
  liDueTime.LowPart := DWORD(qwDueTime and $FFFFFFFF);
  liDueTime.HighPart := longint(qwDueTime shr 32);
  if MySetWaitableTimer(FVisTimer,                 // handle to a timer object
                        TLargeInteger(liDueTime), // when timer will become signaled
                        FDelayMS,                 // periodic timer interval
                        nil,                      // pointer to the completion routine
                        nil,                      // data passed to the completion routine
                        False {flag for resume state}) then
    // Following sentences are repeated every FDelayMS interval all the time from initial
    // start up to program end.
    repeat
      // We need to re-adjust timer interval according to the parameter "DelayMS" of vis plug-in.
      // (in case we exchange vis plug-ins)
      if FDelayMSChanged then
      begin
        FDelayMSChanged := False;
        CancelWaitableTimer(FVisTimer);
        MySetWaitableTimer(FVisTimer, TLargeInteger(liDueTime), FDelayMS, nil,
          nil, False);
      end;

      if WaitForSingleObject(FVisTimer, 1000 {1sec}) = WAIT_OBJECT_0 then
      begin
        DoOnVisTimer;
      end else
        Terminate;

      SuspendIfHalted;
    until Terminated
  else
  begin
    ErrMsg := SysErrorMessage(GetLastError);
    ShowErrorMsgBox(ErrMsg);
    Terminate;
  end;
end;

[himitsu]

Zitat:

nicht gut.

Hängen kann es so oder so, da hilft auch kein anderer Timer,
auch wenn Dieser um einige Millisekunden genauer arbeiten dürfte.


Hier ging es um etwas im Sekundenbereich, für menschliche Maßstäbe, wo es (meistens) garnicht so genau sein muß.
Wenn ein Rechner total augelastet/überlastet sein sollte, dann wäe es mir auch egal (hätte Verständnis dafür), wenn es hier mal 'ne Sekunde/Minute hängt.


Ja, die Frage war "gibt es schon was Fertiges?".

Antwort: nein (OK, jain)

* TimerEvent-Komponente dafür besorgen (oder bauen lassen)
* Timer öfters/regelmäßig triggern und Prüfen ob Minute voll
* Timer auf nachfolgende Minute einstellen
* Thread
* oder 200 Milliarden andere Lösungen


PS: er wollte es einfacher haben,
da ist es eh kontraproduktiv, wenn ihr es noch komplizierter macht.

ein TTimer mit Interval von 1000 (oder weniger, z.B. 500, 250 oder 100)

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Label1.Caption := FormatDateTime('hh:mm:ss .zzz', Now);
  if Now < FNextEvent then
    Exit;
  FNextEvent := Trunc(Now * MinsPerDay + 1) / MinsPerDay;

  // mach irgendwas wenn die neue Minute beginnt
  Caption := TimeToStr(Now);
  Beep;
end;

Oder hab ich's übersehen und es gibt doch irgendwo ein RoundToMinute (Trunc) ?

oder

Delphi-Quellcode:

  FNextEvent := IncMinute(Now, 1);
  FNextEvent.SetSecond(0);
  FNextEvent.SetMilliSecond(0);

oder

Delphi-Quellcode:

  FNextEvent := IncMinute(RecodeDateTime(Now, RecodeLeaveFieldAsIs, RecodeLeaveFieldAsIs,
    RecodeLeaveFieldAsIs, RecodeLeaveFieldAsIs, RecodeLeaveFieldAsIs, 0, 0), 1);

oder
...

[KodeZwerg]

Zitat von Rollo62:

Bei solchen Zeit-Problemen frage ich mich immer was prinzipiell die bessere Lösung wäre, und warum:
1. Timer-Lösung
2. Thead-Lösung, s.B. mit Sleep

Vielleicht kann das hier jemant aufklären ?

Ich persönlich tendiere auch ehere zu Timern, weil das in der Regel weniger Probleme macht.

Timer ist sehr resourcenschonend also würde ich als WinAPI-Fan einem Thread in diesem Fall bevorziehen.
Sleep in einem Thread ist auch okay, wenn man Sleep wie in Delphi.Nariums Beispiel anpasst auch präzise genug (wenn es sich nicht um ein paar verlorene millisekunden geht...)

Zitat von TomyN:

Oder Thread mit Timer

Thread mit Timer, noch nie probiert, kannst Du da mal ein Beispiel für machen wie das funktioniert?

Auch noch zu erwähnen, was man machen kann wenn es nicht total ultra präzise sein muss...
WaitForSingleObject() bzw WaitForMultipleObjects() bzw per Event MsgWaitForMultipleObjects() sofern man sich in die WinAPI begeben möchte

[dummzeuch]

Zitat von TomyN:

Ich würde mal in die Docu zu CreateWaitableTimer schauen, da kann man eine Absolutzeit angeben bei der der Timerevent kommt.

Genaugenommen setzt man die Zeit in SetWaitableTimer.

Aber Du hast Recht, das scheint mir auch die beste Lösung zu sein.