Uhrzeit von AtomUhr herunterladen

[CalganX]

Wer möchte nicht in seinem Programm eine 100% genaue Uhrzeit haben?
Als erstes solltest du eine neue Applikation erstellen. Dann plazierst du einmal NMTime (Register FastNet), einen Timer und ein Label. Dann schreibst du in die FormCreate-Methode folgendes:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Timer1.Interval := 1000; { ein anderer Aktualisierungswert ist natürlich auch möglich... } 
  NMTime1.TimeOut := 2000; 
end;

Dann in die Timer1.OnTimer:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
  AtomZeit: String; 
begin 
  NMTime1.Host := 'time.nist.gov'; 
  AtomZeit := NMTime1.TimeStr; 
  Label1.Caption := 'Es ist genau '+AtomZeit; 
end;

Natürlich kann man auch diese Informationen so verarbeiten, dass die SystemUhrzeit auf diese AtomZeit eingestellt wird. Das soll hier aber nicht näher beschrieben werden...

posted by Chakotay1308

[edit=sakura]PRE durch DELPHI-Tags ersetzt. Mein Gott, war der Beitrag alt Mfg, sakura[/edit]
[edit=sakura] Mfg, sakura[/edit]