Du könntest den
TCP Port "
Echo" (=7) öffnen.
Du sendest deine aktuelle Uhrzeit und empfängst sofort das Echo.
Delphi-Quellcode:
var jetzt : TDateTime;
begin
jetzt := SysUtils.Now;
// Uhrzeit binär senden, Umwandlung in einen String nicht notwendig
sendestream.WriteBuffer(jetzt, sizeof(jetzt)); // 8 Bytes
Wenn du das Echo empfangen hast, dann wird die Differenzzeit ausgerechnet und angezeigt.
Sollte die Differenzzeit über einem best. Limit liegen, dann hast du ein Verbindungsproblem.
Das gleiche Spielchen lässt sich auch über UDP durchführen.
Im Internet werden wahrscheinlich einige UDP Pakete verloren gehen.