Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
try
IdTime1.Host := 'ptbtime1.ptb.de';
lbTime.Caption := TimeToStr(IdTime1.DateTime);
finally
IdTime1.Disconnect;
end;
end;
geht bei mir einwandfrei. Diese Zeit ist allerdings mitnichten die Atomzeit sondern die normale Serverzeit die per NTP (Networktimeprotocol) zu dir gesendet wird. Sofern der Server also nicht explizit angiebt das die Zeit genau ist, muss sie es nicht sein. Du kannst solche Server auch selbst basteln mit den Indis, siehe dazu TIdTimeServer.