Delphi DLL

Get the JWS Payload into a StringBuilder

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetPayloadSb, which writes the payload of a loaded JWS as text into a StringBuilder, decoded using the given charset.

Delphi DLL

var
success: Boolean;
jws: HCkJws;
jwsCompact: PWideChar;
sbPayload: HCkStringBuilder;

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 text into a StringBuilder, decoded using the given charset.
sbPayload := CkStringBuilder_Create();
success := CkJws_GetPayloadSb(jws,'utf-8',sbPayload);
if (success = False) then
  begin
    Memo1.Lines.Add(CkJws__lastErrorText(jws));
    Exit;
  end;
Memo1.Lines.Add(CkStringBuilder__getAsString(sbPayload));

CkJws_Dispose(jws);
CkStringBuilder_Dispose(sbPayload);