(Delphi ActiveX) Encode Integer to Hex or Base64 using N Bytes

Demonstrates how to write an integer to N bytes (little-endian or big-endian) and return the bytes in any encoding such as hex, base64, etc.

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

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
crypt: TChilkatCrypt2;
value: Integer;
bLittleEndian: Integer;
s: WideString;

begin
crypt := TChilkatCrypt2.Create(Self);

// 1193046 decimal is equal to 0x123456 hex.
value := 1193046;

// Write the integer in 8 bytes using little-endian byte-order and return as hex
bLittleEndian := 1;
s := crypt.EncodeInt(value,8,bLittleEndian,'hex');
// The output is: 5634120000000000
Memo1.Lines.Add(s);

// Now use big-endian...
bLittleEndian := 0;
s := crypt.EncodeInt(value,8,bLittleEndian,'hex');
// The output is: 0000000000123456
Memo1.Lines.Add(s);

// Instead of hex, get the 8 bytes using base64.
s := crypt.EncodeInt(value,8,bLittleEndian,'base64');
// The output is: AAAAAAASNFY=
Memo1.Lines.Add(s);
end;