(PowerBuilder) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Socket
integer li_Tls
integer li_MaxWaitMs
string ls_DomainOrIpAddr
integer li_Port
integer li_Success
oleobject loo_SbXml

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

loo_Socket = create oleobject
// Use "Chilkat_9_5_0.Socket" for versions of Chilkat < 10.0.0
li_rc = loo_Socket.ConnectToNewObject("Chilkat.Socket")
if li_rc < 0 then
    destroy loo_Socket
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Tls = 0
li_MaxWaitMs = 20000
ls_DomainOrIpAddr = "example.com"
li_Port = 1234

// Connect to the whatever is expecting our connection...
li_Success = loo_Socket.Connect(ls_DomainOrIpAddr,li_Port,li_Tls,li_MaxWaitMs)
if li_Success <> 1 then
    Write-Debug loo_Socket.LastErrorText
    destroy loo_Socket
    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..
loo_SbXml = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbXml.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_SbXml.LoadFile("qa_data/xml/myUtf16.xml","utf-16")
if li_Success <> 1 then
    Write-Debug "Failed to load utf-16 XML file.."
    destroy loo_Socket
    destroy loo_SbXml
    return
end if

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

// Send the string as utf-16 bytes.
li_Success = loo_Socket.SendSb(loo_SbXml)
if li_Success <> 1 then
    Write-Debug loo_Socket.LastErrorText
    destroy loo_Socket
    destroy loo_SbXml
    return
end if

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

// Send the string as utf-8 bytes.
li_Success = loo_Socket.SendSb(loo_SbXml)
if li_Success <> 1 then
    Write-Debug loo_Socket.LastErrorText
    destroy loo_Socket
    destroy loo_SbXml
    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).
li_Success = loo_SbXml.LoadFile("qa_data/xml/myUtf8.xml","utf-8")
if li_Success <> 1 then
    Write-Debug "Failed to load utf-8 XML file.."
    destroy loo_Socket
    destroy loo_SbXml
    return
end if

// Send as utf-16
loo_Socket.StringCharset = "utf-16"

// Send the string as utf-16 bytes.
li_Success = loo_Socket.SendSb(loo_SbXml)
if li_Success <> 1 then
    Write-Debug loo_Socket.LastErrorText
    destroy loo_Socket
    destroy loo_SbXml
    return
end if

// ...
// ...


destroy loo_Socket
destroy loo_SbXml