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;

[luisk]

Unit NMTime
Beschreibung
Die Komponente TNMTime wird zum Abrufen der Uhrzeit von Internet-Zeit-Servern, wie in RFC 868 beschrieben, verwendet.

ist ne Komponente aus Fastnet. Ja, uralt !

Gibts da was neueres ?

[Bernhard Geyer]

Zitat von luisk:

Gibts da was neueres ?

Dutzendes. Siehe Link in Post #4