exception / socket error

Prøv nedenstående.

Uses
  IdException

Try
  IdIcmpClient1.Host := Trim(Edit1.text);
  IdIcmpClient1.Ping;
Except
  On E : EIdSocketError do
    ShowMessage('Message: ' + E.Message + ', LastError: ' + IntToStr(E.LastError));
end;


// Rocco

Det virkede ikke :( ... den kører stadig bare den gamle fejl og ikke min .. .

Hvad er den "gamle" fejl?

EldSocketError ..

EldSocketError - SocketError#11001

Som jeg forstår det, bliver fejlen ikke fanget af "Except". Er det korrekt?

Ja ligenøjagtigt ... det er lige som om den ikke "opdager fejlen"

begin
Try
IdIcmpClient1.Host := Trim(Edit1.text);
IdIcmpClient1.Ping;
except
on E: EIdException do Showmessage('Fejl');
End

Stoney

Virkede ikke stoney...

Hvis der bliver tastet noget "sludder" i edit1 er vel heller ikke en fejl.
Du kan jo pinge navne.

Stoney

Som standard vil Delphi altid stoppe kørsel i den programlinie som udløser fejlen, når man kører sit program inde i Delphi.
Prøvet at sætte et breakpoint i "Except"-delen. Når fejlen opstår, så prøv at trykke F9 (run) for at checke om du når dit breakpoint. Det er muligt at du skal trykke F9 flere gange.

Den stopper men viser ikke hvor langt den nåede hopper bare fra unit1 og i labelpinger.

labelpinger.dpr og står ved end; linien :(

Hvilken Delphi version bruger du?

7 Enterprise

Jeg har lige lavet et eksempel, i Delphi 7 Prof., som fint viser en fejldialog.
Vil du ha' koden at kigge på?

jo tak ..

Det er et mega simpelt eksempel.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdIcmpClient1: TIdIcmpClient;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Uses
  IdException;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Try
    IdIcmpClient1.Host := Trim(Edit1.text);
    IdIcmpClient1.Ping;
  Except
    On E : EIdSocketError do
      MessageDlg(E.Message, mtError, [mbOK], 0);
  end;
end;

end.

Prøv dette simple program - kør det evt. uden for Delphi.

Jeg vrøvler ... det er 6 Enterprise jeg har :( .. do nu vågnede jeg ...

Det var den stadig ikke glad ved ... prøvede både i delphi og udenfor ... inden i delphi var det den normale fejl udenfor fik jeg hvis din fejl ... Error ... socketerror 11001

Points yil rocco ... send svar :) Mange tak for hjælpen det var kanon !

OK. Fint at det virker...

// Rocco