cfs43210 发表于 2012-12-30 11:46:52

求助TCP通信问题!（已解决）

本帖最后由 cfs43210 于 2012-12-31 21:09 编辑

AdlibRegister("_Recv")

Func _Recv()
        $recv = TCPRecv($ConnectedSocket, 1024 * 50, 1)
        If @error Then
                         $ConnectedSocket = TCPConnect("192.168.0.200", 65432)
                         If $ConnectedSocket <> -1 Then
                            $sMsg = StringToBinary($mseg, 4)
                            TCPSend($ConnectedSocket, $sMsg)
                         EndIf
        ElseIf $recv <> "" Then
                ;;;;;;;;;;
        EndIf
EndFunc

这样的客户端是不是不停地向服务端发送消息，如果是这样的话，客户端多了而且时间长了，会不会使服务端或客户端出现问题。谢谢！

cfs43210 发表于 2012-12-30 14:52:05

这样的客户端是不是不停地向服务端发送消息，如果是这样的话，客户端多了而且时间长了，会不会使服务端或客户端出现问题。谢谢！

xms77 发表于 2012-12-31 12:31:09

你这个是客户端还是服务端？理论上客户端越来越多，服务端会出现问题的。

cfs43210 发表于 2012-12-31 21:08:07

回复 3# xms77
通过测试，客户端向服务端发送上线就关闭了连接，查测了客户也没再向服务端发送发消息。理论上应没什么问题。之前有问题应该是没加上这句If $ConnectedSocket <> -1 Then 。谢谢你的回复！
页: [1]
查看完整版本: 求助TCP通信问题!（已解决）