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