Datum aus dem Internet

[himitsu]

Dann leite ich deine Anfrage an den NTP-Server um, an meinen Eigenen (TIdTimeServer), und geb dem die falsche Zeit.
Ist nur eine kurze Zeile dafür nötig, damit Windows das für mich macht.

Wenn die Zeit im Windows nicht verstellt werden darf, dann nimmt man dem Benutzer die Rechte dafür weg.


Und wenn du nichtmal verraten willst, was dieses NMTime1 eigentlich ist, kann dir kaum einer helfen.

[Furtbichler]

NMTime erinnert mich an NetMaster, irgensone schrullige Komponentenschießmichtot von Delphiannodazumal (um es mal ganz präzise zu formulieren).

[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