| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 3020 人关注过本帖
标题:Winsock [帮忙,Hex和ASCII字符转换]
取消只看楼主 加入收藏
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
 问题点数:0 回复次数:3 
Winsock [帮忙,Hex和ASCII字符转换]
因为是winsock接收,
为什么不能将接收到的ascii弄的跟wpe接收的一样
特殊字符就用点来表示   ....

abcdef....aaaaa......

我自己写的转换函数都转出abcdef  口口aaaaa口.?.

这样的。。
有啥办法啊????

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-12-03 21:43
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
得分:0 
多谢楼上
我的函数是
Public Function GbkStr(ByVal ss As String) As String
On Error Resume Next
Dim x As String
Dim Y As Variant
Dim i As Integer
Dim j As Integer
ReDim b(0 To (Len(ss) / 2)) As Byte

j = 0

   For i = 1 To Len(ss)
            
            x = Mid$(Trim(ss), i, 2)
            
            Y = CLng("&H" & x)
        
            If Y < 0 Then Y = Y + 65536
            
            
            b(j) = Y
            
            i = i + 1
            j = j + 1
            Next i
            
    GbkStr = StrConv(b, vbUnicode)
End Function


请问具体该怎么做啊???

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-12-04 15:52
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
得分:0 
3Q 我试下

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-12-04 16:20
ak47my
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:229
专家分:0
注 册:2005-12-2
收藏
得分:0 
可以了。谢谢了啊

提问:回答: 不提问怎么回答? 提问不清楚怎么回答?
2008-12-04 16:36
快速回复:Winsock [帮忙,Hex和ASCII字符转换]
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016135 second(s), 10 queries.
Copyright©2004-2025, BC-CN.NET, All Rights Reserved