Re-Encode (How to convert encodings)

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

Download Chilkat Crypt ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCRYPT2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
s1: String;
s2: String;
b64: String;
hex: String;

begin

crypt := TChilkatCrypt2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := crypt.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage(crypt.LastErrorText);
    Exit;
  end;

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", and "ansi"
//  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;