Delphi DLL

Set the JWS Payload from BinData

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetPayloadBd, which sets the payload to be signed from the binary bytes in a BinData.

Background. JWS (JSON Web Signature) integrity-protects a payload with a signature or MAC. The header alg names the algorithm; this example uses HMAC-SHA256 (HS256) with a symmetric MAC key.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
jws: HCkJws;
bdPayload: HCkBinData;

begin
success := False;

jws := CkJws_Create();

//  Set the payload from the binary bytes in a BinData.
bdPayload := CkBinData_Create();
CkBinData_AppendString(bdPayload,'Binary content to sign.','utf-8');

success := CkJws_SetPayloadBd(jws,bdPayload);
if (success = False) then
  begin
    Memo1.Lines.Add(CkJws__lastErrorText(jws));
    Exit;
  end;
Memo1.Lines.Add('Payload set.');

CkJws_Dispose(jws);
CkBinData_Dispose(bdPayload);