(PowerBuilder) Load ucs2 XML File (utf-16)

Demonstrates how to load a ucs2 (utf-16 little-endian) XML file into Chilkat XML.

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

integer li_rc
oleobject loo_Xml
integer li_Success
oleobject loo_Sb

// If the XML file specifies the encoding in the XML declaration, such as:
// <?xml version = "1.0" encoding = "UTF-16" standalone = "no" ?>
// Then it's simply a matter of calling LoadXmlFile.
// Chilkat will automatically read the XML declaration and will
// process the file correctly.   For example:

loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Xml.LoadXmlFile("qa_data/xml/sample_ucs2.xml")

// If, however, there is no XML declaration to indicate the character encoding,
// then you must explicitly read the file according to what you know
// is the correct encoding.  For example:
loo_Sb = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_Sb.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Sb.LoadFile("qa_data/xml/sample_ucs2.xml","utf-16")
// Assuming success...
li_Success = loo_Xml.LoadSb(loo_Sb,1)

// To convert to the XML from utf-16 to utf-8, do the following:
loo_Xml.Encoding = "utf-8"
Write-Debug loo_Xml.GetXml()
li_Success = loo_Xml.SaveXml("qa_output/sample_utf8.xml")


destroy loo_Xml
destroy loo_Sb