pdu.vb

通过串口发送短信的模块,采用vb.net编写

Imports ATSMS.SMS.Encoder.SMS
Imports ATSMS.SMS.Encoder.ConcatenatedShortMessage

Namespace SMS

    Public Class PDU
        Private DataCodingScheme As ENUM_TP_DCS

        Public Function GetPDU( _
                               ByVal ServiceCenterNumber As String, _
                               ByVal DestNumber As String, _
                               ByVal DataCodingScheme As ENUM_TP_DCS, _
                               ByVal ValidPeriod As ENUM_TP_VALID_PERIOD, _
                               ByVal MsgReference As Integer, _
                               ByVal StatusReport As Boolean, _
                               ByVal UserData As String) As String()
            'Check for SMS type
            Dim Type As Integer '0 for SMS;1 For ConcatenatedShortMessage
            Dim Result() As String
            Dim SMSObject As Object
            SMSObject = New SMS.Encoder.SMS
            Select Case DataCodingScheme
                Case ENUM_TP_DCS.DefaultAlphabet, ENUM_TP_DCS.Class2_UD_7bits
                    If UserData.Length > 160 Then
                        SMSObject = New SMS.Encoder.ConcatenatedShortMessage
                        Type = 1
                    End If
                Case ENUM_TP_DCS.UCS2
                    If UserData.Length > 70 Then
                        SMSObject = New SMS.Encoder.ConcatenatedShortMessage
                        Type = 1
                    End If
            End Select

            With SMSObject
                .ServiceCenterNumber = ServiceCenterNumber
                If StatusReport = True Then
                    .TP_Status_Report_Request = SMS.ENUM_TP_SRI.Request_SMS_Report
                Else
                    .TP_Status_Report_Request = SMS.ENUM_TP_SRI.No_SMS_Report
                End If
                .TP_Destination_Address = DestNumber
                .TP_Data_Coding_Scheme = DataCodingScheme
                .TP_Message_Reference = MsgReference
                .TP_Validity_Period = ValidPeriod
                .TP_User_Data = UserData
            End With

            If Type = 0 Then
                ReDim Result(0)
                Result(0) = SMSObject.GetSMSPDUCode
            Else
                Result = SMSObject.GetEMSPDUCode            'Note here must use GetEMSPDUCode to get right PDU codes
            End If
            Return Result
        End Function

        Public Function GetATLength(ByVal pduString As String) As Integer
            GetATLength = (pduString.Length - Val("&H" & Mid(pduString, 1, 2)) * 2 - 2) / 2  'Calculate PDU Length for AT command
        End Function

    End Class

End Namespace