基 础 函 数 参 考

TCPAccept

允许套接字(socket)的尝试连接.

TCPAccept ( 主套接字 )

参 数

主套接字 由 TCPListen 函数返回的套接字标识(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(0, "", "我的服务器 - 客户端已连接")
        Exit
    EndIf
WEnd

provider with jb51.net (unicode)