Delphi ActiveX

Decode from Binary Encoding and Append String

Demonstrates how to decode from a binary encoding (base64, hex, url, etc.) and then append the decoded string to a Chilkat StringBuilder object.

Note: This example uses the new DecodeAndAppend method added in Chilkat v9.5.0.87.

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
success: Integer;
nameWindows1252UrlEncoded: WideString;
nameUtf8UrlEncoded: WideString;
sb1: TChilkatStringBuilder;
sb2: TChilkatStringBuilder;
bEqual: Integer;

begin
success := 0;

// We have the string "MÆRSK" in two forms:

// This is the URL encoding of the windows-1252 representation.
nameWindows1252UrlEncoded := 'M%C6RSK';

// This is the URL encoding of the utf-8 representation.
nameUtf8UrlEncoded := 'M%C3%86RSK';

// Note that the result of loading a string into a string object 
// is the same if we correctly specify the underlying charset encoding.
// In the above example, we have the same string, but in different charset encodings
// subsequently URL encoded.
sb1 := TChilkatStringBuilder.Create(Self);
success := sb1.DecodeAndAppend(nameWindows1252UrlEncoded,'url','windows-1252');

sb2 := TChilkatStringBuilder.Create(Self);
success := sb2.DecodeAndAppend(nameUtf8UrlEncoded,'url','utf-8');

// sb1 and sb2 both hold the same string.
bEqual := sb1.ContentsEqualSb(sb2.ControlInterface,1);
Memo1.Lines.Add('bEqual = ' + IntToStr(Ord(bEqual)));

// We can see the string is "MÆRSK" in both cases.
Memo1.Lines.Add(sb1.GetAsString());
Memo1.Lines.Add(sb2.GetAsString());
end;