求助,如何捕捉通信异常?

Question

以下是我写的客户端socket连接服务器端socket的一段程序,如果没有连接上捕捉异常.
  clientsocket1.Close;
  clientsocket1.Host :=trim(flatipedit1.Text);
  try
   clientsocket1.Open;
  except
   showmessage('连接失败!');
  end;
上面的程序不能实现捕捉异常的功能.请问各位高手,应该如何该动呀?

Answer 1

是异步的Socket，这里不会抛出异常，会产生OnError事件。
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
//判断ErrorCode是什么错误
    ShowMessage('连接失败');
    ErrorCode:=0;
end;