函数参考

TCPAccept

尝试接受一个套接字(socket)连接.

TCPAccept ( 主套接字 )

参数

主套接字 由 TCPListen 函数返回的套接字标识(SocketID).

返回值

成功: 返回已连接的套接字标识(SocketID).
失败: 返回 -1 并设置 @error.
@error: windows API WSAGetError 返回值 (参考 MSDN).

注意/说明


相关

TCPStartup, TCPListen, TCPTimeout (Option), TCPCloseSocket, TCPRecv

示例/演示


;服务器!! 请先运行我 !!!!!!!!!!!!!!!
Local $g_IP = "127.0.0.1"

; 开始 TCP 服务
;==============================================
TCPStartup()

; 创建监听套接字(SOCKET)
;==============================================
Local $MainSocket = TCPListen($g_IP, 65432, 100)
If $MainSocket = -1 Then Exit

;  等待客户端连接
;--------------------
While 1
    Local $ConnectedSocket = TCPAccept($MainSocket)
    If $ConnectedSocket >= 0 Then
    MsgBox(4096,"","我的服务器 - 客户端已连接")
        Exit
    EndIf
WEnd