Fehlerbeseitigung von PING-Fehlern

[Bluemeus]

Hallo,

ich habe die Indy-ICMP-Komponente verwendet um pings zu senden. dies klappt auch ohne probleme, aber ich erhalte nach Pingfehlern(aber auch erst nach 10 oder mehr fehlversuchen) eine MsgBox in dem ein SocketError steht.

Könte mir jmd. verraten, wie ich diese fehlermeldung abfangen bzw. gar nicht erst anzeigen lassen kann?


MfG Blue

[Dani]

Hi,

Indys lösen bei Fehlern Exceptions aus. Die kannst du mit einem try...except Block abfangen.

Delphi-Quellcode:

begin
  //Pseudocode
  IdPing1.Host := 'www.delphipraxis.net';
  try
   IdPing1.DoPing;
  except
   //Dieser Code wird ausgeführt wenn der Ping fehlschlägt
   On E: Exception do
    begin
     If E is ESocketError then HandleSocketError
      else UnhandledError;
    end; 
  end;
end;

[Bluemeus]

DANKE!!! (für die SUPERSCHNELLE AW!!! )


aber da wäre noch was ... ich find leider per suche nix darüber.

problematisch ist, dass bei fehlschlagendem ping die anwendung freezed. die freezetime scheint dabei dem timeout zu entsprechen, welches bei 3 ping-versuchen 1500 ms beträgt.

Wie kann ich den Ping in einen neuen thread lagern?!

[Dani]

Du musst in deinem Thread-Objekt eigentlich nur eine neue Instanz von TIdPing (heißt es so?) anlegen.

Delphi-Quellcode:

type
  TPingOnceThread = class(TThread)
   private
    Pinger: TIdPing;
    FFinished: Boolean;
    FHostReachable: Boolean;
    FPingTime: Integer;
   public
    procedure Execute; override;
    constructor Create(HostAddr: String; CreateSuspended: Boolean = false);
    destructor Destroy; override;
   published
     property Finished: Boolean read FFinished default false;
     property HostReachable: Boolean read FHostReachable default false;
     property PingTime: Integer read FPingTime default -1; 
   end;

implementation


constructor TPingOnceThread.Create(HostAddr: String; CreateSuspended: Boolean = false);
begin
  inherited Create(true);
  FreeOnTerminate := false;
  Pinger := TIdPing.Create;
  Pinger.Host := HostAddr;
  If not CreateSuspended then Resume;
end;

destructor TPingOnceThread.Destroy;
begin
  Pinger.Free;
end;

procedure TPingOnceThread.Execute;
begin
 try
  FPingTime := Pinger.DoPing; //angenommen die Methode DoPing liefert das Ergebnis
  FHostReachable := true;
 except
  {Exception behandeln oder ignorieren}
 end;
 FFinished := true;
end;

Alle Angaben ohne Gewähr

[Bluemeus]

Ich muss da Problem neu aufrollen ...

ich hatte den ersten SC nicht getestet. und ich muss sagen, er funzt nicht! Er findet weder ESocketError noch HandleSocketError...

nunja ... ich poste mal den SC in der Hoffnung jmd kann mir helfen!

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ...
  IdIcmpClient, IdBaseComponent,
  IdComponent, IdRawBase, IdRawClient, IdException, ... ;

...

begin

  { --- Alle xx Sekunden einen Ping senden um auf eine Internetverbindung zu prüfen --- }
   try
    pinger.Ping('a');
   except
    On E: Exception do
     if E Is IDException.EIdSocketError then
       begin
         Showmessage('SOCKETERROR');
       end
     else Showmessage('ELSE')
   end;
end;

So weit geht es, aber mir ist es nicht möglich, den Fehler "SocketError #10011" (glaube ich war es) abzufangen ...

MfG bLuE

[Bluemeus]

Kann mir den niemand sagen, wie ich die exception abfangen kann?

[Dani]

Hi,
Ich seh da kein Problem... dieser Code funktioniert bei mir wie erwartet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ICMP.Host := 'www.delphipraXXXXXXXXis.de';
 try
  ICMP.Ping('Delphi');
  Memo1.Text := 'Ping: ' + IntToStr(ICMP.ReplyStatus.MsRoundTripTime);
 except
  On E: Exception do
   Memo1.Text :=  E.ClassName + #13#10
                + E.Message;
 end;
end;

Nur wenn das Programm in der IDE ausgeführt wird, erscheint der Exception-Dialog noch. Das Verhalten der IDE bei Exceptions kann man in D6 unter Hauptmenü => Tools => Debugger-Optionen ändern.

[Bluemeus]

Danke, dass war die Lösung ... hatte nur icht gechecked, dass der error da,it gehandled wird ... dacht man beötigt dieses HandleSocket ...


Danke!

Zitat von Dani:

Hi,
Ich seh da kein Problem... dieser Code funktioniert bei mir wie erwartet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ICMP.Host := 'www.delphipraXXXXXXXXis.de';
 try
  ICMP.Ping('Delphi');
  Memo1.Text := 'Ping: ' + IntToStr(ICMP.ReplyStatus.MsRoundTripTime);
 except
  On E: Exception do
   Memo1.Text :=  E.ClassName + #13#10
                + E.Message;
 end;
end;

Nur wenn das Programm in der IDE ausgeführt wird, erscheint der Exception-Dialog noch. Das Verhalten der IDE bei Exceptions kann man in D6 unter Hauptmenü => Tools => Debugger-Optionen ändern.