B4X

Send UTF-16 on TCP or TLS Socket

See more Socket/SSL/TLS Examples

Demonstrates how to send a string on a connected TCP or SSL/TLS socket such that it is the utf-16 byte representation that is sent. B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim socket As ChilkatSocket
socket.Initialize("socket")

Dim tls As Boolean = False
Dim maxWaitMs As Int = 20000
Dim domainOrIpAddr As String = "example.com"
Dim port As Int = 1234

'  Connect to the whatever is expecting our connection...
success = socket.Connect(domainOrIpAddr, port, tls, maxWaitMs)
If success <> True Then
    Log(socket.LastErrorText)
    Return
End If


'  Let's say we have an XML file saved in the utf-16 byte representation,
'  and we want to send it over the connection using the utf-16 byte representation...

'  First the file into a Chilkat StringBuilder.
'  Tell the LoadFile method that we are reading utf-16 bytes..
Dim sbXml As ChilkatStringBuilder
sbXml.Initialize
success = sbXml.LoadFile("qa_data/xml/myUtf16.xml", "utf-16")
If success <> True Then
    Log("Failed to load utf-16 XML file..")
    Return
End If


'  Tell the socket object that we wish to send the utf-16 byte representation of the string.
socket.StringCharset = "utf-16"

'  Send the string as utf-16 bytes.
success = socket.SendSb(sbXml)
If success <> True Then
    Log(socket.LastErrorText)
    Return
End If


'  Let's say we wanted to instead send the string as utf-8 bytes.
'  Just tell the socket object...
socket.StringCharset = "utf-8"

'  Send the string as utf-8 bytes.
success = socket.SendSb(sbXml)
If success <> True Then
    Log(socket.LastErrorText)
    Return
End If


'  If our XML file was utf-8, then just tell the StringBuilder that we're reading utf-8.
'  Once the text is properly contained in the StringBuilder, we can send the contents in any other charset (windows-1252, utf-16, utf-8, etc.) 
'  as long as it make sense (i.e. we obviously can't send Japanese text using a single-byte charset such as Windows-1252).
success = sbXml.LoadFile("qa_data/xml/myUtf8.xml", "utf-8")
If success <> True Then
    Log("Failed to load utf-8 XML file..")
    Return
End If


'  Send as utf-16
socket.StringCharset = "utf-16"

'  Send the string as utf-16 bytes.
success = socket.SendSb(sbXml)
If success <> True Then
    Log(socket.LastErrorText)
    Return
End If


'  ...
'  ...