AutoIt

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. AutoIt

Local $bSuccess = False

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

$oSocket = ObjCreate("Chilkat.Socket")

Local $bTls = False
Local $iMaxWaitMs = 20000
Local $sDomainOrIpAddr = "example.com"
Local $iPort = 1234

; Connect to the whatever is expecting our connection...
$bSuccess = $oSocket.Connect($sDomainOrIpAddr,$iPort,$bTls,$iMaxWaitMs)
If ($bSuccess <> True) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
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 = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oSbXml.LoadFile("qa_data/xml/myUtf16.xml","utf-16")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load utf-16 XML file.." & @CRLF)
    Exit
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.
$bSuccess = $oSocket.SendSb($oSbXml)
If ($bSuccess <> True) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
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.
$bSuccess = $oSocket.SendSb($oSbXml)
If ($bSuccess <> True) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
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).
$bSuccess = $oSbXml.LoadFile("qa_data/xml/myUtf8.xml","utf-8")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load utf-8 XML file.." & @CRLF)
    Exit
EndIf

; Send as utf-16
$oSocket.StringCharset = "utf-16"

; Send the string as utf-16 bytes.
$bSuccess = $oSocket.SendSb($oSbXml)
If ($bSuccess <> True) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
EndIf

; ...
; ...