Mit Indy Uhrzeit lesen

[Cöster]

Ich hab mir soeben die Indy 9 runtergeladen, weil ich hier gelesen hab, dass man so die Uhrzeit aus dem Internet auslesen kann. Wie muss ich das denn anstellen? Hab hier im Forum nix gefunden.

[monta]

soweit ich weis, benötigst du einen Timeserver mit NTP-Protocol.
Dazu müsste es dann eine NTP-Komponente bei den Indys geben.

[inherited]

Da gibt es auch ein *wunderschönes* beispiel, direkt bei den indys dabei

[Cöster]

Zitat von monta:

soweit ich weis, benötigst du einen Timeserver mit NTP-Protocol.
Dazu müsste es dann eine NTP-Komponente bei den Indys geben.

Es gibt die Komponenten IdNNTP, IdSNTP und IdNNTPServer. Die Komponenten IdTimeServer und IdDayTimeServer gibt es auch. Ich weiß aber nicht, welche ich davon benötige und wie der Quelltext dann aussieht.
Wenn ich auf der Form ein Label, einen Button und die Komponenten IdDayTimeServer(active auf true setze) und IdDayTime platziere bekomme ich durch

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=IdDayTime1.DayTimeStr;
end;

die Zeit der Computeruhr, aber nicht einer Atomuhr. Das bringt mir also nichts. Ich möchte die Computeruhr nicht stellen, ich will lediglich in dem Label die Uhrzeit einer Atomuhr auslesen.

Zitat von inherited:

Da gibt es auch ein *wunderschönes* beispiel, direkt bei den indys dabei

Wo genau gibt es denn diese Beispiel?

[Klaus01]

NNTP - NetworkNewsTransportProtokol
SNTP - SimpleNetworkTimeProtokol

Du suchst wohl SNTP, damit kann auch ein NTP Server abgefragt werden.
Entsprechende Server findest Du hier -> http://www.hullen.de/helmut/filebox/DCF77/ntpsrvr.html

Für Dich dürfte dann die DateTime propertie die richtige für Dich sein.

Grüße
Klaus

[inherited]

Die bespiele findest du im Internet under www.indyproject.org

[Cöster]

Danke, jetzt läuft's. Auf dem Formblatt befinden sich ein Edit-Feld, ein Button und die Komponente TIdSNTP. Hier der Quelltext:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdSNTP1.Host:='129.69.1.153';
  Edit1.Text:=DateTimeToStr(IdSNTP1.DateTime);
end;

Es gibt allerdings immer noch ein Problem:
Wenn ich oft hintereinander auf den Button klicke, hängt sich das Programm irgendwann auf, wahrscheinlich eine Überlastung des Servers, oder so. Was muss ich noch ändern, damit das nicht passieren kann?

[inherited]

Nicht oft hintereinander auf den Button klicken?

[Klaus01]

.. da bei DateTimeToStr die kleinste Einheit eine Sekunde
ist es relativ zweckfrei öfter als einmal pro Sekunde auf den Button
zu drücken.

Grüße
Klaus