(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: HCkCrypt2;
value: Integer;
bLittleEndian: Boolean;
s: PWideChar;

begin
crypt := CkCrypt2_Create();

// 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 := True;
s := CkCrypt2__encodeInt(crypt,value,8,bLittleEndian,'hex');
// The output is: 5634120000000000
Memo1.Lines.Add(s);

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

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

CkCrypt2_Dispose(crypt);

end;