delphi socket error 10061 处理代码

Socket Error 10061 表示连接被拒绝。一般情况下是由于目标计算机拒绝连接请求或者目标计算机无法在给定的端口上接受连接。

以下是 Delphi 处理 Socket Error 10061 的示例代码：

var
  clientSocket: TClientSocket;
begin
  clientSocket := TClientSocket.Create(nil);
  try
    clientSocket.Address := '127.0.0.1'; // 更改为目标 IP 地址
    clientSocket.Port := 8080; // 更改为目标端口号
    try
      clientSocket.Open;
      // 连接成功，执行相关操作
    except
      on E: Exception do
      begin
        if (E is ESocketError) and (ESocketError(E).ErrorCode = 10061) then
        begin
          // 连接被拒绝，处理相关逻辑
        end
        else
        begin
          // 其他异常错误，进行相应处理
        end;
      end;
    end;
  finally
    clientSocket.Free;
  end;
end;

在以上代码中，我们创建了一个 TClientSocket 对象，并设置了需要连接的目标 IP 地址和端口号。然后，我们尝试打开连接，并在出现异常时进行处理。如果出现 Socket Error 10061 错误，则说明连接被拒绝，我们可以在相应的异常处理中添加相应的逻辑进行处理。