Pascal (Lazarus/Delphi)

Re-Encode (How to convert encodings)

See more Encryption Examples

Demonstrates how to convert a string from one encoding to another. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Crypt2;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  crypt: TCrypt2;
  hex: string;
  b64: string;
  b32: string;

begin
  //  This example assumes the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  crypt := TCrypt2.Create;

  //  Here are some bytes as a hex string
  hex := '4142434445462140232425';

  //  The ReEncode method converts a string from one encoding to another.
  //  Valid encodings are "url", "base64", "qp", "hex", "modbase64", "base64url", "base32", "base58", 
  //  and any of the encodings listed here:  http://cknotes.com/chilkat-binary-encoding-list/

  //  Convert from hex to base64
  b64 := crypt.ReEncode(hex,'hex','base64');
  WriteLn('base64: ' + b64);

  //  Convert from base64 to base32
  b32 := crypt.ReEncode(b64,'base64','base32');
  WriteLn('base32: ' + b32);

  //  Convert from base32 back to hex
  hex := crypt.ReEncode(b32,'base32','hex');
  WriteLn('hex: ' + hex);


  crypt.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.