判断端口是否被使用

最新推荐文章于 2024-12-19 09:45:50 发布

zjm12343

最新推荐文章于 2024-12-19 09:45:50 发布

阅读量418

点赞数

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/zjm12343/article/details/103278333

版权

Delphi 专栏收录该内容

43 篇文章

订阅专栏

function TROMiddleWare.IsPortUsed(aPort: Integer): Boolean;
var
  _vSock: TSocket;
  _vWSAData: TWSAData;
  _vAddrIn: TSockAddrIn;
begin
  Result := False;
  try
    if WSAStartup(MAKEWORD(2, 2), _vWSAData) = 0 then
    begin
      _vSock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
      try
        if _vSock <> SOCKET_ERROR then
        begin
          _vAddrIn.sin_family := AF_INET;
          _vAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
          _vAddrIn.sin_port := htons(aPort);
          if Bind(_vSock, _vAddrIn, SizeOf(_vAddrIn)) <> 0 then
            if WSAGetLastError = WSAEADDRINUSE then
              Result := True;
        end;
      finally
        CloseSocket(_vSock);
        WSACleanup();
      end;
    end;
  except
    Exit;
  end;
end;