Delphi DLL

StringBuilder GetEncoded

Demonstrates the Chilkat StringBuilder GetEncoded method. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
s: PWideChar;
sb: HCkStringBuilder;

begin
s := 'The quick brown fox jumps over the lazy dog';

sb := CkStringBuilder_Create();

CkStringBuilder_Append(sb,s);

// output: The quick brown fox jumps over the lazy dog
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));

// Get the string encoded to base64, without changing the contents of sb.
// output: VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wcyBvdmVyIHRoZSBsYXp5IGRvZw==
Memo1.Lines.Add(CkStringBuilder__getEncoded(sb,'base64','utf-8'));

// The contents of sb are not changed..
// output: The quick brown fox jumps over the lazy dog
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));

CkStringBuilder_Dispose(sb);

end;