Xbase++

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. Xbase++

LOCAL nSuccess
LOCAL oSocket
LOCAL nTls
LOCAL nMaxWaitMs
LOCAL cDomainOrIpAddr
LOCAL nPort
LOCAL oSbXml

nSuccess := 0

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

oSocket := CreateObject("Chilkat.Socket")

nTls := 0
nMaxWaitMs := 20000
cDomainOrIpAddr := "example.com"
nPort := 1234

//  Connect to the whatever is expecting our connection...
nSuccess := oSocket:Connect(cDomainOrIpAddr, nPort, nTls, nMaxWaitMs)
IF (nSuccess != 1)
    ? oSocket:LastErrorText
    oSocket:destroy()
    RETURN
ENDIF

//  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..
oSbXml := CreateObject("Chilkat.StringBuilder")
nSuccess := oSbXml:LoadFile("qa_data/xml/myUtf16.xml", "utf-16")
IF (nSuccess != 1)
    ? "Failed to load utf-16 XML file.."
    oSocket:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

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

//  Send the string as utf-16 bytes.
nSuccess := oSocket:SendSb(oSbXml)
IF (nSuccess != 1)
    ? oSocket:LastErrorText
    oSocket:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

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

//  Send the string as utf-8 bytes.
nSuccess := oSocket:SendSb(oSbXml)
IF (nSuccess != 1)
    ? oSocket:LastErrorText
    oSocket:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

//  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).
nSuccess := oSbXml:LoadFile("qa_data/xml/myUtf8.xml", "utf-8")
IF (nSuccess != 1)
    ? "Failed to load utf-8 XML file.."
    oSocket:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

//  Send as utf-16
oSocket:StringCharset := "utf-16"

//  Send the string as utf-16 bytes.
nSuccess := oSocket:SendSb(oSbXml)
IF (nSuccess != 1)
    ? oSocket:LastErrorText
    oSocket:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

//  ...
//  ...

oSocket:destroy()
oSbXml:destroy()