论坛 › 『 提问交流 』 › 如何循环等待服务器连接

simxinzi 发表于 2010-11-19 21:09:31

如何循环等待服务器连接

TCP函数中如何循环等待服务器连接？

当服务器无法连接或服务器关闭时或服务端程序关闭时循环等待，直到服务器端开启。

haodd 发表于 2010-11-19 21:21:21

做个错误判断 然后再等待啊！~

yeqing880 发表于 2010-11-21 21:46:53

本帖最后由 yeqing880 于 2010-11-21 21:49 编辑

Local $lianjie = 0 ,$connect

TCPStartup()

$MSocket = TCPListen (@IPAddress1,2828,100)

While 1
       
        If $lianjie = 1 Then
        $Recmsg = TCPRecv ($connect,2048,1)
        If @error Then
        MsgBox (0,0,"断开")
        $lianjie = 0
        Accept()
   EndIf
   Else
        Accept()
        EndIf
WEnd

Func Accept()
If $lianjie = 0 Then
$connect =TCPAccept($MSocket)
If $connect <> -1 Then
          $lianjie = 1
    MsgBox (0,0,"已连接")
EndIf
EndIf
EndFunc

hapon 发表于 2010-12-3 03:13:23

记号一下。

查看完整版本: 如何循环等待服务器连接