Get the JWS Payload into BinData

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetPayloadBd, which writes the payload of a loaded JWS as raw bytes into a BinData.

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

begin
success := False;

jws := CkJws_Create();

//  Load the JWS compact serialization.
jwsCompact := 'eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>';
success := CkJws_LoadJws(jws,jwsCompact);
if (success = False) then
  begin
    Memo1.Lines.Add(CkJws__lastErrorText(jws));
    Exit;
  end;

//  Get the JWS payload as raw bytes into a BinData.
bdPayload := CkBinData_Create();
success := CkJws_GetPayloadBd(jws,bdPayload);
if (success = False) then
  begin
    Memo1.Lines.Add(CkJws__lastErrorText(jws));
    Exit;
  end;
Memo1.Lines.Add('Payload is ' + IntToStr(CkBinData_getNumBytes(bdPayload)) + ' bytes.');

CkJws_Dispose(jws);
CkBinData_Dispose(bdPayload);