Please help me i bind and try to send binary sms but got the error message with Error 193
here the message i got:
Code: Select all
SubmitSmResp received. Status: 193, Message Id: 01497021-b491-4a40-b210-02f225d169bd, Sequence: 1273517366
Code: Select all
Dim req As List(Of SubmitSm) = client.PrepareSubmit(mode, Byte.Parse(Settings.Source_Addr_TON), Byte.Parse(Settings.Source_Addr_NPI), Settings.Source_Addr, Byte.Parse(Settings.Dest_Addr_TON), Byte.Parse(Settings.Dest_Addr_NPI), Dest_Addr, coding, TextSMS)
TextSMS = TextSMS.Replace("|", vbCrLf)
Dim txtsend(req.Count - 1) As String
Dim i As Integer = 0
Dim j As Integer = 0
Dim m As Integer = 0
While TextSMS.Length >= i
If TextSMS.Length - i < 140 Then
txtsend(j) = TextSMS.Substring(i)
Else
txtsend(j) = TextSMS.Substring(i, 140)
End If
i += 140
j += 1
End While
For Each sm As SubmitSm In req
sm.UserDataPdu = mGetBytes(txtsend(m))
m += 1
sm.UserDataPdu.Headers = HexStringToByteArray("05000377030" & m)
Next
client.Submit(req)

Thank you,
Raksa chao