下面的程式已经做了错误处理，但SERVER突然断电还是会让CLIENT发生错误， 是否程式还有哪里没有处理到。请指教！    procedure TFrmClient.ClientSocket1Connect(Sender: TObject;   Socket: TCustomWinSocket); begin Viewinfos('[信息] 已经成功连接到服务器[' + IpAddress +']'); tryconnect.Enabled := false; end;    procedure TFrmClient.ClientSocket1Error(Sender: TObject;   Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;   var ErrorCode: Integer); begin try   closesocket(ClientSocket1.socket.sockethandle);   case ErrorEvent of    eeConnect        :      begin         Socket.Close;      end;    eeDisconnect:       begin         Socket.Close;       end;   end;   Viewinfos('[信息] 连接服务器失败系统将在5秒后再次尝试连接...');   ErrorCode := 0;   tryconnect.Enabled := true; except   Viewinfos('[信息] 连接服务器失败系统将在5秒后再次尝试连接...');   ErrorCode := 0;   if not tryconnect.Enabled then   begin     tryconnect.Enabled := true;   end; end; end;    procedure TFrmClient.ClientSocket1Disconnect(Sender: TObject;   Socket: TCustomWinSocket); begin Viewinfos('[信息] 已经断开与服务器[' + IpAddress + ']的连接'); tryconnect.Enabled := true; end;    procedure TFrmClient.FormClose(Sender: TObject; var Action: TCloseAction); begin   tryconnect.Enabled := false;   ClientSocket1.Close;   Application.OnException := nil; end;    procedure TFrmClient.TryConnectTimer(Sender: TObject); begin   try     Clientsocket1.Close;     ClientSocket1.Open;     ClientSocket1.Socket.Lock;   except     //   end; end;    procedure TFrmClient.AppException(Sender: TObject; E: Exception); begin try   tryconnect.Enabled := false;   clientsocket1.Active := false;   ClientSocket1.Close;   tryconnect.Enabled := true; Finally   viewinfos('[信息] 有错误发生但已经被处理,一切运行正常...');   if not tryconnect.Enabled then   begin     tryconnect.Enabled := true;   end; end; end;    procedure TFrmClient.FormCreate(Sender: TObject); begin   Application.OnException := AppException; end;     發表人 -

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.