Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnTls
LOCAL lnMaxWaitMs
LOCAL lcDomainOrIpAddr
LOCAL lnPort
LOCAL loSbXml

lnSuccess = 0

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

loSocket = CreateObject('Chilkat.Socket')

lnTls = 0
lnMaxWaitMs = 20000
lcDomainOrIpAddr = "example.com"
lnPort = 1234

* Connect to the whatever is expecting our connection...
lnSuccess = loSocket.Connect(lcDomainOrIpAddr,lnPort,lnTls,lnMaxWaitMs)
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
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..
loSbXml = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbXml.LoadFile("qa_data/xml/myUtf16.xml","utf-16")
IF (lnSuccess <> 1) THEN
    ? "Failed to load utf-16 XML file.."
    RELEASE loSocket
    RELEASE loSbXml
    CANCEL
ENDIF

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

* Send the string as utf-16 bytes.
lnSuccess = loSocket.SendSb(loSbXml)
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    RELEASE loSbXml
    CANCEL
ENDIF

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

* Send the string as utf-8 bytes.
lnSuccess = loSocket.SendSb(loSbXml)
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    RELEASE loSbXml
    CANCEL
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).
lnSuccess = loSbXml.LoadFile("qa_data/xml/myUtf8.xml","utf-8")
IF (lnSuccess <> 1) THEN
    ? "Failed to load utf-8 XML file.."
    RELEASE loSocket
    RELEASE loSbXml
    CANCEL
ENDIF

* Send as utf-16
loSocket.StringCharset = "utf-16"

* Send the string as utf-16 bytes.
lnSuccess = loSocket.SendSb(loSbXml)
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    RELEASE loSbXml
    CANCEL
ENDIF

* ...
* ...

RELEASE loSocket
RELEASE loSbXml