Delphi DLL

Decimal Integer List Encoding

See more Encryption Examples

The "decList" encoding was added in Chilkat v9.5.0.66 to encode and decode binary bytes from comma-separated decimal integers. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
byteVals: PWideChar;
binData: HCkBinData;
sb: HCkStringBuilder;

begin
// Note: This example requires Chilkat v9.5.0.66 or greater.

byteVals := '84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46';

// Demonstrate encoding/decoding comma-separated decimal integrs to/from binary.
binData := CkBinData_Create();
CkBinData_AppendEncoded(binData,byteVals,'decList');

// Examine the data in hex
Memo1.Lines.Add('HEX: ' + CkBinData__getEncoded(binData,'hex'));

// Decode to a StringBuilder
sb := CkStringBuilder_Create();
CkStringBuilder_AppendBd(sb,binData,'us-ascii',0,0);

// The bytes were actually the us-ascii char values for the string
// "The true sign of intelligence is not knowledge but imagination."
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));

// Now get the bytes in decimal list format again:
Memo1.Lines.Add(CkBinData__getEncoded(binData,'decList'));

// The output of this example is:
// HEX: 5468652074727565207369676E206F6620696E74656C6C6967656E6365206973206E6F74206B6E6F776C656467652062757420696D6167696E6174696F6E2E
// The true sign of intelligence is not knowledge but imagination.
// 84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46

CkBinData_Dispose(binData);
CkStringBuilder_Dispose(sb);

end;