(Tcl) Demonstrate Binary Data Encoding Methods

Demonstrates binary data encoding methods.

Note: This example requires Chilkat v9.5.0.64 or later.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set binData [new_CkBinData]

# Append 10 bytes: 00, 01, 02, 03, 04, 05, 06, 07, 08, 09
CkBinData_AppendEncoded $binData "00010203040506070809" "hex"

# Show that binData contains 10 bytes.
puts "num bytes = [CkBinData_get_NumBytes $binData]"

# Get as base64
puts "base64: [CkBinData_getEncoded $binData base64]"

# Get a chunk of the binary data.
# The 1st byte is at index 0.
# The output should be "02030405"
set offset 2
set numBytes 4
puts "chunk: [CkBinData_getEncodedChunk $binData $offset $numBytes hex]"

# Copy the bytes to a StringBuilder using the base64url encoding
set sb [new_CkStringBuilder]

CkBinData_GetEncodedSb $binData "base64url" $sb
puts "base64url: [CkStringBuilder_getAsString $sb]"

# Remove a chunk from the binary data
set offset 2
set numBytes 4
CkBinData_RemoveChunk $binData $offset $numBytes
# The bytes remaining are 00,01,06,07,08,and 09
puts "after removing chunk: [CkBinData_getEncoded $binData hex]"

delete_CkBinData $binData
delete_CkStringBuilder $sb