Datum aus dem Internet

[hathor]

Gerade getestet: Funktioniert!

Wichtig!
SyncTime funktioniert nur, wenn man das Programm mit Rechtsklick "Als Administrator ausführen" startet!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
//BaseDate= '01.01.1900';
  try
    IdTime1.Host := 'ptbtime1.ptb.de';
       Label1.Caption := TimeToStr(IdTime1.DateTime);  
       Label2.Caption := DateToStr(IdTime1.DateTime);
    IdTime1.SyncTime ;
  finally
    IdTime1.Disconnect;
  end;
end;