获得空闲端口

最新推荐文章于 2022-11-17 19:42:50 发布

grayguygg

最新推荐文章于 2022-11-17 19:42:50 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

文章标签： integer socket stream function tcp

本文链接：https://blog.youkuaiyun.com/grayguygg/article/details/1726713

本文介绍了一个用于Delphi的函数GetFreePort，该函数能够查找并返回一个未被使用的端口。通过使用Winsock2库，此函数支持TCP和UDP协议，并能够从指定的起始端口号开始搜索。

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

uses winsock2;
//获取一个空闲的端口
function GetFreePort(ABeginPort: Integer; const ATCP: Boolean = false): Integer;
var
Wsd: TWSAData;
S: Integer;
SockAddr: TSockAddrIn;
begin
Result := ABeginPort;
if WSAStartup(MAKEWORD(2, 2), Wsd) <> 0 then
Exit;
try

   if ATCP then
     S := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)
   else
     S := Socket(AF_INET, SOCK_DGRAM, IPPROTO_IP);

if S = SOCKET_ERROR then
Exit;

   SockAddr.sin_family := AF_INET;
   SockAddr.sin_addr.S_addr := inet_addr(pchar(GetIP(false)));
   SockAddr.sin_port := htons(ABeginPort);
   while bind(S, @SockAddr, SizeOf(SockAddr)) = SOCKET_ERROR do
   begin
     inc(ABeginPort);
     SockAddr.sin_port := htons(ABeginPort);
   end;
   closesocket(S);

finally
Result := ABeginPort;
end;
end;