(Delphi DLL) Appending Strings to BinData

Demonstrates appending strings to a BinData..

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
binData1: HCkBinData;
binData2: HCkBinData;

begin
binData1 := CkBinData_Create();

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

binData2 := CkBinData_Create();

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

CkBinData_Dispose(binData1);
CkBinData_Dispose(binData2);

end;