如何捕捉TServerSocket或TClientSocket的错误信息。高手请进

Question

我现在想屏蔽掉Socket组件的错误，我在OnError及OnClientError中都进行了Try错误捕捉，但捕捉到做了处理之后，程序仍然跳出一个错误框，如何将其屏蔽？另外求SocketError代码的中文解释一份。

Answer 1

把事件中的一个参数赋值0.在网吧,忘了具体名字了,好像是errorcode什么的.

Answer 2

procedure TFrmMain.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
   ErrorCode:= 0;
   Label1.Caption := '错误！';
end;

Answer 3

在ClientSocket中，可以在OnError事件中捕捉错误，错误的类型定义在ErrorEvent里面。
如果不想错误显示出来，直接在该事件中写ErrorCode :=0,那么错误将不被显示出来。
在ServerSocket中，可以在OnClientError中捕捉，方法跟客户端一样

Answer 4

>>在OnError及OnClientError中都进行了Try错误捕捉???这显然是乱用,嘿嘿...1,在阻塞方式下,才使用try 抓异常.2,在非阻塞方式下,因为是异常操作,try抓不着异常,组件通过OnError事件把
内部抓住的异常信息传来让你处理.