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

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

本帖最后由 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 。谢谢你的回复！

		自动登录	找回密码
密码			加入

[网络通信] 求助TCP通信问题!（已解决）

相关帖子

浏览过的版块