Ping/Latency/MS ermitteln

[Gast]

Hiho,

ich nerve euch schon wieder :lol: ... kann mir vielleicht jemand sagen wie ich den Ping von meinem eigenen Recher ermitteln kann ? Habe wirklich SEHR Lange hier im Board und bei Google gesucht aber so richtig was gefunden ne. Weiß auch nicht genau wie das heißt, denn bei CS/HLSW ist es der Ping bei manchen Games die Latency etv.

Falls jemand nicht weiß was ich meine, dann gucke mal HIER. Da ganz rechts oben unter "HTN2 Beta Runde2" .. das mein ich.

Kann mir Bitte jemand die paar Zeilen schicken, damit ich sehe wie ich es machen kann ? Wäre echt sehr nice. :thumb:

Gr33tz!
Tigerhead

PS: Noch einmal Sorry, bin mir sicher, dass es dazu schon Themen gibt aber habe wirklich nicht das passende gefunden..

[StanY]

Naja, eigentlich ist das ja nur die Zeit, bis dein Befehl zurück kommt.

Also, du sendest ein PING Befehl und stoppst die Zeit. Wenn PONG kommt wieder die Zeit stoppen und vergleichen und schon hast du deinen Ping.

[Gast]

Verstehe kein Wort als relativer Delphi Anfänger ... :/

[Aenogym]

hi,

also. dein programm sendet einen ping befehl (geht zum beispiel mit der indy komponente TidICMP). der befehl kommt am server an. der server sendet eine antwort (PONG genannt) an deinen rechner zurück. die zeit, die zwischem dem absenden des PING und dem ankommen des PONG liegt, ist deine latency zu diesem server.

die zeitangabe, die bei HTN2 dort oben rehcts steht, ist wohl die zeit zwischen abgesendeter anfrage zur website von deinem rehcner aus, bis zum empfang der generierten seite auf deinem rechner.

Aenogym

[Gast]

Kannste mir vielleicht einen beispiel code schicken wie ich das mache ?

[Aenogym]

nunja,

TidICMPClient komponente aufs form packen.
und nun zum code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  idicmpclient1.Host := 'www.web.de';  //der server, den du anpingst
  idicmpclient1.Ping('PING');  //der ping befehl
end;

und das in das OnReply-ereignis des idICMPClient:

Delphi-Quellcode:

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  label1.Caption := inttostr(AReplyStatus.MsRoundTripTime);
end;

Aenogym

[Gast]

Okay vielen Dank hat geklappt :)