TGoogleAPIClient

type TGoogleAPIClient = class(TComponent)

protected

  procedure Notification(); override;

  function GetAuthHandler;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure LoadCredentials();

  procedure LoadCredentialsFromJSON();

  procedure LoadCredentialsFromIni();

  procedure ConfigureService();

  function HasCredentials;

  function HasAccessToken;

  function NeedsTokenRefresh;

  property AuthHandler: TGoogleOAuth2Handler; [r]

published

  property WebClient: TAbstractWebClient; [rw]

  property ClientID: string; [rw]

  property ClientSecret: string; [rw]

  property Scopes: string; [rw]

  property RedirectUri: string; [rw]

  property AuthURL: string; [rw]

  property TokenURL: string; [rw]

  property AccessToken: string; [rw]

  property RefreshToken: string; [rw]

  property OnUserConsent: TUserConsentHandler; [rw]

end;

TGoogleAPIClient

TObject