.: Atomuhr :.

[Chrissi91]

Hi ,

da ich in einigen Programmen eine Atomuhr benötige, habe ich einfach mal sowas programmiert. Es ist eigentlich sehr simple. Ich frage die Atomzeit über das Internet ab und zeige sie an.
So richtig Sinn hat das Programm nicht , aber wenn jemand den Sourcecode haben will, posten ich ihn natürlich gerne.

Chrissi91

Aktuellste Version: 1.1.0

[faux]

Ist das ein Fehler der DP, oder rückst du Code generell nur spartanisch ein?

[Matze]

Eine Frage dazu (habe mir das Programm nicht angesehen):
Wenn man sich die Atomzeit aus dem Internet holt, nimmt die Übertragung ja ein wenig Zeit in Anspruch. Dann müsste es doch so sein, dass die Zeit, die dein Programm verarbeitet etwas nach geht, oder ist dies nicht der Fall?

[Jelly]

Hi Chrissi,

ein paar generelle Einwände hätt ich da aber schon:


1.

Zitat von Chrissi91:

Delphi-Quellcode:

edit1.text:=IdHTTP1.Get('http://mlutime.uni-halle.de/cgi-bin/meinberg.cgi'); 
label1.caption:=copy(edit1.Text,447,10); 
label2.caption:=copy(edit1.Text,458,8);

Was machst Du denn wenn die Uni aus Halle morgen eine neue Seite mit neuem Layout ins Netz stellt. Meinst du wirklich dass dann Datum ab Position 447 und Zeit ab 458 zu finden ist.

2.
Warum nutzt Du überhaupt das http-Protokoll um die Zeit eines Servers auszulesen. Du benutzt doch die Indy Komponenten, und es gibt für diesen Zweck extra die TIdTime Klasse. Ist auch eine Demo dabei.

3. Es ist unsinnig jede Sekunde die Zeit auszulesen. Lese sie einmal aus, und solange dein Programm läuft, verfolge die korrekte Zeit direkt programmintern. So sehr wird die rechnerinterne Uhr nicht falsch gehen, solange dein Programm läuft. Alles andere frisst doch nur Resourcen.

4. Wie du hier fragst, so sollte man doch mal überlegen, inwiefern die Angabe bei deinem Verfahren über 1/10 oder gar 1/1000 Sekunden auch nur irgendwie von Bedeutung sein könnten.

[faux]

Ich hätte auch noch eine Frage:
Wieso benutzt du ein TEdit (Edit1), obwohl du es immer auf Visible := False gestellt hast?

Grüße
Faux

[Chrissi91]

Zitat von Jelly:

Zitat von Chrissi91:

Delphi-Quellcode:

edit1.text:=IdHTTP1.Get('http://mlutime.uni-halle.de/cgi-bin/meinberg.cgi'); 
label1.caption:=copy(edit1.Text,447,10); 
label2.caption:=copy(edit1.Text,458,8);

Was machst Du denn wenn die Uni aus Halle morgen eine neue Seite mit neuem Layout ins Netz stellt. Meinst du wirklich dass dann Datum ab Position 447 und Zeit ab 458 zu finden ist.

Ganz einfach, das System nutze ich schon seit Jahr ... da hat sich noch nie etwas geändert

Zitat von Jelly:

Warum nutzt Du überhaupt das http-Protokoll um die Zeit eines Servers auszulesen. Du benutzt doch die Indy Komponenten, und es gibt für diesen Zweck extra die TIdTime Klasse. Ist auch eine Demo dabei.

Werd ich mir mal anschauen.

Zitat von Jelly:

Es ist unsinnig jede Sekunde die Zeit auszulesen. Lese sie einmal aus, und solange dein Programm läuft, verfolge die korrekte Zeit direkt programmintern. So sehr wird die rechnerinterne Uhr nicht falsch gehen, solange dein Programm läuft. Alles andere frisst doch nur Resourcen.

Habe ich schon in der letzten Version geändert. Nur der Code ist noch der alte.

Zitat von faux:

Wieso benutzt du ein TEdit (Edit1), obwohl du es immer auf Visible := False gestellt hast?

In der vorletzten Version hatte ich noch ein Edit als "Variable". Habe ich aber auch schon geändert.

Zitat von Matze:

Wenn man sich die Atomzeit aus dem Internet holt, nimmt die Übertragung ja ein wenig Zeit in Anspruch. Dann müsste es doch so sein, dass die Zeit, die dein Programm verarbeitet etwas nach geht, oder ist dies nicht der Fall?

Ja, aber das ist bei jedem Rechner unterschiedlich Bei einem 56 K Modem und einem Pentium 1 Rechner müsste ich schon 3 Sekunden dazu rechnen bei einem 3,6 GHz Rechner mit DSL 6000 sinds aber nur ein paar 100stel Sekunden

Chrissi91

[Jelly]

Zitat von Chrissi91:

Ganz einfach, das System nutze ich schon seit Jahr ... da hat sich noch nie etwas geändert

Na dann bin ich ja beruhigt.

[MathiasSimmack]

Ich merke mal an, dass das DateTime-Sample in den Win32-API-Tutorials (Kapitel "System") einen Weg zeigt, die Zeit von Servern aus dem Internet zu lesen. Inkl. Auswahl des Servers aus einer Liste in einer INI-Datei. Vielleicht wäre das ja ein Punkt für eine der nächsten Versionen.

[Chrissi91]

Nehme ich gerne mit auf. Hab ich wenigstens eine Beschäftigung bis zum Wochenende ...

[TeronG]

da möcht ich mal an Luckies Atomuhr verweisen ... mit so richtig Serverwahl, Zeitserver & Co.

[Chrissi91]

Link wäre nicht schlecht