(Delphi DLL) Re-Encode (How to convert encodings)

Demonstrates how to convert a string from one encoding to another.

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;
hex: PWideChar;
b64: PWideChar;
b32: PWideChar;

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

crypt := CkCrypt2_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 := CkCrypt2__reEncode(crypt,hex,'hex','base64');
Memo1.Lines.Add('base64: ' + b64);

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

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

CkCrypt2_Dispose(crypt);

end;