相关文章推荐
深情的杯子  ·  colab ...·  6 月前    · 
谦虚好学的茶叶  ·  How to fix ...·  1 年前    · 
if WSAStartup(MAKEWORD( 2 , 2 ), _vWSAData) = 0 then begin _vSock : = Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP); if _vSock <> SOCKET_ERROR then begin _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 then if WSAGetLastError = WSAEADDRINUSE then Result : = True; end ; finally CloseSocket(_vSock); WSACleanup(); end ; end ; end ; View Code