idicmp ile ping sorunu

[aveysel]

Arkadaşlar;

delphi7 deki indy menüsündeki icmp ile ping yollamaya çalışıyorum, eğer internete bağlıysam ve host u doğru yazdıysam program sorunsuz çalışıyor ancak hostu yanlış yazdıysam veya .net e bağlı değilsem socket 11001 hatası alıyorum, bu hata mesajını nasıl iptal edebilirim ?

icmp nesnesinin reply kısmına yazdığım koduda aşşağı yazıyorum.

Kod: Tümünü seç

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
  var
  s:string;
begin
{$i-}
  case AReplyStatus.ReplyStatusType of
  rsEcho:
  begin
  s:=AReplyStatus.FromIpAddress+'Cevabi: ';
  s:=s+ 'bayt='+inttostr(AReplyStatus.BytesReceived);
  s:=s+' sure';
    if (AReplyStatus.MsRoundTripTime=0) then
    s:=s+'<1'
    else
    s:=s+'=';
    s:=s+inttostr(AReplyStatus.MsRoundTripTime)+'Ms';
    s:=s+'TTL='+inttostr(AReplyStatus.TimeToLive);
    s:=s+'Sira='+inttostr(AReplyStatus.SequenceId);
    ListBox1.Items.Insert(0,s);
    end;
    rsTimeOut:
    ListBox1.Items.Insert(0,'Istek Zaman Asimina Ugradi');

    rsErrorUnreachable:
    ListBox1.Items.Insert(0,AReplyStatus.FromIpAddress+ 'in cevabi:  Ulasilamaz');

    rsErrorTTLExceeded:
    ListBox1.Items.Insert(0,AReplyStatus.FromIpAddress+' in cevabi: TTL sayisi asildi');

     rsError:
     ListBox1.Items.Insert(0,'Genel Hata');
  //showmessage(0,+'HATA');

  end;
{$i+}
end;
end.

[mussimsek]

Kodu try except bloğu içine al.

Kod: Tümünü seç

try
 {kodun}
except
end; {try}

Kolay gelsin.