为什么无法捕获ClinetSocket的异常?

Question

try
    ClientSocket1.Active:=true;
except
    showmessage('error');
end;
  但还是会出来ESocketError异常，'Asynchronous socket error 10061'。有什么办法捕获这个异常，不让这个异常出来呢？

Answer 1

在IDE中运行会出来异常，如果在外面直接运行程序则不会————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

我是在外面直接运行exe的，但还是会出来！

Answer 3

方法一：
procedure TForm1.ClientDataSet1ReconcileError(DataSet: TClientDataSet;
  E: EReconcileError; UpdateKind: TUpdateKind;
  var Action: TReconcileAction);
beginend;
如果ClientDataSet1出现异常会触发ReconcileError事件
方法二：
try
 ClientDataSet1.Open;
except
 on e:exception do
 showmessage(e.message)  //显示异常信息
end;

Answer 4

增加clientsocket1的onClientError事件处理.
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
    ErrorCode:=0;
end;

Answer 5

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
    ErrorCode:=0;
             case ErrorEvent of
               eeGeneral://错误不在以下几种情况时；
               begin
                   showmessage('发生其他错误');
                   Exit;                   
               end;
               eeSend:   //发送数据时出错
               begin
                   showmessage('发送数据错误');
                   Exit;   
               end;
               eeReceive://接收数据时出错
               begin
                   showmessage('接收数据错误');
                   Exit;
               end;
               eeConnect,eeLookup://不能定位服务器或者连接出错
               begin
                   showmessage('不能定位服务器或者连接错误');
                   Exit;
               end;
               eeDisconnect://关闭连接时出错,不进行处理
               begin
                   showmessage('关闭连接时错误');
                   Exit;
               end;end;