(Tcl) Demonstrate Binary Data Encoding Methods
Demonstrates binary data encoding methods.
Note: This example requires Chilkat v9.5.0.64 or later.
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
|
