cmpp

	首 页 | 新 闻 | 技 术 | 论 坛 | 人 才 | 商 城 | 大本营 |《程序员》| 软 件

2006.1.16

English

CSDN - 专家门诊 - VB 基础类问题
	推荐 | 保存 | 关闭窗口

主　　题：		无符号数在VB里怎么处理？
作　　者：		qcrsoft (网痞)
等　　级：
信 誉 值：		92
所属论坛：		VB 基础类
问题点数：		100
回复次数：		15
发表时间：		2002-08-01 23:33:20Z

中国移动的CMPP协议定义的信息包是按C来写的，有的数据格式为： Unsigned Integer， 并且几个字节的都有，比如1个字节、2个字节、还有21字节的。 请问在VB里应该分别怎么 表示呢？请高手点拨开窍，感激涕零！

	回复人： zhuangbx220(星) ( ) 信誉：93	2002-08-02 01:02:19Z	得分:0
	用Variant型的怎么样（任意型）
Top

	回复人： huxiangming(老虎) ( ) 信誉：100	2002-08-02 01:35:37Z	得分:0
	用 ByVal variable As Long
Top

	回复人： qcrsoft(网痞) ( ) 信誉：92	2002-08-02 02:46:47Z	得分:0
	这位大哥，你上面写的“ByVal variable As Long”怎讲？能不能具体点？这分数非你莫属了。感激涕零！
Top

	回复人： liuns(^_^) ( ) 信誉：100	2002-08-02 06:09:29Z	得分:0
	LONG它包含了无符号数和有符号数,他们是通用的.一般的API函数的无符号数都用的LONG型.不过还有一个方法就是自己写一个.DLL文件它可以把无符号转换成普通的整型,或者反过来.如 . . . int _change(unsinged a) { return a; } . . . 通过这个dll函数这个中转.
Top

	回复人： zyl910(910：分儿，我又来了！) ( ) 信誉：190	2002-08-02 07:28:33Z	得分:0
	只要所占字节相同就行 如果“Unsigned Integer”是指16位整形，那么用Integer 如果“Unsigned Integer”是指32位整形，那么用Long
Top

	回复人： Chice_wxg() ( ) 信誉：100	2002-08-02 07:54:21Z	得分:0
	VB不支持无符号的数据类型。 如果想处理无符号类型，需要按位处理（或者加一个常数）
Top

	回复人： lastcsdn2166(我真是猪啊！) ( ) 信誉：100	2002-08-02 08:26:31Z	得分:0
	上面的大哥，VB怎么按位处理的呢？呵呵，我寻找了好久没找到会的，先谢了
Top

	回复人： qcrsoft(网痞) ( ) 信誉：92	2002-08-02 08:28:50Z	得分:0
	各位兄弟啊，我想知道的是21个字节的Unsigned Integer在VB里怎么表示。 感激涕零拉！
Top

	回复人： griefforyou(为你伤心) ( ) 信誉：110	2002-08-02 08:46:36Z	得分:100
	'CMPP模块 Option Explicit '在模块级别中使用，强制显式声明模块中的所有变量。 '==API函数的声明== 'Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Public Declare Function CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) As Boolean 'Public Declare Sub MD5 Lib "dllmd5.dll" (ByVal sChar As String, ByVal Ret16 As String, ByVal Ret32 As String) Public Declare Sub MD5 Lib "D:\dllmd5.dll" (ByVal Souce As String, ByVal s16 As String, ByVal s32 As String, ByVal sLen As Long) '==定义WinSock控件的State属性的设置值== Public Const sckOpen = 1 '打开 Public Const sckListening = 2 '侦听 Public Const sckConnectionPending = 3 '连接挂起 Public Const sckResolvingHost = 4 '识别主机 Public Const sckHostResolved = 5 '已识别主机 Public Const sckConnecting = 6 '正在连接 Public Const sckConnected = 7 '已连接 Public Const sckClosing = 8 '同级人员正在关闭连接 Public Const sckError = 9 '错误 '============================= '==定义ISMG的Commamd_ID== '-------------- 命令字名称 Command_ID值 说明----------------- Public CMPP_Connect(3) As Byte '&H00000001 请求连接 Public CMPP_Connect_REP(3) As Byte '&H80000001 请求连接应答 Public CMPP_Terminate(3) As Byte '&H00000002 终止连接 Public CMPP_Terminate_REP(3) As Byte '&H80000002 终止连接应答 Public CMPP_Submit(3) As Byte '&H00000004 提交短信 Public CMPP_Submit_REP(3) As Byte '&H80000004 提交短信应答 Public CMPP_Deliver(3) As Byte '&H00000005 短信下发 Public CMPP_Deliver_REP(3) As Byte '&H80000005 下发短信应答 Public CMPP_Query(3) As Byte '&H00000006 发送短信状态查询 Public CMPP_Query_REP(3) As Byte '&H80000006 发送短信状态查询应答 Public CMPP_Cancel(3) As Byte '&H00000007 删除短信 Public CMPP_Cancel_REP(3) As Byte '&H80000007 删除短信应答 Public CMPP_Active_Test(3) As Byte '&H00000008 激活测试 Public CMPP_Active_Test_REP(3) As Byte '&H80000008 激活测试应答 '---------------------------------------------------------------- '==变量定义== '--信息流水号（10进制）-- Public XuHao As Double Public CMD(3) As Byte '--消息头格式-- Public Type Message_Header Total_Length(3) As Byte '4 消息总长度（含消息头及消息体） Command_ID(3) As Byte '4 命令或响应类型 Sequence_ID(3) As Byte '4 消息流水号，顺序累加，步长为1，循环使用 End Type '--------------- '--消息体格式-- '1. CMPP_Connect 请求连接 Public Type MSG_Connect Source_Addr As String * 6 ' 6 Octet String SP_ID 926021/01001 AuthenticatorSP As String * 16 ' 16 Octet String SP认证码 'AuthenticatorSP(15) As Byte ' 16 Octet String SP认证码 Version As Byte '1 Integer 双方协商的版本号 Timestamp(3) As Byte ' 4 Integer 时间戳的明文,由客户端产生,格式为MMDDHHMMSS，即月日时分秒，10位,右对齐 End Type '2. CMPP_Connect_REP 请求连接应答 Public Type MSG_Connect_REP Status As Byte ' 1 Integer 状态0：正确1：消息结构错 2：非法SP_ID 3：SP认证错 4：版本太高 5~ ：其他错误 AuthenticatorISMG As String * 16 ' 16 Octet String ISMG认证码 ，SP认证出错时，此项为空 Version As Byte ' 1 Integer 服务器支持的最高版本号 End Type '------------------------------------------ '用于鉴别ICP。其值通过单向MD5 hash计算得出，表示如下： 'AuthenticatorICP =MD5（Source_Addr+9 字节的0 +shared secret+timestamp） 'Shared secret 由中国移动与ICP事先商定,timestamp格式为：MMDDHHMMSS，即月日时分秒，10位。 '用于鉴别ISMG。其值通过单向MD5 hash计算得出，表示如下： 'AuthenticatorISMG =MD5（Status+AuthenticatorICP+shared secret） 'Shared secret 由中国移动与ICP事先商定，AuthenticatorICP为ICP发送给ISMG的上一条消息CMPP_Request_Connect中的值。 '------------------------------------------ '3. CMPP_Terminate 终止连接 '消息体为空 '4. CMPP_Terminate_Rep 终止连接响应 '消息体为空 '5.CMPP_Submit 发送短信 Public Type MSG_Submit Msg_id(7) As Byte ' 8 Integer 信息标识，由SP侧短信网关本身产生生成MsgID的算法如下：采用64位（8字节）的整数：(1)时间（从月精确到分） 64――41位（bit）(2)SMC（短讯中心）号码 40――17位（bit）如 13800100500,只填写最后86位00100500(3)序列号 16――1位（bit）顺序累加,步长为1,循环使用.各分段如不能填满，左补零,右对齐 Pk_total As Byte ' 1 Integer 相同Msg_id的消息总条数，从1开始 Pk_number As Byte ' 1 Integer 相同Msg_id的消息序号，从1开始 Registered_Delivery As Byte ' 1 Integer 是否要求返回状态确认报告(0--不需要，1--需要，2--产生SMC话单) Msg_level As Byte '1 Integer 信息级别 Service_id As String * 10 '10 Octet String 业务类型 Fee_UserType As Byte ' 1 Integer 计费用户类型字段，0：对目的终端MSISDN计费；1：对源终端MSISDN计费；2：对SP计费;3:表示本字段无效，对谁计费参见Fee_terminal_id字段。 Fee_terminal_id As String * 21 ' Integer 被计费用户的号码（如本字节填空，则表示本字段无效，对谁计费参见Fee_UserType字段。本字段与Fee_UserType字段互斥） TP_pid As Byte '1 Integer GSM协议类型。详细是解释请参考GSM03.40中的9.2.3.9 TP_udhi As Byte '1 Integer GSM协议类型。详细是解释请参考GSM03.40中的9.2.3.23,仅使用1位，右对齐 Msg_Fmt As Byte '1 Integer 信息格式 0：ASCII串 3：短信写卡操作 4：二进制信息 8：UCS2编码15：含GB汉字 。。。。。。 Msg_src As Byte '6 Octet String 信息内容来源(SP_ID) FeeType As String * 2 ' Octet String 资费类别 FeeCode As String * 6 ' Octet String 资费代码（以分为单位） Valid_Time As String * 17 ' Octet String 存活有效期，格式遵循SMPP3.3协议 At_Time As String * 17 ' Octet String 定时发送时间，格式遵循SMPP3.3协议 Src_terminal_id As String * 21 ' Octet String 源终端MSISDN号码(没有可以为空) DestUsr_tl As Byte ' 1 Integer 接收消息的用户数量(小于100个用户) Dest_terminal_id As String ' 21*DestUsr_tl Octet String 接收业务的MSISDN号码 Msg_Length As Byte ' 1 Integer 消息长度(Msg_Fmt值为0时：<160个字节；其它<=140个字节) Msg_Content As String 'Msg_length Octet String 消息内容 Reserve As String * 8 ' Octet String 保留 End Type '6.CMPP_Submit_REP 发送短信响应（出错要求SP全部重发Msg_Id信息） Public Type MSG_Submit_REP Msg_id(7) As Byte ' 8 Integer 消息标识（参见第5条CMPP_Submit定义） Result As Byte ' 1 Integer 结果0：正确1：消息结构错 2：命令字错 3：消息序号重复4：消息长度错5：资费代码错6：超过最大信息长7：业务代码错8：流量控制错9~ ：其他错误 End Type '7.CMPP_Query 发送短信状态查询(查询Time属性指定的日期的统计信息) Public Type MSG_Query Time As String * 8 ' 8 Octet String 时间(精确至日) Query_Type As Byte ' 1 Integer 查询类别0：总数查询1：按业务代码查询 Query_Code As String * 10 ' 10 Octet String 查询码 (业务类型) Reserve As String * 8 '8 Octet String 保留 End Type '8.CMPP_Query_REP 短信状态查询结果 Public Type MSG_Query_REP Time As String * 8 ' 8 Octet String 时间(精确至日) Query_Type As Byte ' 1 Integer 查询类别0：总数查询1：按业务代码查询 Query_Code As String * 10 ' 10 Octet String 查询码 MT_TLMsg(3) As Byte ' 4 Integer 从SP接收信息总数 MT_Tlusr(3) As Byte ' 4 Integer 从SP接收用户总数 MT_Scs(3) As Byte ' 4 Integer 成功转发数量 MT_WT(3) As Byte ' 4 Integer 待转发数量 MT_FL(3) As Byte ' 4 Integer 转发失败数量 MO_Scs(3) As Byte ' 4 Integer 向SP成功送达数量 MO_WT(3) As Byte ' 4 Integer 向SP待送达数量 MO_FL(3) As Byte ' 4 Integer 向SP送达失败数量 End Type
Top

	回复人： griefforyou(为你伤心) ( ) 信誉：110	2002-08-02 08:47:10Z	得分:0
	'Continue '9. CMPP_Deliver Public Type MSG_Deliver1 Msg_id(7) As Byte ' 8 Integer 消息标识（参见第5条CMPP_Submit定义） Destnation_id As String * 21 ' 21 Octet String SP的接入代码，一般4--6位 Service_id As String * 10 ' 10 Octet String 业务类型 TP_pid As Byte ' 1 Integer GSM协议类型。详细是解释请参考GSM03.40中的9.2.3.9 TP_udhi As Byte ' 1 Integer GSM协议类型。详细是解释请参考GSM03.40中的9.2.3.23,仅使用1位，右对齐 Msg_Fmt As Byte ' 1 Integer 信息格式 0：ASCII串 3：短信写卡操作 4：二进制信息 8：UCS2编码15：含GB汉字 。。。。。。 Srcterminal_id As String * 21 ' 21 Octet String 源终端MSISDN号码 Registered_Delivery As Byte '1 Integer 是否为应答信息，0----非应答信息，1----状态报告 Msg_Length As Byte ' 1 Integer 消息长度 Msg_Content As String 'Msg_length Octet String 消息内容 Reserve As String * 8 '8 Octet String 保留项 End Type '当CMPP_Deliver为对CMPP_Submit的应答信息时(即状态报告)，信息内容字段格式定义如下： Public Type MSG_Deliver2 Msg_id(7) As Byte ' 8 Integer 消息标识（参见第5条CMPP_Submit定义） Stat As String * 7 ' 7 Octet String 短信的应答结果，含义与SMPP3.3协议补充要求中stat字段定义相同 Submit_time As String * 10 ' 10 Octet String YYMMDDHHMM（YY为年的后两位00-99，MM：01-12，DD：01-31，HH：00-23，MM：00-59） Done_time As String * 10 ' 10 Octet String YYMMDDHHMM Dest_terminal_id As String * 21 ' 21 Octet String 目的终端MSISDN号码 SMSC_sequence(3) As Byte ' 4 Integer SMSC发送状态报告的消息序列号 End Type '注: '1. 对SP的同一Msg_Id的多个包，当网关全部正确接收、正确发往SMSC并且收到SMSC返回的全部状态报告后，给SP只返回一个状态报告，以示此短信已正确到达手机终端。 '2. 对SP的群发，采用逐条返回方式。 '3. 考虑到SMSC的存储转发时间，要求网关的状态报告回送与接收到短信请求并将其送到SMSC之间的时间间隔为48小时。 '10.CMPP_Deliver_REP 下发短信响应 Public Type MSG_Deliver_REP Msg_id(7) As Byte ' 8 Integer 消息标识（参见第5条CMPP_Submit定义） Result As Byte ' 1 Integer 结果0：正确1：消息结构错 2：命令字错 3：消息序号重复4：消息长度错5：资费代码错6：超过最大信息长7：业务代码错8: 流量控制错9~ ：其他错误 End Type '11.CMPP_Cancel 删除短信 Public Type MSG_Cancel Msg_id(7) As Byte ' 8 Integer 消息标识（参见第5条CMPP_Submit定义） End Type '12.CMPP_Cancel_REP 删除短信响应 Public Type MSG_Cancel_REP Success_Id As Byte ' 1 Integer 成功标识(0：成功; 1：失败) End Type '13.CMPP_Active_Test 激活测试 '没有消息体。 '14.CMPP_Active_Test_REP 激活测试响应 Public Type MSG_Active_Test_REP Success_Id As Byte ' 1 Integer 成功标识(0：成功；其它：不成功) End Type '========================================================== '--把数字字符串放入4个字节的无符号整数的存储区-- Public Sub StrTo4UnInt(ByRef UnInt4() As Byte, ByVal Str As String) Dim sLow As Long Dim sHigh As Long Dim sWap As Long DblToUnInt4 UnInt4, CDbl(Str) End Sub '--把4个字节存储区的无符号整数放入数字字符串-- Public Sub StrFrom4UnInt(UnInt4() As Byte, Str As String) Dim Ii As Integer Dim Zong As Double DblFromUnInt4 UnInt4, Zong Str = CStr(Zong) ' For Ii = 0 To 3 ' Zong = Zong + UnInt4(Ii) * 16 ^ (6 - Ii * 2) ' Next Ii ' Str = CStr(Zong) End Sub '========================================================== '--把DOUBLE放入4个字节的无符号整数的存储区-- Public Sub DblToUnInt4(ByRef UnInt4() As Byte, ByVal iDbl As Double) Dim sLow As Long Dim sHigh As Long Dim sWap As Long Dim a, b sWap = 0 If iDbl = 4294967295# Then sLow = 65535: sHigh = 65535 ElseIf iDbl > 2147483647# Then sLow = CLng((iDbl - 2147483647#) Mod 65536) If sLow <> 65535 Then sWap = 1: sLow = sLow - 1 End If sHigh = CLng(Int(2147483647# / 65536)) + CLng(Int((iDbl - 2147483647#) / 65536)) + sWap Else sLow = CLng(iDbl Mod 65536) sHigh = CLng(Int(iDbl / 65536)) End If a = Mid(Right("0000" + Hex(sLow), 4), 1, 2) UnInt4(0) = Val("&H" + Mid(Right("0000" + Hex(sHigh), 4), 1, 2)) UnInt4(1) = Val("&H" + Mid(Right("0000" + Hex(sHigh), 4), 3, 2)) UnInt4(2) = Val("&H" + Mid(Right("0000" + Hex(sLow), 4), 1, 2)) UnInt4(3) = Val("&H" + Mid(Right("0000" + Hex(sLow), 4), 3, 2)) 'CopyMemory UnInt4(0), sHigh, 2 'CopyMemory UnInt4(2), sLow, 2 End Sub '--把4个字节存储区的无符号整数放入DOUBLE-- Public Sub DblFromUnInt4(UnInt4() As Byte, iDbl As Double) Dim Ii As Integer iDbl = 0# For Ii = 0 To 3 'iDbl = iDbl + UnInt4(Ii) * 16 ^ (Ii * 2) iDbl = iDbl + UnInt4(Ii) * 16 ^ (6 - Ii * 2) Next Ii End Sub '--序号自加1大于&HFFFFFFFF是循环为1-- Public Sub ZjXuHao() If XuHao >= 4294967295# Then XuHao = 1# Else XuHao = XuHao + 1# End If End Sub '---------------------------------------------------------- Public Function Jz10D(Str As String) As Double Dim i As Integer Dim Temp As String Jz10D = 0 For i = 1 To Len(Str) Temp = Mid(Str, Len(Str) - i + 1, 1) If InStr("0123456789", Temp) Then Jz10D = Jz10D + CInt(Temp) * 16 ^ (i - 1) Else Jz10D = Jz10D + (Asc(Temp) - Asc("A") + 10) * 16 ^ (i - 1) End If Next i End Function '---------------------------------------------------------- Public Function Jz10S(Str As String) As Single Dim i As Integer Dim Temp As String Jz10S = 0 For i = 1 To Len(Str) Temp = Mid(Str, Len(Str) - i + 1, 1) If InStr("0123456789", Temp) Then Jz10S = Jz10S + CInt(Temp) * 16 ^ (i - 1) Else Jz10S = Jz10S + (Asc(Temp) - Asc("A") + 10) * 16 ^ (i - 1) End If Next i End Function '---------------------------------------------------------- Function IntFmt(Num As Double, Length As Integer) As String Dim Temp As String Dim i As Integer While Num >= 16 Temp = Jz16(Num Mod 16) + Temp Num = (Num - (Num Mod 16)) / 16 DoEvents Wend Temp = Jz16(Num) + Temp IntFmt = "" For i = 1 To Length * 2 IntFmt = IntFmt + "0" Next i IntFmt = Right(IntFmt + Temp, Length * 2) End Function Function Jz16(Num As Double) As String If Num < 10 Then Jz16 = CStr(Num) Else Jz16 = Chr(Asc("A") - 10 + Num) End If End Function
Top

	回复人： Chice_wxg() ( ) 信誉：100	2002-08-02 08:54:14Z	得分:0
	21个字节的Unsigned Integer在VB里表示: Dim myary(0 to 20) as long '因为32位下，int类型被认为是long类型 只能这样
Top

	回复人： tyro1() ( ) 信誉：92	2002-08-02 10:00:21Z	得分:0
	vb支持的数据类型最多只能占8个字节呀？？
Top

	回复人： tyro1() ( ) 信誉：92	2002-08-02 10:02:27Z	得分:0
	vb支持的数据类型最多只能占8个字节呀？
Top

	回复人： prefix(MtSC) ( ) 信誉：99	2002-08-02 10:47:00Z	得分:0
	如果要21个字节的话，用BYTE。 Dim bUnsignedInteger(0 to 20) As Byte 可使用21个字节。 然后可以使用API CopyMemory为 bUnsignedInteger复制数据。因为LONG是4字节（32位）整数，所以VB中是没有21位这样的东西的，用BYTE应该没错。
Top

	回复人： prefix(MtSC) ( ) 信誉：99	2002-08-02 10:49:18Z	得分:0
	因为你的无符号数字节数不一定，所以用BYTE灵活性较高。
Top

该问题已经结贴 ，得分记录： griefforyou (100)、

---

网站简介 - 广告服务 - 网站地图 - 帮助信息 - 联系方式
百联美达美公司 版权所有 京ICP证020026号
Copyright © CSDN.net, Inc. All rights reserved