(Visual FoxPro) Demonstrate Binary Data Encoding Methods

Demonstrates binary data encoding methods.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loBinData
LOCAL lnOffset
LOCAL lnNumBytes
LOCAL loSb

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBinData = CreateObject('Chilkat.BinData')

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

* Show that binData contains 10 bytes.
? "num bytes = " + STR(loBinData.NumBytes)

* Get as base64
? "base64: " + loBinData.GetEncoded("base64")

* Get a chunk of the binary data.
* The 1st byte is at index 0.
* The output should be "02030405"
lnOffset = 2
lnNumBytes = 4
? "chunk: " + loBinData.GetEncodedChunk(lnOffset,lnNumBytes,"hex")

* Copy the bytes to a StringBuilder using the base64url encoding
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')
loBinData.GetEncodedSb("base64url",loSb)
? "base64url: " + loSb.GetAsString()

* Remove a chunk from the binary data
lnOffset = 2
lnNumBytes = 4
loBinData.RemoveChunk(lnOffset,lnNumBytes)
* The bytes remaining are 00,01,06,07,08,and 09
? "after removing chunk: " + loBinData.GetEncoded("hex")

RELEASE loBinData
RELEASE loSb