Delphi中判断TCP端口是否被占用


本文整理自网络,侵删。

 function PortOccupied(const APort:Integer):Boolean; //Delphi中判断TCP端口是否被占用
var
S:TSocket;
WSD :TWSAData;
SockAddrIn:TSockAddrIn;
begin
Result:=False;
if (WSAStartup(MAKEWORD(2,2),WSD)= 0) then
begin
S := Socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
try
if (S <> SOCKET_ERROR) then
begin
SockAddrIn.sin_family := AF_INET;
SockAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
//SockAddrIn.sin_addr.S_addr := inet_addr(PAnsiChar(AnsiString(IP)));
SockAddrIn.sin_port:= htons(APort);
if (Bind(S,SockAddrIn,SizeOf(SockAddrIn))<>0) then
if (WSAGetLastError = WSAEADDRINUSE) then
Result:=True;
end;
finally
CloseSocket(S);
WSACleanup();
end;
end;
end;

相关阅读 >>

Delphi 获取指定年月的周、日数 -weeksinayear、weeksinyear、daysinayear、daysinamonth、daysinyear、daysinmonth

Delphi 采用 tidhttp 访问 https 的网站,采用 tidtcpclient 访问 https 的网站

Delphi 提取字符中的数字

Delphi tserversocket 发送消息之前检查客户端是否仍处于连接状态

Delphi stopprocess 进程关闭函数

Delphi 字符串与二进制数之间的互相转换

Delphi xe3中如何crc验证函数?

Delphi获取网卡mac地址多个方法

Delphi 查找某函数在某个单元

Delphi下的纯pascal的十六进制转十进制

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



打赏

取消

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

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

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

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

评论

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