Delphi ActiveX

Appending Strings to BinData

Demonstrates appending strings to a BinData.. 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
binData1: TChilkatBinData;
binData2: TChilkatBinData;

begin
binData1 := TChilkatBinData.Create(Self);

// Append a string using a 1-byte per char encoding
binData1.AppendString('This is a test','windows-1252');
Memo1.Lines.Add(binData1.GetEncoded('hex'));
// The bytes contained within the binData1 (in hex) are: 54,68,69,73,20,69, ...

binData2 := TChilkatBinData.Create(Self);

// Append a string using a 2-byte per char encoding
binData2.AppendString('This is a test','utf-16');
Memo1.Lines.Add(binData2.GetEncoded('hex'));
// The bytes contained within the binData2 (in hex) are: 54,00,68,00,69,00,73,00,20,00,69,00, ...
end;