delphi判断端口(Port)是否被占用 在使用Socks编程时，有时需要判断某个端口是否被...

fyxzzyy

使用sock打开端口，失败的话就是已经被占用了
Delphi代码如下！

1. 
   
2. uses Winsock;
   
3. 
   
4. function IsPortUsed(const aPort: Integer): Boolean;
   
5. var
   
6. _vSock : TSocket;
   
7. _vWSAData : TWSAData;
   
8. _vAddrIn : TSockAddrIn;
   
9. begin
   
10. Result := False;
    
11. if WSAStartup(MAKEWORD(2, 2), _vWSAData) = 0 then
    
12. begin
    
13. _vSock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
    
14. try
    
15. if _vSock <> SOCKET_ERROR then
    
16. begin
    
17. _vAddrIn.sin_family := AF_INET;
    
18. _vAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
    
19. _vAddrIn.sin_port := htons(APort);
    
20. if Bind(_vSock, _vAddrIn, SizeOf(_vAddrIn)) <> 0 then
    
21. if WSAGetLastError = WSAEADDRINUSE then
    
22. Result := True;
    
23. end;
    
24. finally
    
25. CloseSocket(_vSock);
    
26. WSACleanup();
    
27. end;
    
28. end;
    
29. end;
    

复制代码