Uhrzeit unabhängig von Systemzeit laufen lassen

[dopeline]

Hallo!

folgendes problem:

die uhrzeit auf den schulrechnern ist dauernd falsch, ich habe aber keine rechte die uhr zu ändern. deshalb möchte ich ein kleines progie coden, welches die aktuelle zeit aus dem netz holt und dann in einem label die "aktuelle" zeit weiterlaufen lässt, ohne jede sekunde wieder die zeit aus dem netz zu holen...

die zeit aus dem netz zu laden ist kein problem.
angenommen, ich hole mir die aktuelle internetzeit mit der IdTime komponente.

wie stelle ich es jetzt an, das von dieser zeit, diese in dem label weiterläuft?


Gruß, dopeline

[AnTiPrimaTe]

Lass doch ein Timer (TTimer) laufen, der in einem 1 Sek. Intervall eine Sekunde auf die geholte Zeit draufrechnet und das Ergebnis anzeigt.
Wäre das was?

[Basilikum]

das mit dem Timer wird sehr ungenau.....

verwende die Differenz zwischen der Systemzeit und der "wirklichen" Zeit aus dem Internet:

Code:

Ti Zeit aus dem Internet
Ts Systemzeit
Td Differenz

Einmal ausführen:
Td = Ts - Ti

in Label dies anzeigen:
(Ts - Td)

[Wheelie]

der Timer ist aber ziemlich ungenau ... nimm lieber den SuperTimer (gibt es aber glaube ich nur bis Delphi 4)!

[Luckie]

Was ist ein SuperTimer? :shock: Brauch ich dazu 5 Gramm Kryptonit um ihn zu betreiben oder läuft der auch so? :mrgreen:

[dopeline]

@ Basilikum

danke für den tip!

aber irgendwie bekomme ich das nicht umgesetzt... nehm ich da einen timer?

kann das vielleicht jemand in ein codebeispiel packen? das wär sehr nett...


Gruß, dopeline

[dopeline]

Es klappt!

Delphi-Quellcode:

var Ti,Ts,Td:TDateTime;

procedure TForm1.AktualisierenClick(Sender: TObject);
begin
 IdTime1.Host:='ntps1-0.cs.tu-berlin.de';
 Ti:=IdTime1.DateTime;
 IdTime1.Disconnect;
 Td := Ts - Ti;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ts:=now;
Label1.Caption:=TimeToStr(Ts - Td);
end;

Gruß, dopeline

[Basilikum]

ich kenne die Indys nicht, deshalb wird der Code eher symbolisch:

im Form:

Delphi-Quellcode:

  [..]
  Private
    _TimeDelta : TDateTime;
  [..]

bei Programmstart:

Delphi-Quellcode:

[..]
Var
  InternetTime : TDateTime;
  [..]
Begin
  [..]
  InternetTime:={Indy-Get-Time}

  _TimeDelta:=Now() - InternetTime;
  [..]

im Timer zur Aktualisierung des Labels:

Delphi-Quellcode:

  [..]
  MyLabel.Caption:=TimeToStr(Now() - _TimeDelta);
  [..]

[Lefko]

ca. so:

Delphi-Quellcode:

procedure timer1.ontimer(self);  //intervall = 1000 ms
var Systemzeit, InetZeit, Differenz : TTime;
begin
Internetzeit := Zeit_aus_Internet;
Differenz := Systemzeit - Internetzeit;
Label1.caption := TimeToStr(Systemzeit - Differenz);
end

(echtzeit-geproggt, kein gewehr ;) )

MfG Lefko

//Edith: ok, gleich drei lösungen..... :roll:

[dopeline]

Vielen Dank für eure Hilfe!!!

Gruß, dopeline

PS: kann mir jemand vielleicht noch kurz ne auskunft geben? mein form hat den borderstyle bsNone und es ist gerade mal so groß, wie das label mit der zeit + einen button. sprich, die caption-leiste ich nicht sichtbar. wie kann ich durch klicken und ziehen des labels das fenster verschieben?