Delphi 端口判断

最新推荐文章于 2025-02-08 08:30:43 发布

发粪图墙啊

最新推荐文章于 2025-02-08 08:30:43 发布

阅读量437

点赞数

分类专栏： Delphi 文章标签： c#

本文链接：https://blog.youkuaiyun.com/sczhf/article/details/123302139

版权

Delphi 专栏收录该内容

8 篇文章

订阅专栏

该函数用于检查指定的端口是否被使用。通过初始化套接字，尝试绑定到目标端口来判断其是否可用。如果绑定成功，则端口已被占用；反之，则端口可用。该过程涉及WSAStartup、Socket、Bind和CloseSocket等网络编程函数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function PortUsed(Port: Integer): Boolean;
var
  sSocket: TSocket;
  Wsd: TWSAData;
  SockAddrIn: TSockAddrIn;
begin
  if WSAStartup(2, Wsd) = 0 then
  begin
    sSocket := Socket(AF_INET, SOCK_STREAM, 0);
    Result := True;
    try
      if (sSocket <> SOCKET_ERROR) then
      begin
        SockAddrIn.sin_family := AF_INET;
        SockAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
        SockAddrIn.sin_port := htons(Port);
        Result := (Bind(sSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0);
      end;
    finally
      CloseSocket(sSocket);
      WSACleanup();
    end;
  end
  else
    Result := True;
end;