Delphi ActiveX

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.

Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
bd: TChilkatBinData;
x: Integer;
littleEndian: Integer;

begin
success := 0;

bd := TChilkatBinData.Create(Self);

// 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
littleEndian := 1;
success := bd.AppendInt4(x,littleEndian);

Memo1.Lines.Add(bd.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
littleEndian := 0;
bd.AppendInt4(x,littleEndian);

Memo1.Lines.Add(bd.GetEncoded('hex'));
// bd now contains: 15CD5B07075BCD15

// -------------------------------------------
// Now do the same thing with 16-bit integers
bd.Clear();

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

littleEndian := 1;
bd.AppendInt2(x,littleEndian);

Memo1.Lines.Add(bd.GetEncoded('hex'));
// Output is: D204

littleEndian := 0;
bd.AppendInt2(x,littleEndian);

Memo1.Lines.Add(bd.GetEncoded('hex'));
// Output is now: D20404D2
end;