Delphi ActiveX

Re-Encode (How to convert encodings)

See more Encryption Examples

Demonstrates how to convert a string from one encoding to another. 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
crypt: TChilkatCrypt2;
hex: WideString;
b64: WideString;
b32: WideString;

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

crypt := TChilkatCrypt2.Create(Self);

// 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');
Memo1.Lines.Add('base64: ' + b64);

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

// Convert from base32 back to hex
hex := crypt.ReEncode(b32,'base32','hex');
Memo1.Lines.Add('hex: ' + hex);
end;