(PowerBuilder) Decimal Integer List Encoding

The "decList" encoding was added in Chilkat v9.5.0.66 to encode and decode binary bytes from comma-separated decimal integers.

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

integer li_rc
string ls_ByteVals
oleobject loo_BinData
oleobject loo_Sb

// Note: This example requires Chilkat v9.5.0.66 or greater.

ls_ByteVals = "84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46"

// Demonstrate encoding/decoding comma-separated decimal integrs to/from binary.
loo_BinData = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_BinData.ConnectToNewObject("Chilkat.BinData")
if li_rc < 0 then
    destroy loo_BinData
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_BinData.AppendEncoded(ls_ByteVals,"decList")

// Examine the data in hex
Write-Debug "HEX: " + loo_BinData.GetEncoded("hex")

// Decode to a StringBuilder
loo_Sb = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_Sb.ConnectToNewObject("Chilkat.StringBuilder")

loo_Sb.AppendBd(loo_BinData,"us-ascii",0,0)

// The bytes were actually the us-ascii char values for the string
// "The true sign of intelligence is not knowledge but imagination."
Write-Debug loo_Sb.GetAsString()

// Now get the bytes in decimal list format again:
Write-Debug loo_BinData.GetEncoded("decList")

// The output of this example is:
// HEX: 5468652074727565207369676E206F6620696E74656C6C6967656E6365206973206E6F74206B6E6F776C656467652062757420696D6167696E6174696F6E2E
// The true sign of intelligence is not knowledge but imagination.
// 84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46


destroy loo_BinData
destroy loo_Sb