如何捕获socketconnect 异常 ( 积分: 100 )

主窗口mainFrm,数据模块dm,dm包含TSocketConnect控件
问题是:dm.socketconnect连接远程后,如果网络出现异常或断开,如何编写捕获 socketcnnect异常的代码

在OnError中有返回的错误代码你看一下！
10053://软件导致连接退出
10054://连接被重置
10004://操作被中止
10013://访问被拒绝
10014://地址错误
10022://参数错误
10024://打开太多的SOCKET
10035://没有可以获取的资料
10036://操作正在正行中
10037://操作正在进行中
10038://在一个非法的Socket对象上进行操作
10039://目标地址缺失
10040://数据太长
10041://协议类型错误
10042://错误的协议选项
10043://协议不支持
10044://Socket类型不支持
10045://不支持指定操作
10046://协议族不支持
10047://所选用的地址族不在支持之列
10048://地址已经被使用
10049://设置地址失败
10050://网络关闭
10051://网络不可达
10052://网络被重置
10055://缓冲不足
10056://Socket已被连接
10057://Socket未连接
10058://Socket已关闭
10060://超时
10061://连机被拒绝
10064://主机已关机
10065://找到路由
10067://进程太多
10109://类型找不到
11001://主机找不到
对方没有激活一般的ErrorCode是10049或者10060.
捕获后不要忘了：）
ErrorCode = 0;

非常感谢 :hhjjhhjj
但是TSocketConnnect没有OnError事件,我想可以在application.OnException中捕获,但不知道如何获取错误代码(就是你上面提供的 10050,10054....)

WSAGetLastError