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 :wink:

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

[MathiasSimmack]

Zitat:

Zitat von Chakotay1308

Wer möchte nicht in seinem Programm eine 100% genaue Uhrzeit haben?

Ich ... im Augenblick ... :wink:

Zitat:

´n bissel Text und Code

Habe ich schon mal irgendwo gesehen. Im EDH, glaube ich ... ich will´s nicht beschwören, aber da wären wir wieder beim Thema: Warum Beiträge posten, die es bereits online gibt?

Ja, ich weiß - das Argument ist: die Leute, die hierher kommen, sollen auch hier vieles oder alles finden. Nur -sorry :twisted:!- die Leute, die hier was suchen, kennen auch die anderen Quellen (ich verweise auf mich selbst, als Beweisstück A). Und die anderen werden garantiert nicht den Beitrag lesen, sondern demnächst in einer Sparte die Frage stellen:

"Wie kriege ich eine 100% genaue Atomuhr in mein Programm rein? ... Ach ja, und wie kann ich den Inhalt eines Edits im Label anzeigen?"

Zitat:

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...

Warum nicht?

[Daniel]

Schön wäre es, diesen Beitrag so weit aufzuarbeiten, dass man einen Code-Schnipsel erhält, der bei Ausführung die Systemzeit neu justiert - und dies auf den derzeit verfügbaren Windows-Plattformen (inkl. Berücksichtigung der Recte etc.)


Grüße,
Daniel

[CalganX]

Gut, werde ich machen, habe aber dieses Thema bsiher immer nur vergeblich gesucht...
Chris

[Daniel]

In diesem Zusammenhang wäre es vielleicht auch interessant, weitere Server einstellen zu können; so zum Beispiel der MS-Server "time.windows.com" (der in den ersten Wochen der Windows XP Auslieferung um 15 Minuten falsch ging).

Nicht, dass ich unter allen Umständen sogar die Uhrzeit von Microsoft beziehen will, aber gelegentlich ist eben der eine oder andere Server nicht erreichbar und dann wäre es eben schön, alternativen zu haben.


Grüße,
Daniel

[CalganX]

Gute Idee, ich werde dazu am besten ein Tutorial schreiben...
Chris

[BrainCode]

Zum Thema Time-Server: Ich vertraue immernoch der Physikalisch Technischen Bundesanstalt, deren Zeit als offiziell definiert ist:

ptbtime1.ptb.de
ptbtime2.ptb.de

[Luckie]

Un dirgendwie hab eich das dumme Gefühl der Beitrag ist in der falschen Sparte. Nur weiß ichn icht wohin, da ich nicht weiß, was das ist oder sein soll? Ein Projekt, dann wäre es richtig, ein Beitrag zur Code-Lib, dann wäre es falsch oder gar ein Tutorial? Aber dazu ist es wohl zu kurz geradten, wäre aber auch falsch.

Und zum Thema: Auf meiner HP gibt es das Programm INet-Time, welches genau das macht, nur ohne Komponenten und mit Source.

[Tim.exe]

Ist das MEZ?
Die Anzeige gibt mir die aktuelle Uhrzeit minus 2 Std zurück, also anstatt 12:54:10 -> 10:54:10

[CalganX]

Hi,
dann musst du dir einen anderen Server raussuchen. ;) Oder einfach zwei Stunden drauf addieren. :)

Chris