DataFlex

Decimal Integer List Encoding

See more Encryption Examples

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

Use ChilkatAx-win32.pkg

Procedure Test
    String sByteVals
    Variant vBinData
    Handle hoBinData
    Boolean iSuccess
    Handle hoSb
    String sTemp1

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

    Move "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" To sByteVals

    // Demonstrate encoding/decoding comma-separated decimal integrs to/from binary.
    Get Create (RefClass(cComChilkatBinData)) To hoBinData
    If (Not(IsComObjectCreated(hoBinData))) Begin
        Send CreateComObject of hoBinData
    End
    Get ComAppendEncoded Of hoBinData sByteVals "decList" To iSuccess

    // Examine the data in hex
    Get ComGetEncoded Of hoBinData "hex" To sTemp1
    Showln "HEX: " sTemp1

    // Decode to a StringBuilder
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSb
    If (Not(IsComObjectCreated(hoSb))) Begin
        Send CreateComObject of hoSb
    End
    Get pvComObject of hoBinData to vBinData
    Get ComAppendBd Of hoSb vBinData "us-ascii" 0 0 To iSuccess

    // The bytes were actually the us-ascii char values for the string
    // "The true sign of intelligence is not knowledge but imagination."
    Get ComGetAsString Of hoSb To sTemp1
    Showln sTemp1

    // Now get the bytes in decimal list format again:
    Get ComGetEncoded Of hoBinData "decList" To sTemp1
    Showln sTemp1

    // 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


End_Procedure