AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Differenz zur echten Uhrzeit in Sekunden ermitteln
Thema durchsuchen
Ansicht
Themen-Optionen

Differenz zur echten Uhrzeit in Sekunden ermitteln

Ein Thema von philipp.hofmann · begonnen am 15. Jan 2021 · letzter Beitrag vom 21. Jan 2021
Antwort Antwort
Seite 1 von 2  1 2      
philipp.hofmann

Registriert seit: 21. Mär 2012
Ort: Hannover
898 Beiträge
 
Delphi 10.4 Sydney
 
#1

Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 15. Jan 2021, 23:39
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
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
4.116 Beiträge
 
Delphi 12 Athens
 
#2

AW: Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 16. Jan 2021, 11:52
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.
  Mit Zitat antworten Zitat
philipp.hofmann

Registriert seit: 21. Mär 2012
Ort: Hannover
898 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 16. Jan 2021, 13:11
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.
  Mit Zitat antworten Zitat
venice2
(Gast)

n/a Beiträge
 
#4

AW: Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 16. Jan 2021, 17:13
Ich würde normalerweise UTC vermuten, die 2h deuten ja etwas darauf hin.
Ich auch.
Hatte das gleiche Problem letztens mit meinem Video Player.

Geändert von venice2 (16. Jan 2021 um 17:15 Uhr)
  Mit Zitat antworten Zitat
shebang

Registriert seit: 7. Feb 2020
131 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 16. Jan 2021, 18:12
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?
  Mit Zitat antworten Zitat
philipp.hofmann

Registriert seit: 21. Mär 2012
Ort: Hannover
898 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 16. Jan 2021, 19:08
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.
  Mit Zitat antworten Zitat
TurboMagic

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

AW: Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 17. Jan 2021, 16:57
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
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
4.116 Beiträge
 
Delphi 12 Athens
 
#8

AW: Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 18. Jan 2021, 08:07
Vielleicht ist das die Lösung ?
https://stackoverflow.com/questions/...-via-all-hosts
  Mit Zitat antworten Zitat
philipp.hofmann

Registriert seit: 21. Mär 2012
Ort: Hannover
898 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 18. Jan 2021, 18:35
Danke für den Tipp mit dem englischen DP. Habe ich mal gemacht.
Anbei mal meine aktuellen Testergebnisse (MacOS fehlt noch), wie man sieht springt insbesondere Android auf einem Amazon-Tablet (FireHD 10) komplett aus der Reihe, da stimmt jetzt mal gar nichts.
Vorne sieht man immer die Uhrzeit vor und nach der Abfrage und danach das Ergebnis der Abfrage:

incorrect (timezone):
---------------------
syncTime (Android): 2021-01-18 16:24:50.789-16:24:51.169 vs 2021-01-18 14:24:51.000
syncTime (Android): 2021-01-18 16:24:48.071-16:24:48.428 vs 2021-01-18 14:24:49.000
syncTime (iOS): 2021-01-18 16:24:49.658-16:24:49.996 vs 2021-01-18 14:24:50.000

incorrect (at all):
-------------------
syncTime (FireOS/Android): 2021-01-18 16:24:48.606-16:24:49.028 vs 2021-01-18 14:40:02.000

correct:
--------
syncTime (Windows): 2021-01-18 16:24:47.612-16:24:48.359 vs 2021-01-18 16:24:48.000
syncTime (Windows): 2021-01-18 16:24:46.014-16:24:46.771 vs 2021-01-18 16:24:47.000
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
4.116 Beiträge
 
Delphi 12 Athens
 
#10

AW: Differenz zur echten Uhrzeit in Sekunden ermitteln

  Alt 19. Jan 2021, 08:17
Hallo Phillip,

womit hast Du denn vorher Alles getestet, auch hiermit ?
(TTimeZone.Local.ToLocalTime, TTimeZone.Local.ToUniversalTime)

Geändert von Rollo62 (19. Jan 2021 um 09:04 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 14:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz