AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi TIdSNTP liefert immer (noch) Sommerzeit
Thema durchsuchen
Ansicht
Themen-Optionen

TIdSNTP liefert immer (noch) Sommerzeit

Ein Thema von omnibrain · begonnen am 30. Okt 2023 · letzter Beitrag vom 30. Okt 2023
Antwort Antwort
Seite 1 von 2  1 2      
omnibrain

Registriert seit: 11. Nov 2022
65 Beiträge
 
Delphi 11 Alexandria
 
#1

TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 08:18
Ich nutze Delphi 11.2 (Patch 1) unter Windows 11 (22H2):

In unsere Software habe ich vor wenigen Wochen einen Check eingebaut um gegen einen Zeitserver unabhängig vom Rest des Systems gegen einen Zeitserver checken zu können, da unsere Kunden in der Vergangenheit Probleme mit der netzwerkinternen Zeitsynchronisation hatten.
Seit Sonntag haben wir "plötzlich" ein Stunde Abweichung.

Ich habe es auf den einfachst möglichen Test "eingedampft", einfach eine Form mit TIdSNTP-Komponente und einem Edit um den Server einzugeben. Und selbst so bekomme ich immer noch eine Zeit, die genau eine Stunde in der Zukunft liegt.
Habe ich etwas übersehen? Da wir jetzt "Normalzeit" haben hätte ich eher erwartet, dass es in den Vergangenen Wochen (während Entwicklung und Test) Probleme gegeben hätte.

Code:
  IdSNTP1.Host:=LabeledEdit1.Text;
  memo1.Lines.Add('Server: '+LabeledEdit1.Text+'Internetzeit: '+DateTimeToStr(IdSNTP1.DateTime));
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.431 Beiträge
 
Delphi 7 Professional
 
#2

AW: TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 09:18
Liefert der Zeitserver Greenwich Mean Time also GMT bzw. UTC?

Wir liegen eine Stunde davor, also GMT - 1. Im Sommer GMT - 2.

Sollte deine Software mal in Sydney zum Einsatz kommen, musst du momentan eine Differenz von 11 Stunden berücksichtigen (Sommerzeit), bei Normalzeit ist die Differenz 10 Stunden.

Die Angabe des Zeitservers dürfte also stimmen. Die Differenz zur örtlichen Zeitzone musst Du selbst berücksichtigen.
  Mit Zitat antworten Zitat
omnibrain

Registriert seit: 11. Nov 2022
65 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 09:41
Wie ich schon schrieb: Dann hätte ich letzte Woche 2 Stunden Abweichung haben müssen, stattdessen hat es bis dahin funktioniert.

Zur Verdeutlichung:
Code:
  IdSNTP1.Host:=LabeledEdit1.Text;
  memo1.Lines.Add('Server: '+LabeledEdit1.Text+' Internetzeit: '+DateTimeToStr(IdSNTP1.DateTime)+' Systemzeit: '+datetimetostr(now));
Output:
Zitat:
Server: ptbtime1.ptb.de Internetzeit: 30.10.2023 11:41:11 Systemzeit: 30.10.2023 10:41:11
...
Server: time.nist.gov Internetzeit: 30.10.2023 11:42:38 Systemzeit: 30.10.2023 10:42:41

Geändert von omnibrain (30. Okt 2023 um 09:44 Uhr)
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.431 Beiträge
 
Delphi 7 Professional
 
#4

AW: TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 09:55
Was sagt Dir denn https://uhr.ptb.de/analog?
Wenn Du dort über der 6 auf das Dreieck und das t klickst, wird dir die Abweichung der Rechneruhrzeit von der korrekten Uhrzeit angezeigt.
  Mit Zitat antworten Zitat
omnibrain

Registriert seit: 11. Nov 2022
65 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 10:05
MEZ (UTC+01:00)
Die lokale Uhr geht 44 ms nach ± 10 ms

Windows sagt
Zeitzone
(UTC+01:00) Amsterdam, Berlin, Bern Rom, Stockholm, Wien
  Mit Zitat antworten Zitat
Klapauzius

Registriert seit: 8. Feb 2018
Ort: Region Bern (Schweiz)
71 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 10:10
NTP Server liefern normalerweise UTC Zeit- Für die Umrechnung in die lokAle Zeit ist das Betriebssystem bzw das entsprechende Programm zuständig. Für unsere mitteleuropäische Zeitzone gilt also:
  • Die Sommerzeit entspricht (sofern ich mich nicht irre) UTC+2
  • Die Standardzeit sollte deshalb UTC + 1 sein
Albert
  Mit Zitat antworten Zitat
omnibrain

Registriert seit: 11. Nov 2022
65 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 10:15
Ich benutze die Komponente "TIdSNTP", teil von Indy.

Letzte Woche habe ich die "korrekte" Zeit, also wenn um 11:10 abgefragt habe kam 11:10 als Antwort.
Heute kommt bei der Abfrage um 11:10 stattdessen 12:10 als Antwort.

Die Komponente konvertiert das selbst. Viel zu konfigurieren habe ich da auch nicht gefunden.
  Mit Zitat antworten Zitat
Klapauzius

Registriert seit: 8. Feb 2018
Ort: Region Bern (Schweiz)
71 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 10:39
"Die Komponente konvertiert das selbst", steht das in der Hilfe zu Indy? Dann wäre das ein bug von Indy.

Versuch mal folgendes, das sollte die korrekte Zeitangabe liefern:

Delphi-Quellcode:
uses
  DateUtils;

var
 GMT: TDateTime;

...
  GMT := TTimeZone.Local.ToUniversalTime(IdSNTP1.DateTime);
  memo1.Lines.Add('Internetzeit GMT: '+DateTimeToStr(GMT));
Albert
  Mit Zitat antworten Zitat
omnibrain

Registriert seit: 11. Nov 2022
65 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 10:48
"Die Komponente konvertiert das selbst", steht das in der Hilfe zu Indy?
Ich ging auf Grund dessen was ich im Code erkennen kann und dem bisherigen Verhalten davon aus.
Wenn du mir einen Link zur Hilfe von Indy hast wäre das nett. https://www.indyproject.org/documentation/ ist seit Jahren tot. Und mit Delphi kam sie entweder nicht mit, oder ich finde sie nicht. F1 jedenfalls liefert nichts.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.024 Beiträge
 
Delphi 12 Athens
 
#10

AW: TIdSNTP liefert immer (noch) Sommerzeit

  Alt 30. Okt 2023, 12:04
Wenn du mir einen Link zur Hilfe von Indy hast wäre das nett. https://www.indyproject.org/documentation/ ist seit Jahren tot. Und mit Delphi kam sie entweder nicht mit, oder ich finde sie nicht. F1 jedenfalls liefert nichts.
Die Hilfe ist, wenn sie denn überhaupt installiert ist, im Menü unter Hilfe - Hilfe von Drittherstellern - Hilfe zur Indy-Bibliothek zu finden.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  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 11:21 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