(Classic ASP) 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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Socket")
set socket = Server.CreateObject("Chilkat.Socket")

tls = 0
maxWaitMs = 20000
domainOrIpAddr = "example.com"
port = 1234

' Connect to the whatever is expecting our connection...
success = socket.Connect(domainOrIpAddr,port,tls,maxWaitMs)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>"
    Response.End
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..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbXml = Server.CreateObject("Chilkat.StringBuilder")
success = sbXml.LoadFile("qa_data/xml/myUtf16.xml","utf-16")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load utf-16 XML file..") & "</pre>"
    Response.End
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 <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>"
    Response.End
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 <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>"
    Response.End
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 <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load utf-8 XML file..") & "</pre>"
    Response.End
End If

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

' Send the string as utf-16 bytes.
success = socket.SendSb(sbXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>"
    Response.End
End If

' ...
' ...

%>
</body>
</html>