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执行sql提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”错误

Delphi stringgrid之属性大全

Delphi applicationevents1 webbrowser1屏蔽右键菜单

Delphi 如何编写需要启动参数的Delphi程序

Delphi idhttp登录网站教程代码

Delphi xe5 android 调用 google zxing

wmi技术介绍和应用

Delphi 关于多语言：如何获取当前系统语言

Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight

Delphi idhttp友好错误信息的捕获

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

转载请注明出处：木庄网络博客 » Delphi中判断TCP端口是否被占用