(Delphi DLL) UN/EDIFACT Syntax Level A Encoding/Decoding

Demonstrates the new "eda" encoding that can be used throughout Chilkat starting in v9.5.0.65.

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, Crypt2, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
sb: HCkStringBuilder;
crypt: HCkCrypt2;
ivHex: PWideChar;
keyHex: PWideChar;
encStr: PWideChar;
decStr: PWideChar;

begin
// Note: Requires Chilkat v9.5.0.65 or greater.

sb := CkStringBuilder_Create();
CkStringBuilder_Append(sb,'The 5 men of 223rd St');
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));

// Encode the utf-8 byte representation of the string in the 
// UN/EDIFACT syntax level A character set.
CkStringBuilder_Encode(sb,'eda','utf-8');
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));

// EDA Output should be: BTME027FCF6CFARFI94JT6.)F(14KJ2U

// Decode back to the original string.
CkStringBuilder_Decode(sb,'eda','utf-8');
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
Memo1.Lines.Add('----');

// The following requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// The "eda" encoding can be used anywhere within Chilkat.
// For example, with the Crypt2 API
crypt := CkCrypt2_Create();
CkCrypt2_putCryptAlgorithm(crypt,'aes');
CkCrypt2_putCipherMode(crypt,'cbc');
CkCrypt2_putKeyLength(crypt,256);
CkCrypt2_putEncodingMode(crypt,'eda');

ivHex := '000102030405060708090A0B0C0D0E0F';
CkCrypt2_SetEncodedIV(crypt,ivHex,'hex');
keyHex := '000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F';
CkCrypt2_SetEncodedKey(crypt,keyHex,'hex');

encStr := CkCrypt2__encryptStringENC(crypt,'The quick brown fox jumps over the lazy dog.');
// The output is UN/EDIFACT syntax level A 
Memo1.Lines.Add(encStr);

// Now decrypt:
decStr := CkCrypt2__decryptStringENC(crypt,encStr);
Memo1.Lines.Add(decStr);

CkStringBuilder_Dispose(sb);
CkCrypt2_Dispose(crypt);

end;