AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TTimer zu schnell?

Ein Thema von TurboMagic · begonnen am 14. Jul 2024 · letzter Beitrag vom 16. Jul 2024
 
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
3.023 Beiträge
 
Delphi 12 Athens
 
#1

TTimer zu schnell?

  Alt 14. Jul 2024, 19:25
Hallo,

in einem D12.1 basierten VCL Programm gibt's das komische von einem Anwender gemeldete
Phänomen, dass eine Fehlermeldung erscheint, die nur dann erscheinen soll, wenn jemand
die Systemzeit zurückstellt. Der Anwender hat das bestimmt nicht getan.

Hier meine Initialisierung des betreffenden Timers, extra auf 1 min. + 50ms, für den Fall
dass das System mal beschäftigt ist bzw. weil ja TTimer nicht so hoch präzise ist.

Delphi-Quellcode:
procedure TMyClass.InitTimeManipulationCheckTimer;
begin
  if not Assigned(FTimeManipulationCheck) then
  begin
    FTimeManipulationCheck := TTimer.Create(nil);
    FTimeManipulationCheck.Interval := 60050; // 1 min. 50 ms
    FTimeManipulationCheck.OnTimer := OnCheckTimeManipulation;
  end;

  FTimeManipulationCheck.Enabled := true;
  FLastCheckTime := now;
end;
FLastCheckTime ist natüprlich ein TDateTime Wert.

Hier das Timer Event:

Delphi-Quellcode:
procedure TMyClass.OnCheckTimeManipulation(Sender: TObject);
var
  Difference : Double;
begin
  Difference := Now-FLastCheckTime;

  // Wenn die Zeit nicht um mindestens 1 min. fortgeschritten ist wurde
  // sie manipuliert!
  if not (Difference >= System.DateUtils.OneMinute) then
  begin
    log.Send(LevelRed, cCategory,
             'Systemzeit wurde manipuliert (oder Zeitumstellung): ' +
             'Alt: ' + FLastCheckTime.ToString + ' Neu: ' + now.ToString);

    MessageDlg(rTimeManipulation, mtError, [mbOK], -1);
    Application.Terminate;
  end;

  FLastCheckTime := now;
end;
Ich verstehe nicht wie sonst die Meldung kommen kann. Das kann doch eigentlich
nur passieren, wenn der Timer nach < 1 min. das Event aufruft, was die 50 ms
zur 1 min. Interval Zeit eigentlich verhindern sollen. Kann denn der Timer so
unpräzise zu schnell werden?
Grüße
TurboMagic
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 02:16 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 by Thomas Breitkreuz