短信中VB.NET编码PDU(二)

前端之家收集整理的这篇文章主要介绍了短信中VB.NET编码PDU(二)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

EMS――ConcatenatedShortMessage部分@H_502_5@

编码EMSSMS复杂,但每条EMS的基础还是SMS,所以我直接继承了SMS类。区别主要是要处理好TP_UDIE。对于ConcatenatedShortMessage,由于其IETP_UDHL占据了TP_UD的部分空间,所以每条短信英文只能容纳133字符,中文66字符。我们可以通过此信息得到短信条数。@H_502_5@

如果TP_DCSUnicode编码,则短信条目为:@H_502_5@

TotalMessages = (TP_UD.Length / 4) / 66 +((TP_UD.Length / 4 Mod 66) = 0)+1@H_502_5@

如果为7bit,则为:@H_502_5@

TotalMessages = (tp_ud.Length / 266) -((tp_ud.Length Mod 266) = 0)+1@H_502_5@

注意在程序中我为了简化以后的数组操作,就没有加一。@H_502_5@

确定了短信条数以后通过一个循环就可以提取出每条短信的TP_UD@H_502_5@

Select Case tp_dcs@H_502_5@

Case ENUM_TP_DCS.UCS2@H_502_5@

tmpTP_UD = Mid(TP_UD,i * 66 * 4 + 1,66 *4)'When TP_UDL is odd,the max length of an Unicode string in PDU code is 66Charactor.See [3GPP TS 23.040 V6.5.0 (2004-09] 9.2.3.24.1@H_502_5@

Case ENUM_TP_DCS.DefaultAlphabet@H_502_5@

tmpTP_UD = Mid(tp_ud,i * 133 * 2 + 1,133* 2)@H_502_5@

End Select@H_502_5@

此后还需要编码IE部分,关键代码是确定TP_UDL的值。对于TP_DCS7bit来说确定此值显得比较复杂,弄不好容易出现多一个少一个的错误@H_502_5@

If tp_dcs = ENUM_TP_DCS.UCS2 Then@H_502_5@

TP_UDL = tmpTP_UD.Length / 2 + 6 + 1 '6:length of IE@H_502_5@

End If@H_502_5@

If tp_dcs = ENUM_TP_DCS.DefaultAlphabetThen@H_502_5@

TP_UDL = Fix((tmpTP_UD.Length + 7 * 2) * 4/ 7) '6:length of IE@H_502_5@

End If@H_502_5@

然后根据3GPP里关于EMS的结构的说明就可以编写出EMS PDU的处理程序。详见原代码@H_502_5@

如果需要扩展EMS以适应更多种类的EMS,可以参考3GPP写出更为强大的编码程序。但最关键的还是需要处理好IE以及TP_UDL@H_502_5@

转自bbs.sendsms.cn@H_502_5@

猜你在找的VB相关文章