神啊救救我吧 ：《Clientsocket的问题》

Question

神啊救救我吧 ：《Clientsocket的问题》delphi用Clientsocket连接的时候发生10061和10060错误
官方解释是“服务端没有运行或者不在线”
而且我已经ErrorCode:=0了还是会报告错误？
谁可以解决这个问题啊？
我到国外网站只找到了错误解释；没有找到解决办法源码如下：
（当服务端运行的时候正常；服务端关闭就报告10061错误）
procedure TForm1.FormCreate(Sender: TObject);
var
  remotehost:string;
begin
 // timer1.Interval :=3000;
 // ClientSocket1:=tClientSocket.Create(self);
  remotehost:='192.168.71.199';
 // clientsocket1.Host :=remotehost;
  clientsocket1.Address :=remotehost;
  clientsocket1.Port :=17951;
  clientsocket1.active:=true;
end;procedure TForm1.ClientSocket1Error(...);
begin
   ErrorCode:=0 //清除错误
end;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Answer 1

使用结构化异常处理
你应该在Delphi区问