串口不能收发中文字符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 串口不能收发中文字符

共有14254人关注过本帖树形打印复制链接主题：串口不能收发中文字符

lihe60

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00

串口不能收发中文字符 发帖心情

Post By：2010/3/30 19:33:00 [只看该作者]

我完全按帮助做的，可以收发字符串，但串口不能收发中文字符。有人遇到我这样的问题吗？

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/3/30 19:44:00 [只看该作者]

帮助

中文字符的收发

在默认情况下，串口不支持中文字符的手法，如果字符串口中包括中文字符，那么必须在发送前将字符串转换为字节数组，在接收端再将接收到的字节数组转换为字符串。

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/3/30 19:58:00 [只看该作者]

在命令窗口测试成功

Dim bty() As Byte
With Ports("COM3")
    bty = .GetBytes("狐表很强大") '转换为字节数组
    .Write(bty, 0, bty.length) '发送字节数组
End With
Output.Show(bty.length)
Dim p As Port = Ports("COM3")
Dim cnt As Integer = p.BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim bty1(cnt - 1) As Byte
    Dim val As String
    p.Read(bty1,0,cnt) '接收字节数据
    Val = p.GetString(bty1) '转换为字符
    '后续处理代码
Output.Show(Val)
End If

lihe60

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2010/3/30 21:06:00 [只看该作者]

我还没有测试过，请问如何在网络下收发信息？帮助里没有提到网络下的使用。

[此贴子已经被作者于2010-3-30 21:08:37编辑过]

baoxyang

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2010/3/31 9:24:00 [只看该作者]

收藏!

下一主题 >> << 上一主题

主题：串口不能收发中文字符