Visual FoxPro

Append Big-Endian or Little-Endian Integers

Demonstrates how to append integers in big-endian or little-endian byte order to a BinData.

Note: This example requires Chilkat v9.5.0.77 or greater.

Visual FoxPro

LOCAL lnSuccess
LOCAL loBd
LOCAL x
LOCAL lnLittleEndian

lnSuccess = 0

loBd = CreateObject('Chilkat.BinData')

* The hex value of decimal 123456789 is 0x075BCD15
x = 123456789

* Appending little-endian causes bytes to be
* appended in the order 0x15, 0xCD, 0x5B, 0x07
lnLittleEndian = 1
lnSuccess = loBd.AppendInt4(x,lnLittleEndian)

? loBd.GetEncoded("hex")
* Output is: 15CD5B07

* Now append the same integer in big-endian byte order.
* Appending bit-endian causes bytes to be
* appended in the order 0x07, 0x5B, 0xCD, 0x15
lnLittleEndian = 0
loBd.AppendInt4(x,lnLittleEndian)

? loBd.GetEncoded("hex")
* bd now contains: 15CD5B07075BCD15

* -------------------------------------------
* Now do the same thing with 16-bit integers
loBd.Clear()

* 1234 decimal = 0x04D2 hex.
x = 1234

lnLittleEndian = 1
loBd.AppendInt2(x,lnLittleEndian)

? loBd.GetEncoded("hex")
* Output is: D204

lnLittleEndian = 0
loBd.AppendInt2(x,lnLittleEndian)

? loBd.GetEncoded("hex")
* Output is now: D20404D2

RELEASE loBd