TCEFOAuth2Helper

type TCEFOAuth2Helper = class

protected

  FRedirectHost: ustring;

  FRedirectPort: Integer;

  FAuthEndpoint: ustring;

  FTokenEndpoint: ustring;

  FClientID: ustring;

  FClientSecret: ustring;

  FAuthCode: ustring;

  FError: ustring;

  FErrorDescription: ustring;

  FCodeVerifier: ustring;

  FCodeChallenge: ustring;

  FScope: ustring;

  FAccessToken: ustring;

  FIDToken: ustring;

  FState: ustring;

  FIncState: ustring;

  FRefreshToken: ustring;

  FTokenExpiry: Integer;

  FTokenType: ustring;

  FLoginHint: ustring;

  FChallengeMethod: TOAuthChallengeMethod;

  function GetRedirectURI; virtual;

  function GetAuthCodeURI; virtual;

  function GetRefreshParams; virtual;

  function GetTokeExchangeParams; virtual;

  function GetValidState; virtual;

  procedure GenerateRandomCodeChallenge; virtual;

  procedure GenerateRandomState; virtual;

  function GenerateRandomString();

  procedure ParseQueryPair();

  function ReadJSONString();

  function ReadJSONInteger();

  function CalculateSHA256Hash();

public

  constructor Create;

  procedure Initialize; virtual;

  function ParseTokenExchangeResponse(); virtual;

  function ParseRefreshTokenResponse(); virtual;

  function ParseCodeRequestResponse(); virtual;

  property AuthEndpoint: ustring; [rw]

  property TokenEndpoint: ustring; [rw]

  property ClientID: ustring; [rw]

  property ClientSecret: ustring; [rw]

  property RedirectHost: ustring; [rw]

  property RedirectPort: Integer; [rw]

  property ChallengeMethod: TOAuthChallengeMethod; [rw]

  property Scope: ustring; [rw]

  property Error: ustring; [r]

  property ErrorDescription: ustring; [r]

  property AccessToken: ustring; [r]

  property IDToken: ustring; [r]

  property RefreshToken: ustring; [r]

  property TokenExpiry: Integer; [r]

  property TokenType: ustring; [r]

  property CodeVerifier: ustring; [r]

  property CodeChallenge: ustring; [r]

  property RedirectURI: ustring; [r]

  property AuthCodeURI: ustring; [r]

  property TokeExchangeParams: ustring; [r]

  property RefreshParams: ustring; [r]

  property ValidState: Boolean; [r]

end;

TCEFOAuth2Helper

TObject