ASCII to PDU convertion and back

[DraguVaso]

Hi,

For my SMS-application I need to be able to send characters with accents
(like é and à). But this doesn't seem to work in Text Mode, so i will need
to do it in PDU Mode.

Does anybody has soem converting routines for that in VB.NET? I need my text
to be converted to a PDU-message, and back (for received messages).

Thansk in advance,

Pieter

[DraguVaso]

I'm really having troubles to udnerstand what you exactly need to know...

I'm writing a string all the time.
Some of my routines:

Public Sub PinInsert(ByVal strPin As String)
ModemStatus = enumModemStatus .PinValidation
WriteToComPort( "AT+CPIN=" & strPin & cstCR)
MessageSilent(" Inserting the Pin...")
End Sub

Public Sub SetToTextMode()
ModemStatus = enumModemStatus .TextModeValida tion
WriteToComPort( "AT+CMGF=1" & cstCR)
MessageSilent(" Setting to TextMode...")
End Sub

Public Sub WriteToComPort( ByVal strMessage As String)
SerialPort1.Wri te(strMessage)
End Sub

Public Sub SmsSendNumber(B yVal strNumber As String)
ModemStatus = enumModemStatus .SmsNumberSendi ng
WriteToComPort( "AT+CMGS=" & Chr(34) & strNumber & Chr(34) & cstCR)
End Sub

Public Sub SmsSendMessage( ByVal strMessage As String)
ModemStatus = enumModemStatus .SmsMessageSend ing
WriteToComPort( strMessage & Chr(26))
End Sub
It works really fine with just normal text, but once I begin using accents
the accents don't come through....
strMessage is like this: "hello world" or "érica"

"Jon Skeet [C# MVP]" <sk***@pobox.co m> wrote in message
news:MP******** *************** *@msnews.micros oft.com...

DraguVaso <pi**********@h otmail.com> wrote:

I'm not using an API: I'm using VB.NET 2005 with the SerialPort-object, if that is what you mean...

Well, that *is* using an API. Anyway...

Anyway, how are you then writing the data to the port? Are you writing
a byte array, or a string? Either way, what encoding are you using?

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[DraguVaso]

I'm really having troubles to udnerstand what you exactly need to know...

I'm writing a string all the time.
Some of my routines:

Public Sub PinInsert(ByVal strPin As String)
ModemStatus = enumModemStatus .PinValidation
WriteToComPort( "AT+CPIN=" & strPin & cstCR)
MessageSilent(" Inserting the Pin...")
End Sub

Public Sub SetToTextMode()
ModemStatus = enumModemStatus .TextModeValida tion
WriteToComPort( "AT+CMGF=1" & cstCR)
MessageSilent(" Setting to TextMode...")
End Sub

Public Sub WriteToComPort( ByVal strMessage As String)
SerialPort1.Wri te(strMessage)
End Sub

Public Sub SmsSendNumber(B yVal strNumber As String)
ModemStatus = enumModemStatus .SmsNumberSendi ng
WriteToComPort( "AT+CMGS=" & Chr(34) & strNumber & Chr(34) & cstCR)
End Sub

Public Sub SmsSendMessage( ByVal strMessage As String)
ModemStatus = enumModemStatus .SmsMessageSend ing
WriteToComPort( strMessage & Chr(26))
End Sub
It works really fine with just normal text, but once I begin using accents
the accents don't come through....
strMessage is like this: "hello world" or "érica"

"Jon Skeet [C# MVP]" <sk***@pobox.co m> wrote in message
news:MP******** *************** *@msnews.micros oft.com...

DraguVaso <pi**********@h otmail.com> wrote:

I'm not using an API: I'm using VB.NET 2005 with the SerialPort-object, if that is what you mean...

Well, that *is* using an API. Anyway...

Anyway, how are you then writing the data to the port? Are you writing
a byte array, or a string? Either way, what encoding are you using?

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[Jon Skeet [C# MVP]]

DraguVaso <pi**********@h otmail.com> wrote:

I'm really having troubles to udnerstand what you exactly need to know...
<snip>
Public Sub WriteToComPort( ByVal strMessage As String)
SerialPort1.Wri te(strMessage)
End Sub

Okay, that's the bit I needed to know - you're using whatever encoding
the SerialPort class is providing by default.

Try changing that to ISO-8859-1:

SerialPort1.Enc oding = Encoding.GetEnc oding (28591);

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[Jon Skeet [C# MVP]]

DraguVaso <pi**********@h otmail.com> wrote:

I'm really having troubles to udnerstand what you exactly need to know...
<snip>
Public Sub WriteToComPort( ByVal strMessage As String)
SerialPort1.Wri te(strMessage)
End Sub

Okay, that's the bit I needed to know - you're using whatever encoding
the SerialPort class is providing by default.

Try changing that to ISO-8859-1:

SerialPort1.Enc oding = Encoding.GetEnc oding (28591);

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[DraguVaso]

Thanks, I changed it and tryed to send some messages but I always got this
answer when I got accents in it:

"met accenten hé jà bèkes

OK
"
And not the "+CMGS: " that I normally should receive...

Even messages without accent don't work: there I get this as an answer for
mthe modem:
"zonder accenten

ERROR
"
.... :-/

"Jon Skeet [C# MVP]" <sk***@pobox.co m> wrote in message
news:MP******** *************** *@msnews.micros oft.com...

DraguVaso <pi**********@h otmail.com> wrote:

I'm really having troubles to udnerstand what you exactly need to

know...
<snip>

Public Sub WriteToComPort( ByVal strMessage As String)
SerialPort1.Wri te(strMessage)
End Sub

Okay, that's the bit I needed to know - you're using whatever encoding
the SerialPort class is providing by default.

Try changing that to ISO-8859-1:

SerialPort1.Enc oding = Encoding.GetEnc oding (28591);

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[DraguVaso]

Thanks, I changed it and tryed to send some messages but I always got this
answer when I got accents in it:

"met accenten hé jà bèkes

OK
"
And not the "+CMGS: " that I normally should receive...

Even messages without accent don't work: there I get this as an answer for
mthe modem:
"zonder accenten

ERROR
"
.... :-/

"Jon Skeet [C# MVP]" <sk***@pobox.co m> wrote in message
news:MP******** *************** *@msnews.micros oft.com...

DraguVaso <pi**********@h otmail.com> wrote:

I'm really having troubles to udnerstand what you exactly need to

know...
<snip>

Public Sub WriteToComPort( ByVal strMessage As String)
SerialPort1.Wri te(strMessage)
End Sub

Okay, that's the bit I needed to know - you're using whatever encoding
the SerialPort class is providing by default.

Try changing that to ISO-8859-1:

SerialPort1.Enc oding = Encoding.GetEnc oding (28591);

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[Jon Skeet [C# MVP]]

DraguVaso <pi**********@h otmail.com> wrote:

Thanks, I changed it and tryed to send some messages but I always got this
answer when I got accents in it:

"met accenten hé jà bèkes

OK
"
And not the "+CMGS: " that I normally should receive...

Even messages without accent don't work: there I get this as an answer for
mthe modem:
"zonder accenten

ERROR
"

Do you understand those messages? I don't know the language, I'm
afraid.

Messages without accents shouldn't be affected at all. Print out which
encoding the serial port class is using *before* you set it - that
could be useful information.

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[Jon Skeet [C# MVP]]

DraguVaso <pi**********@h otmail.com> wrote:

Thanks, I changed it and tryed to send some messages but I always got this
answer when I got accents in it:

"met accenten hé jà bèkes

OK
"
And not the "+CMGS: " that I normally should receive...

Even messages without accent don't work: there I get this as an answer for
mthe modem:
"zonder accenten

ERROR
"

Do you understand those messages? I don't know the language, I'm
afraid.

Messages without accents shouldn't be affected at all. Print out which
encoding the serial port class is using *before* you set it - that
could be useful information.

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[DraguVaso]

I added three things here:

- The encoding before I change the encoding
- the encoding after the changes
- how I open the port and change the encoding

The "met accenten hé jà bèkes" and the "zonder accenten" are the SMS that I
tryed to send: they are dutch...
Before the SerialPort1.Enc oding = System.Text.Enc oding.GetEncodi ng(28591)

?serialport1.En coding
{System.Text.AS CIIEncoding}
[System.Text.ASC IIEncoding]: {System.Text.AS CIIEncoding}
ASCII: {System.Text.AS CIIEncoding}
asciiEncoding: {System.Text.AS CIIEncoding}
BigEndianUnicod e: {System.Text.Un icodeEncoding}
BodyName: "us-ascii"
ChineseHZ: 52936
CodePage: 20127
CodePageASCII: 20127
CodePageBigEndi an: 1201
CodePageDefault : 0
CodePageDLLKore an: 20949
CodePageGB2312: 20936
CodePageMacGB23 12: 10008
CodePageMacKore an: 10003
CodePageNoMac: 2
CodePageNoOEM: 1
CodePageNoSymbo l: 42
CodePageNoThrea d: 3
CodePageUnicode : 1200
CodePageUTF32: 65005
CodePageUTF32BE : 65006
CodePageUTF7: 65000
CodePageUTF8: 65001
CodePageWindows 1252: 1252
dataItem: {System.Globali zation.CodePage DataItem}
DecoderFallback : {System.Text.De coderReplacemen tFallback}
Default: {System.Text.SB CSCodePageEncod ing}
defaultEncoding : {System.Text.SB CSCodePageEncod ing}
DuplicateEUCCN: 51936
emptyByteArray: {Length=0}
ENC50229: 50229
EncoderFallback : {System.Text.En coderReplacemen tFallback}
EncodingName: "US-ASCII"
encodings: {Length=1}
EUCCN: 936
EUCJP: 51932
EUCKR: 51949
GB18030: 54936
HeaderName: "us-ascii"
InternalSyncObj ect: {Object}
IsBrowserDispla y: False
IsBrowserSave: False
ISCIIAssemese: 57006
ISCIIBengali: 57003
ISCIIDevanagari : 57002
ISCIIGujarathi: 57010
ISCIIKannada: 57008
ISCIIMalayalam: 57009
ISCIIOriya: 57007
ISCIIPanjabi: 57011
ISCIITamil: 57004
ISCIITelugu: 57005
IsMailNewsDispl ay: True
IsMailNewsSave: True
ISO_8859_1: 28591
ISO_8859_8_Visu al: 28598
ISO_8859_8I: 38598
ISO2022JP: 50220
ISO2022JPESC: 50221
ISO2022JPSISO: 50222
ISOKorean: 50225
ISOSimplifiedCN : 50227
IsReadOnly: True
IsSingleByte: True
Latin1: {System.Text.La tin1Encoding}
latin1Encoding: {System.Text.La tin1Encoding}
m_codePage: 20127
m_deserializedF romEverett: False
m_isReadOnly: True
MIMECONTF_BROWS ER: 2
MIMECONTF_MAILN EWS: 1
MIMECONTF_SAVAB LE_BROWSER: 512
MIMECONTF_SAVAB LE_MAILNEWS: 256
s_InternalSyncO bject: {Object}
Unicode: {System.Text.Un icodeEncoding}
unicodeEncoding : {System.Text.Un icodeEncoding}
UTF32: {System.Text.UT F32Encoding}
utf32Encoding: {System.Text.UT F32Encoding}
UTF7: {System.Text.UT F7Encoding}
utf7Encoding: {System.Text.UT F7Encoding}
UTF8: {System.Text.UT F8Encoding}
utf8Encoding: {System.Text.UT F8Encoding}
WebName: "us-ascii"
WindowsCodePage : 1252
After the SerialPort1.Enc oding = System.Text.Enc oding.GetEncodi ng(28591)

?serialport1.En coding
{System.Text.La tin1Encoding}
[System.Text.Lat in1Encoding]: {System.Text.La tin1Encoding}
ASCII: {System.Text.AS CIIEncoding}
asciiEncoding: {System.Text.AS CIIEncoding}
BigEndianUnicod e: {System.Text.Un icodeEncoding}
BodyName: "iso-8859-1"
ChineseHZ: 52936
CodePage: 28591
CodePageASCII: 20127
CodePageBigEndi an: 1201
CodePageDefault : 0
CodePageDLLKore an: 20949
CodePageGB2312: 20936
CodePageMacGB23 12: 10008
CodePageMacKore an: 10003
CodePageNoMac: 2
CodePageNoOEM: 1
CodePageNoSymbo l: 42
CodePageNoThrea d: 3
CodePageUnicode : 1200
CodePageUTF32: 65005
CodePageUTF32BE : 65006
CodePageUTF7: 65000
CodePageUTF8: 65001
CodePageWindows 1252: 1252
dataItem: {System.Globali zation.CodePage DataItem}
DecoderFallback : {System.Text.In ternalDecoderBe stFitFallback}
Default: {System.Text.SB CSCodePageEncod ing}
defaultEncoding : {System.Text.SB CSCodePageEncod ing}
DuplicateEUCCN: 51936
emptyByteArray: {Length=0}
ENC50229: 50229
EncoderFallback : {System.Text.In ternalEncoderBe stFitFallback}
EncodingName: "Western European (ISO)"
encodings: {Length=2}
EUCCN: 936
EUCJP: 51932
EUCKR: 51949
GB18030: 54936
HeaderName: "iso-8859-1"
InternalSyncObj ect: {Object}
IsBrowserDispla y: True
IsBrowserSave: True
ISCIIAssemese: 57006
ISCIIBengali: 57003
ISCIIDevanagari : 57002
ISCIIGujarathi: 57010
ISCIIKannada: 57008
ISCIIMalayalam: 57009
ISCIIOriya: 57007
ISCIIPanjabi: 57011
ISCIITamil: 57004
ISCIITelugu: 57005
IsMailNewsDispl ay: True
IsMailNewsSave: True
ISO_8859_1: 28591
ISO_8859_8_Visu al: 28598
ISO_8859_8I: 38598
ISO2022JP: 50220
ISO2022JPESC: 50221
ISO2022JPSISO: 50222
ISOKorean: 50225
ISOSimplifiedCN : 50227
IsReadOnly: True
IsSingleByte: True
Latin1: {System.Text.La tin1Encoding}
latin1Encoding: {System.Text.La tin1Encoding}
m_codePage: 28591
m_deserializedF romEverett: False
m_isReadOnly: True
MIMECONTF_BROWS ER: 2
MIMECONTF_MAILN EWS: 1
MIMECONTF_SAVAB LE_BROWSER: 512
MIMECONTF_SAVAB LE_MAILNEWS: 256
s_InternalSyncO bject: {Object}
Unicode: {System.Text.Un icodeEncoding}
unicodeEncoding : {System.Text.Un icodeEncoding}
UTF32: {System.Text.UT F32Encoding}
utf32Encoding: {System.Text.UT F32Encoding}
UTF7: {System.Text.UT F7Encoding}
utf7Encoding: {System.Text.UT F7Encoding}
UTF8: {System.Text.UT F8Encoding}
utf8Encoding: {System.Text.UT F8Encoding}
WebName: "iso-8859-1"
WindowsCodePage : 1252
How I open it:
SerialPort1.Por tName = strPortName '"COM1"
SerialPort1.Bau dRate = intBaudRate '9600
SerialPort1.Dat aBits = intDataBits '8
SerialPort1.Par ity = parParity 'Parity.None
SerialPort1.Sto pBits = stbStopBits 'StopBits.One
SerialPort1.Han dshake = hskHandShake 'Handshake.None
SerialPort1.Ope n()
SerialPort1.Enc oding = System.Text.Enc oding.GetEncodi ng(28591)

"Jon Skeet [C# MVP]" <sk***@pobox.co m> wrote in message
news:MP******** *************** *@msnews.micros oft.com...
DraguVaso <pi**********@h otmail.com> wrote:

Thanks, I changed it and tryed to send some messages but I always got this
answer when I got accents in it:

"met accenten hé jà bèkes

OK
"
And not the "+CMGS: " that I normally should receive...

Even messages without accent don't work: there I get this as an answer for
mthe modem:
"zonder accenten

ERROR
"

Do you understand those messages? I don't know the language, I'm
afraid.

Messages without accents shouldn't be affected at all. Print out which
encoding the serial port class is using *before* you set it - that
could be useful information.

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[Jon Skeet [C# MVP]]

DraguVaso <pi**********@h otmail.com> wrote:

I added three things here:

- The encoding before I change the encoding
- the encoding after the changes
- how I open the port and change the encoding

The "met accenten hé jà bèkes" and the "zonder accenten" are the SMS that I
tryed to send: they are dutch...

<snip>

Ah, I see. Well, sending "zonder accenten" should be identical whether
you're using ASCII or ISO-8859-1.

On the other hand, I see you're using an unprintable character at the
end of the text. I'd strongly recommend sending any binary values as
bytes rather than still using the encoding for that.

Given that you're setting it to "text" mode though, I wonder whether
you might not be limited to ASCII anyway - you may need to change
something else to use non-ASCII characters.

--
Jon Skeet - <sk***@pobox.co m>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too