Socket Error

[jfreak53]

I have a program that I have using the icmp function to ping a couple of ips and a domain. The problem is that every once in awhile it will freeze up the program and give me a socket error box with the error code "11001" and I have to shut it down using the task manager. What I want to do is to encapsulate that error so it will stop freezing on me and either ignore it or popup my own box. How can I do this? I need to place this event handler in some sort of function or procedure so it works for both parts since I'm using this ping in two different areas.

Thanks in advance.

 

[roo0047]

function MyPing: boolean;
//returns false on error  
begin
  try 
    //put your code here;
    result:= true;
  except
    on E: Exception do begin
      MessageDlg('Error: ' + E.Message , MtError, [mbOk], 0);
      //put any other error handling here;
    end;
    result:= false;
  end;
end;

Roo
Delphi Rules!