idTime - timeserver problem - EIdSocketError

[th_bone]

Hi,

hat jemand ein funktionierendes IDsntp bsp. meine versuche

Delphi-Quellcode:

var
atomtime: tdatetime;
begin
  idsntp1.Active:=false;
  Idsntp1.Host:='ntp2a.mcc.ac.uk';
  //Idsntp1.Host := 'ptbtime1.ptb.de';
 // Idsntp1.Host := 'time.fu-berlin.de';
  idsntp1.Port := 37;
  idsntp1.Active:=true;
  idsntp1.datetime;
  try
    atomTime := Idsntp1.DateTime;
  except
    atomTime := 1;
  end;
  label1.Caption:='Atomzeit  : '+datetimetostr(atomtime);
  label2.Caption:='Systemzeit: '+datetimetostr(now);
end;

führen leider zu keinem ergebnis

danke

Ralf