如何解决网络连接异常报错（大家帮忙）

Question

procedure TForm1.FormCreate(Sender: TObject);
 begin
    try
      ClientSocket1.Active :=true;
    Except
       showmessage('服务器维护中，请稍后......');
end;
end;

Answer 1

我记得在TClientSocket里面有一个异常事件（好像是OnError），当网络发生异常的时候会触发它，你可以在里面做你想要的工作

Answer 2

异常错误在message显示完后仍然提示啊，Asynchronous socket error 10061. 怎么才能让他不提示出来啊

Answer 3

错误提示完后,将ERROR的值清为零啊!

Answer 4

在ClientSocket1.OnError中处理，处理完后如果你不希望错误显示出来，就在这个事件中加入：
ErrorCode:=0;

Answer 5

mjcom(不明飞行物)  非常感谢，ErrorCode:=0; 可行。