(PowerBuilder) Appending Strings to BinData

Demonstrates appending strings to a BinData..

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

integer li_rc
oleobject loo_BinData1
oleobject loo_BinData2

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

// Append a string using a 1-byte per char encoding
loo_BinData1.AppendString("This is a test","windows-1252")
Write-Debug loo_BinData1.GetEncoded("hex")
// The bytes contained within the binData1 (in hex) are: 54,68,69,73,20,69, ...

loo_BinData2 = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_BinData2.ConnectToNewObject("Chilkat.BinData")

// Append a string using a 2-byte per char encoding
loo_BinData2.AppendString("This is a test","utf-16")
Write-Debug loo_BinData2.GetEncoded("hex")
// The bytes contained within the binData2 (in hex) are: 54,00,68,00,69,00,73,00,20,00,69,00, ...


destroy loo_BinData1
destroy loo_BinData2