Differenz zur echten Uhrzeit in Sekunden ermitteln

[philipp.hofmann]

Hi,

ich versuche mit TIdTime die Differenz zur wirklichen, aktuellen Uhrzeit ermitteln.
Dafür will ich TIdTime nutzen:

Ich ziehe mir die aktuelle Uhrzeit auf dem Rechner und die aktuelle Uhrzeit von TIdTime.
Jetzt habe ich auf einem iOS und einem Android-Device rund 2 Stunden-Unterschied, d.h. läuft noch irgendwas mit den Zeitzonen falsch.
Auf einem Rechner, der bei manueller Prüfung auf die Sekunde die gleiche Uhrzeit wie ein anderer hat, bekomme ich 30 Sekunden Unterschied raus.

Was mache ich hier falsch? Muss man andere TIdTime-Methoden nutzen? Ich würde ungerne die Systemzeit selbst durch diesen Check anpassen.

Delphi-Quellcode:

procedure TicTrainerF.syncTime();
var idTime:TIdTime;
    dtLocal,dtServer:TDateTime;
    msDiff:Int64;
begin
  idTime:=TIdTime.create(nil);
  try
    idTime.Host:='time.nist.gov';
    dtServer:=idTime.dateTime;
    if (dtServer>0) then
    begin
      dtLocal:=NOW;
      msDiff:=MillisecondsBetween(dtServer,dtLocal);
      if (dtLocal>dtServer) then
        syncTimeDiff:=msDiff*-1
      else
        syncTimeDiff:=msDiff;
      mlog.info('syncTime '+FloatToStrF(syncTimeDiff/1000,ffFixed,8,3,myFormatSettings)+'s');
    end else begin
      mlog.info('syncTime not possible²');
      syncTimeDiff:=0;
    end;
  finally
    hideHourGlass();
    idTime.free;
  end;
  except on E: Exception do
    begin
      mlog.info('syncTime not possible');
      syncTimeDiff:=0;
    end;
  end;
end;

Grüße, Philipp

[Rollo62]

Kenne mich mit TimeServern nicht so aus, aber kann es sein das man die Timezone bei der Anfrage mit angeben muss ?
Ich würde normalerweise UTC vermuten, die 2h deuten ja etwas darauf hin.
Schau doch mal was TIdTime wirklich macht.

[philipp.hofmann]

Rein von der Doku her muss man keine Zeitzone mitgeben und bei meinen beiden Windows-Möhren geht es auch so, nur unter Android und iOS passiert etwas anderes:

TIdTime.DateTime:

• DateTime is a read-only TDateTime property that reflects the estimated current date and time according to a Time server.
  DateTime is expressed in the timezone for the local computer.

TIdTime.SyncTime:

• Updates local time to match the Time server.
  das wäre die Alternative, aber ob ich aus einer App die "local time" anpassen will, ich weiß nicht.

Werde ich wahrscheinlich mal den Indy-Code anschauen müssen.

[shebang]

Zitat von philipp.hofmann:

Rein von der Doku her muss man keine Zeitzone mitgeben und bei meinen beiden Windows-Möhren geht es auch so, nur unter Android und iOS passiert etwas anderes

Ist denn auf den beiden Mobilgeräten die Zeitzone auch korrekt eingestellt?

[philipp.hofmann]

Ja, die Zeitzone stimmt auf den Geräten. Ich habe auch schon überlegt als Zeitdifferenz nur
msDiff:=MillisecondsBetween(dtServer,dtLocal) mod 3600000; zu nehmen, aber wie gesagt, dann kommen bei einem Device 30 Sekunden Differenz raus, obwohl die Uhrzeit ziemlich genau die gleiche ist (maximal +/- 1 Sekunde). Da baue ich mal noch ein paar mehr Loggings ein, vielleicht braucht er auch so lange um den Time-Server abzufragen, dann wäre es eh unbrauchbar für die Differenzen auf Sekundenebene einzustellen.

Das es wohl bei 2 Stunden UTC sein sollte, ist mir klar, weiß ich aber ja auch nur, weil ich es hier bei mir in Deutschland aufrufe. Mir ist noch unklar, wie ich daraus eine allgemein gültige Regel machen sollte, da es bei meinen Windows-Geräten stimmt. Einem TDateTime sieht man ja die Zeitzone nicht an.

[TurboMagic]

Hallo,

falls du hier keine weiterführenden ANtworten bekommnst könntest du mal in der EN DP posten (ich vermute du kannst Englisch),
da liest m.w. zumindest einer der Indy Entwickler mit!

Grüße
TurboMagic

[jaenicke]

Zitat von philipp.hofmann:

TIdTime.SyncTime:

• Updates local time to match the Time server.
  das wäre die Alternative, aber ob ich aus einer App die "local time" anpassen will, ich weiß nicht.

Das ist unter Android z.B. gar nicht möglich. Leider kann eine App dort nur z.B. die Atomzeit als Überblendung anzeigen, damit man diese manuell einstellen kann.

[philipp.hofmann]

Wie gesagt, es wäre auch nicht mein bevorzugter Weg die Uhrzeit auf dem Rechner zu synchronisieren. Ich dachte mir auch schon, dass dies sicherlich aus Berechtigungsgründen nicht geht.
Ich gebe jetzt mal noch zusätzlich in meinem Output TTimeZone.Local.ToUniversalTime(...) aus, damit ich ausschließe, dass es hier ein falsches Setting auf den einzelnen Rechnern/Tablets gibt.

[himitsu]

Man muß auch nicht unbedingt direkt die Uhr ändern.

Bei uns wird die Serverzeit abgefragt und mit der lokalen Zeit die Differenz gebildet. (beim Start und regelmäßig zwischendrin, während der Connectionchecks, wegen der Schaltjahre, Schaltsekunden und sonstwas)
Die meisten Operationen laufen in der Datenbank ab, also mit der Serverzeit, wellche sich selbst über einen Timeserver updated (current_time im SELECT/INSERT/UPDATE, anstatt Now über Parameter),
aber für Anzeigen im Programm, welche z.B. lokal über Now bestimmt wurden, da wird dann einfach diese Differenz hinzugerechnet, damit das mit der Serverzeit in etwa übereinstimmt, egal was die Uhr im Rechner sagt.

[venice2]

Zitat von Rollo62:

Ich würde normalerweise UTC vermuten, die 2h deuten ja etwas darauf hin.

Ich auch.
Hatte das gleiche Problem letztens mit meinem Video Player.