udp通信丢失汉字问题？

52479534

最近开发一个通过udp通信的工具，但是发过去的汉字信息总是显示前4，5个字 其他的字都不显示了，不知道为什么？望高手解答~

iftodo

   先把源码帖出来.

52479534

2# iftodo

实际上我用的就是最简单的例子：


; 启动 UDP 服务
;==============================================
UDPStartup()

; 打开 "套接字"
;==============================================
$socket = UDPOpen("127.0.0.1", 65532)
If @error <> 0 Then Exit

$n=0
While 1
    Sleep(2000)
    $n = $n + 1
    $status = UDPSend($socket, "消息计算机 #" & $n)
    If $status = 0 then
        MsgBox(0, "错误", "当发送 UDP 消息时发生错误: " & @error)
        Exit
    EndIf
WEnd

Func OnAutoItExit()
    UDPCloseSocket($socket)
    UDPShutdown()
EndFunc




;;这是一个 UDP 服务器
;;首先启动这个

; 启动 UDP 服务
;==============================================
UDPStartup()

; 绑定一个套接字
;==============================================
$socket = UDPBind("127.0.0.1", 65532)
If @error <> 0 Then Exit

While 1
    $data = UDPRecv($socket, 50)
    If $data <> "" Then
        MsgBox(0, "UDP 数据", $data, 1)
    EndIf
    sleep(100)
WEnd

Func OnAutoItExit()
    UDPCloseSocket($socket)
    UDPShutdown()
EndFunc

l4ever

转换成二进制发过来，再解码。这样就不会丢失字符了
http://www.autoitx.com/forum.php?mod=viewthread&tid=8818

52479534

4# l4ever

感谢您的回答~！
我改成这样以后 还是 接收不全 您看看 是不是还有什么不妥的地方？


; 启动 UDP 服务
;==============================================
UDPStartup()

; 打开 "套接字"
;==============================================
$socket = UDPOpen("127.0.0.1", 65532)
If @error <> 0 Then Exit

$n=0
While 1
    Sleep(2000)
    $n = $n + 1
        $date = StringToBinary("消息测试看看好不好用",4)
    $status = UDPSend($socket, $date)
    If $status = 0 then
        MsgBox(0, "错误", "当发送 UDP 消息时发生错误: " & @error)
        Exit
    EndIf
WEnd

Func OnAutoItExit()
    UDPCloseSocket($socket)
    UDPShutdown()
EndFunc




;;这是一个 UDP 服务器
;;首先启动这个

; 启动 UDP 服务
;==============================================
UDPStartup()

; 绑定一个套接字
;==============================================
$socket = UDPBind("127.0.0.1", 65532)
If @error <> 0 Then Exit

While 1
    $data = UDPRecv($socket, 5000)
    If $data <> "" Then
        MsgBox(0, "UDP 数据", BinaryToString($data,4), 1)
    EndIf
    sleep(100)
WEnd

Func OnAutoItExit()
    UDPCloseSocket($socket)
    UDPShutdown()
EndFunc

sensel

$data = UDPRecv($socket, 5000)
改为：
$data = UDPRecv($socket, 5000, 1)
作用是强制UDPRecv返回二进制数据。

顺便说说，au3对包含汉字的字符串处理一直有问题，测试时需要注意一下。

52479534

感谢各位高手的指点~~~~~~~~~~~~~