Einzelnen Beitrag anzeigen

th_bone

Registriert seit: 16. Jun 2004
172 Beiträge
 
Delphi 2005 Professional
 
#1

idTime - timeserver problem - EIdSocketError

  Alt 3. Apr 2005, 12:56
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;
  Mit Zitat antworten Zitat