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

[songfuqiang]

在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的错误,请问大家是怎么处理这种错误的?

[songfuqiang]

自己顶..

[hsmserver]

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

[ztj007]

TClientSocket的ClientError:

ErrorCode :=0;

[liuyangsl]

一般都是提示用户连接失败之类的。
对于不严中的异常直接忽略不显示。

[oushengfen]

TClientSocket的ClientError:

ErrorCode :=0;

要处理这个，否则程序运行会有问题

[UnkownState]

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

[masterjames]

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