本文整理自网络,侵删。
判断端口(Port)是否被占用 在使用Socks编程时,有时需要判断某个端口是否被占用,也就是是否被其它程序使用。
uses Winsock;
function IsPortUsed(const aPort: Integer): Boolean;var _vSock : TSocket;_vWSAData : TWSAData;_vAddrIn : TSockAddrIn;beginResult := False;if WSAStartup(MAKEWORD(2, 2), _vWSAData) = 0 thenbegin_vSock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);tryif _vSock <> SOCKET_ERROR thenbegin_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 thenif WSAGetLastError = WSAEADDRINUSE thenResult := True;end;finallyCloseSocket(_vSock);WSACleanup();end;end;end;
相关阅读 >>
Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件
学习使用Delphi for android 调用java类库
更多相关阅读请进入《Delphi》频道 >>