编程论坛 » Delphi论坛 » 如何避免ClientSocket控制在服务器不存时发生的错误

hackergirl 发表于 2008-5-1 22:59

如何避免ClientSocket控制在服务器不存时发生的错误

请问如何避免ClientSocket控制在服务器不存时发生的错误.

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ClientSocket1.Close;
end;

我在On Error 事件中添加 ClientSocket1.Close; 还是不行.
我应该怎样做呢?

hackergirl 发表于 2008-5-1 23:07

事件搞错了.应该是以下这段代码

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ClientSocket1.Close;
end;

同时问题也解决了.

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ErrorCode:=0;             //把些变量赋为0就不会出现错误提示了.
  ClientSocket1.Close;

end;

查看完整版本: 如何避免ClientSocket控制在服务器不存时发生的错误