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?