Pascal (Lazarus/Delphi)

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. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.BinData,
  Chilkat.StringBuilder;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  byteVals: string;
  binData: TBinData;
  sb: TStringBuilder;

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 := TBinData.Create;
  binData.AppendEncoded(byteVals,'decList');

  //  Examine the data in hex
  WriteLn('HEX: ' + binData.GetEncoded('hex'));

  //  Decode to a StringBuilder
  sb := TStringBuilder.Create;
  sb.AppendBd(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."
  WriteLn(sb.GetAsString());

  //  Now get the bytes in decimal list format again:
  WriteLn(binData.GetEncoded('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


  binData.Free;
  sb.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.