delphi - 即使我使用 try..except 也会出现异步套接字错误 10049

Question

当我运行我的程序(在调试器/IDE 之外)时，我收到错误异步套接字错误 10049，我不应该收到消息对话框:“错误”吗？请参阅下面的代码

begin
    try
       ClientSocket1.open;
    except
       showmessage('error');
    end;
end;

我做错了什么？

Answer 1

您应该做的是处理 TClientSocket 的 Error 事件，因为这是您能够捕获套接字错误的地方。

ErrorCode 参数是包含 WinSock 错误代码的参数如果你想让Error静默，你可以将ErrorCode设置为0，这将防止抛出异常，之后你可以识别错误是什么并按照你想要的方式处理它

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

   error := ErrorCode; {prevent exception from being thrown}

   ErrorCode := 0;

   if error = 10049 then
     showmessage('asynchronous socket error');
.
.
.


end;

希望这有帮助

盖坦·西里