Atomzeit

[Basic-Master]

Hi,
ich weiss, es gibt hier irgentwo n theard, wo drinsteht, dass man die atomzeit mit der komponente 'NMTime' irgentwie auslesen kann, aber ich hab diese komponenten nicht... gibts nicht irgentwie ne alternative?

[Luckie]

Selber machen oder die Indy-Komponenten nehmen.

[Basic-Master]

hmm und wie? ich hab keine ahnung von indy...

[Darty]

Gegenfrage: Woher bekommst Du die Atomzeit ??

[Basic-Master]

Antwortsatz: http://www.uni-koeln.de/bin2/zeit1

[BungeeBug]

Hi,
is ganz ganz einfach :P
Du brauchst nur die IdTime-Komponente und nen TimeServer (googlen)!

Delphi-Quellcode:

IdTime1.Host:='Dein Server';
IdTime1.Port:= <Der passende Port>;
IdTime1.SyncTime;
IdTime1.Disconnect;

konnte man aber auch selbst herausbekommen wenn man sich nen bissel anstrengt ... gell?

MfG BungeeBug

[Basic-Master]

hmm, da kommt dann n socketfehler... was kann ich tun, damit der nicht auftritt?

[BungeeBug]

na so langsam glaub ich du hast den Sinn und Zweck von dem Forum nicht verstanden ... wenn ich will das einer hingeht und mir nen Prog schreibt dann such ich mir nen Programmierer und der bekommt Geld dafür (den kann man dann auch an meckern wenns nciht geht), hier gehts allerdings darum das Leute ihre Frage stellen und die andern Versuchen die so gut wie möglich zu beantworten nur wenn du nur schreibst -> schön...socket fehler <- dann kann dir wohl keiner helfen .... also bitte scheib mal ne gescheite Aussage und dann will ich auch weiter gucken was da faschgelaufen ist.

MfG BungeeBug

[Darty]

Moin BasicMaster,

mit der Gegenfrage wollte ich Dir damit helfen dass Du siehst was zu tun ist. Du musst jetzt versuchen die Seite http://www.uni-koeln.de/bin2/zeit1 in Dein Programm einzulesen und die darin stehende Zeit herauslesen. Ich kann es jetzt auch leider nicht probieren da ich Delphi nicht gerade zur Hand habe. Aber wie man HTML Seite einliest bzw QuellText einliest und verarbeitet bzw aus dieses Daten entnehmen kann steht sicher einiges im Forum darüber.

[Luckie]

D_A_R_T_Y!!!! :shock:

Was war den das jetzt? Wozu gibt es Zeit-Server im Internet? :roll:

[Darty]

Zitat:

Zitat von Luckie

D_A_R_T_Y!!!! :shock:

Was war den das jetzt? Wozu gibt es Zeit-Server im Internet? :roll:

oops wie wo was ? :shock:
Zeit Server im Internet ? So etwas dass nach der Atom Uhr läuft ? Sorry ich habe nicht mal ne Armbanduhr :mrgreen:
Ok, kannst mehr zu Zeit-Server schreiben ?

Ich habe ja nur sagen wollen, da er von der Seite die Zeit haben wollte :angle2:

[Luckie]

Na ja, Zeitserver stellen die Atomzeit zur Verfügung, die man sich von ihnen holen kann. Siehe mein Programm Internet-Time von meiner HP.

[BungeeBug]

und hier sind mal nen paar für euch zum Spielen :P

ntp0.fau.de
ntp1.fau.de
ntp2.fau.de
ntp3.fau.de
ntps1-0.cs.tu-berlin.de
ntps1-1.cs.tu-berlin.de
ptbtime1.ptb.de
ptbtime2.ptb.de
rustime01.rus.uni-stuttgart.de

Laufen alle auf dem standert Port

und die sollten auch mit dem von mir geposteten Code funktionieren.

MfG BungeeBug

[Basic-Master]

thx :D hier ist mein code, der funktioniert:

Code:

IdTime1.Host:='ntps1-0.cs.tu-berlin.de';
IdTime1.SyncTime;
txt.text := timetostr(time);
IdTime1.Disconnect;

[Darty]

Na Luckie, wusste doch dass was in der Schublade hast :mrgreen:
Nur mit API wird Basic Master nicht weit kommen :angle2:

Hier noch die Zeit Server Liste vom Luckie "geliehen" ..

Code:

ntpserv.fh-magdeburg.de
ptbtime1.ptb.de
ntp2.ptb.de
ntp1.ptb.de
ntp1.t-online.de
ntps1-0.cs.tu-berlin.de
ntps1-1.cs.tu-berlin.de
ntps1-1.uni-erlangen.de

Müsstest dann mit dem von Bungeebug beschriebene Lösung hinbekommen.

Nachtrag: Oops zu spät. Aber egal ;)