Xbase++

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.

Xbase++

LOCAL nSuccess
LOCAL oBd
LOCAL x
LOCAL nLittleEndian

nSuccess := 0

oBd := 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
nLittleEndian := 1
nSuccess := oBd:AppendInt4(x, nLittleEndian)

? oBd: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
nLittleEndian := 0
oBd:AppendInt4(x, nLittleEndian)

? oBd:GetEncoded("hex")
//  bd now contains: 15CD5B07075BCD15

//  -------------------------------------------
//  Now do the same thing with 16-bit integers
oBd:Clear()

//  1234 decimal = 0x04D2 hex.
x := 1234

nLittleEndian := 1
oBd:AppendInt2(x, nLittleEndian)

? oBd:GetEncoded("hex")
//  Output is: D204

nLittleEndian := 0
oBd:AppendInt2(x, nLittleEndian)

? oBd:GetEncoded("hex")
//  Output is now: D20404D2

oBd:destroy()