Visual Basic 6.0

Demonstrate Binary Data Encoding Methods

Demonstrates binary data encoding methods.

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

Visual Basic 6.0

Dim binData As New ChilkatBinData

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

' Show that binData contains 10 bytes.
Debug.Print "num bytes = " & binData.NumBytes

' Get as base64
Debug.Print "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 Long
offset = 2
Dim numBytes As Long
numBytes = 4
Debug.Print "chunk: " & binData.GetEncodedChunk(offset,numBytes,"hex")

' Copy the bytes to a StringBuilder using the base64url encoding
Dim sb As New ChilkatStringBuilder
success = binData.GetEncodedSb("base64url",sb)
Debug.Print "base64url: " & sb.GetAsString()

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