谈谈delphi中Socket连接失败的异常处理方法

Question

在idhttp,TClientSocket等网络组件中,如果连接不成功,经常会弹出个英文显示的错误界面,请问大家是怎样处理的?
如下程序:
procedure TForm1.Button1Click(Sender: TObject);
begin
try
  idHttp1.Get('http://www.126.com');
except
  showmessage('Error');
end;
end;
若http://www.126.com打不开就会弹出个就会报出10060的错误,请问大家是怎么处理这种错误的?

Answer 1

直接运行exe只显示自己的错误信息

Answer 2

TClientSocket的ClientError: ErrorCode :=0;

Answer 3

TClientSocket的ClientError:   ErrorCode   :=0;要处理这个，否则程序运行会有问题

Answer 4

ClientError event 中加入
ErrorCode := 0;
Socket.close();

Answer 5

 RAISE ;直接运行exe只显示自己的错误信息 ,在调试状态中，是会出错的．