Ping

[Maeuschen]

Hallo

Ich wollte mehr oder weniger ein Reaktionsprogramm schreiben, dass wenn ich auf einen Startbutton klicke die Reaktionszeit des Pings angezeigt wird inkl. Auswertung. Ich glaube ich posten mal gleich den Code mit, sonst weiß sicher niemand, was ich überhaupt will ^^; *keine Fachbegriffe beherrscht*

Delphi-Quellcode:

procedure TFormular.BStartClick(Sender: TObject);
begin
  BStart.enabled:=false;  
  PBewertung.visible:=false; 
  try {
Process pr=Runtime.getRuntime().exec("ping ...");}   //Versuch Computer anzupingen
  TUhr.enabled:=true;     
  EReaktion.text:='';     
  EStartzeit.text:='';
  EStopzeit.text:='';
  PBewertung.caption:='';
end;

Wie ich schon oben schrieb wollte ich, sobald ich auf einen Button klicke die Reaktionszeit des Computers in meinem Edit Feld erscheinen lassen inkl. Bewertung.
Nun weiß ich nicht, ob mein Pingbefehl überhaupt richtig ist. Wenn ja, besteht immernoch das Problem, dass er mir mein "end;" nicht annimmt.

Da sich hier so viele Experten auf diesem Gebiet herumtreiben bin ich frohen Mutes und warte auf eine Antwort. Danke schonmal im Vorraus ^^

[Harry M.]

Schau Dir XPinfg an. Findest Du auf meiner HP und ist mit Source OpenSpource. Auf "VCL-Basis".
http://projetilware.homeip.net/

[Klaus01]

schau Dir mal die Komponente TidIcmpClient von Indy an.
Dort kannst Du mit ReplyStatus den Status der Antwort abfragen.
Mit dem Start des pings kannst Du die Systemzeit nehmen (GetTickConut)
Mit OnReply kannst Du die Zeit nehmen die eine Antwort gebraucht hat
um bei Deinem Rechner anzukommen.

Die Differenz der beiden Zeiten ist dann Deine Laufzeit.

Grüße
Klaus

[ibp]

Zitat:

Zitat von Maeuschen

Wenn ja, besteht immernoch das Problem, dass er mir mein "end;" nicht annimmt...

..schau dir mal den try..except/finally ..end an, dann wirst du sehen warum.