NTP mit Indy

[BenniP]

Hallo,

ich bin noch ziemlich unerfahren in Delphi und würde gerne meine Systemzeit mit einer Internetzeit abgleichen.
Hab zwar die Indy-Komponente "IdSNTP" gefunden, weiß aber ehrlich gesagt nicht wie ich die verwenden kann. :(

Kann mir jemand dabei behilflich sein?

Besten Dank.

BenniP

[Duffy]

Hallo BenniP,
dann benutze doch die "TIdTime" der Indy Komponenten ....

bye
Claus

[BenniP]

Oh, danke für die schnelle Antwort und hilfreiche Antwort.
die Komponente habe ich gar nicht beachtet. :S

[BenniP]

Jetzt hab ich doch noch eine Frage.

Wie kann ich den Server testen?
Also ob er antwortet und so.

Dankeschön.

BenniP

[supermuckl]

also erstmal herzlich willkommen bei :dp:

ich würde an deiner stelle einfach mal nen breakpoint setzen, an die stelle im code, wo das ereignis eintritt wo der server deinem client antwortet und die zeit übergibt

so in etwa

-> breakpoints setzen mit linksklick ins graue da wo die zeile anfängt von deinem delphicode ;)
wenn der code dann ausgeführt wird bleibt das programm stehen und ein grüner pfeil erscheint am roten breakpoint punkt
-> code angekommen

der nächste schritt würde ihn ausführen ( die zeile )

schrittweises ausführen kannste dann mit den buttons neben dem grünen PLAY symbol machen
und so schrittweise durch den code gehen

wenn das programm pausiert ist kannst du auch auf den meisten variablen deinen mauscursor setzen und warten.. dann wird dir der inhalt angezeigt, soweit wie möglich

[BenniP]

Danke für den netten Empfang.
Ich möchte aber keine Breakpoints setzen, sondern dem Benutzer eine Meldung geben "Der Server reagiert" oder so.

[Duffy]

Hallo BenniP,

Zitat:

Zitat von BenniP

Danke für den netten Empfang.
Ich möchte aber keine Breakpoints setzen, sondern dem Benutzer eine Meldung geben "Der Server reagiert" oder so.

so sollte es funktionieren ...

Delphi-Quellcode:

try
  MeineZeit_etc := TimeClient.DateTime; // TimeClient.DateTime <= da kommt die Zeit her ... 
except
  ShowMessage('Fehler beim lesen des Zeit Servers');
end;
TimeClient.Free;

bye
Claus

[BenniP]

Dankeschön.

[BenniP]

Jetzt hab ich nochmal eine Frage.
:( Leider funktioniert der Code oben zum Fehler abfangen nicht wirklich.
Die Indy-Time Komponente liefert trotzdem einen Delphi-Fehler, so mit Speicher Adresse und dem "CPU-Fenster", ab.

Wie kann ich das verhindern?

Danke

BenniP

[mh166]

Zitat:

Zitat von BenniP

Die Indy-Time Komponente liefert trotzdem einen Delphi-Fehler, so mit Speicher Adresse und dem "CPU-Fenster", ab.

Dem CPU-Fenster zu Folge geh ich mal davon aus, dass du das Programm aus der IDE herausstartest. Da kommt die Exception als Info für den Programmierer trotzdem. Aber wenn du außerhalb der IDE das ganze nochmal probierst, dann kommt nur die Meldung aus dem Except-Block.

mfg, mh166