Hi,
ich bekomme bei vielen timeservern wie z.B. ptbtime1.ptb.de - EIdSocketErrors wenn ich versuche die Zeit abzufragen. Der server ist erreichbar - habe das mit einem drittprogramm gecheckt...
nehme ich einen der auskommentierten timeserver funktioniert es bisher zumindest ohne probleme
Komponente: IDtime -
Indy 10
meine Frage
1. woran kann es liegen dass z.B. ptbtime1.ptb.de diesen Fehler produziert (obwohl der server erreichbar ist
2. wieso bekomme ich diesen EIdSocketError obwohl doch die abfrage mit try execpt fehler abfangen sollte ? Hab ich hier einen denkfehler ?
Danke für die Hilfe - Ralf
Hier der Code
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
atomtime: tdatetime;
begin
IdTime1.Disconnect;
// IdTime1.Host := 'time.fu-berlin.de';
// IdTime1.Host := 'ntp2a.mcc.ac.uk';
IdTime1.Host := 'ptbtime1.ptb.de';
IdTime1.Port := 37;
try
atomtime := IdTime1.DateTime;
except
atomTime := 1;
end;
label1.Caption:='Atomzeit: '+datetimetostr(atomtime);
label2.Caption:='Systemzeit: '+datetimetostr(now);
end;