(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.

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

LOCAL loBd
LOCAL x
LOCAL lnLittleEndian
LOCAL lnSuccess

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
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