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

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

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;
s1: WideString;
s2: WideString;
b64: WideString;
hex: WideString;

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

crypt := TChilkatCrypt2.Create(Self);

s1 := 'This is a test / = abc 123';

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

// Use "ansi" for an unencoded ANSI string.

// Encode to URL-encoding:
s2 := crypt.ReEncode(s1,'ansi','url');
Memo1.Lines.Add(s2);

// Convert from URL-encoding to base64:

b64 := crypt.ReEncode(s2,'url','base64');
Memo1.Lines.Add(b64);

// Convert from base64 to hex:

hex := crypt.ReEncode(b64,'base64','hex');
Memo1.Lines.Add(hex);
end;