B4X

Demonstrate Binary Data Encoding Methods

Demonstrates binary data encoding methods.

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

B4X

Dim binData As ChilkatBinData
binData.Initialize

'  Append 10 bytes: 00, 01, 02, 03, 04, 05, 06, 07, 08, 09
binData.AppendEncoded("00010203040506070809", "hex")

'  Show that binData contains 10 bytes.
Log("num bytes = " & binData.NumBytes)

'  Get as base64
Log("base64: " & binData.GetEncoded("base64"))

'  Get a chunk of the binary data.
'  The 1st byte is at index 0.
'  The output should be "02030405"
Dim offset As Int = 2
Dim numBytes As Int = 4
Log("chunk: " & binData.GetEncodedChunk(offset, numBytes, "hex"))

'  Copy the bytes to a StringBuilder using the base64url encoding
Dim sb As ChilkatStringBuilder
sb.Initialize
binData.GetEncodedSb("base64url", sb)
Log("base64url: " & sb.GetAsString)


'  Remove a chunk from the binary data
offset = 2
numBytes = 4
binData.RemoveChunk(offset, numBytes)
'  The bytes remaining are 00,01,06,07,08,and 09
Log("after removing chunk: " & binData.GetEncoded("hex"))