TBaseJWT

type TBaseJWT = class(TPersistent)

protected

  function WriteProp(); virtual;

  function GetAsEncodedString; virtual;

  procedure SetAsEncodedString(); virtual;

  function GetAsString; virtual;

  procedure SetAsString(); virtual;

  procedure DoLoadFromJSON(); virtual;

  procedure DoSaveToJSON(); virtual;

public

  constructor Create; virtual;

  procedure LoadFromJSON();

  procedure SaveToJSON();

  class function Base64ToBase64URL(); deprecated ;

  class function Base64URLToBase64(); deprecated ;

  class function DecodeString();

  class function DecodeStringToJSON();

  property AsString: TJSONStringType; [rw]

  property AsEncodedString: string; [rw]

end;

TBaseJWT

TObject