Delphi 判断端口是否被使用


本文整理自网络,侵删。

 
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;
――――――――――――――――

原文链接:https://blog.csdn.net/zjm12343/article/details/103278333

相关阅读 >>

Delphi实现文件下载urldownloadtofile

Delphi 获取系统启动文件夹路径

Delphi获取机器的mac地址

扩展 Delphi 线程 使之传递参数.(给匿名线程增加参数)

Delphi如何删除数据库重复记录(4种方法)

Delphi exe文件自效验

[译]rad studio 10.4 新变化:面向控件的 vcl 样式管理

Delphi运行时拖拉、改变元件大小

Delphi如何自动重启程序

Delphi里实现获取资源管理器路径以及ie打开网址列表

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...