|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual FoxPro) Send UTF-16 on TCP or TLS SocketSee more Socket/SSL/TLS ExamplesDemonstrates 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.
LOCAL loSocket LOCAL lnTls LOCAL lnMaxWaitMs LOCAL lcDomainOrIpAddr LOCAL lnPort LOCAL lnSuccess LOCAL loSbXml * 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') 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.. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') 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 |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.