TFCMClient

type TFCMClient = class(TComponent)

protected

  procedure Notification(); override;

  function GetSendEndPoint();

  function GenerateJWT;

  function GetAccessToken;

  procedure FetchAccessToken(); virtual;

  procedure HandlePost(); virtual;

  function CreateWebClient; virtual;

  procedure HandleTokenResponse();

  procedure HandlePostResponse();

  function ExceptionToString(); virtual;

  function HandleError(); virtual;

  procedure HandleNewBearerToken; virtual;

  procedure HandleAccessToken; virtual;

  function HandleResponse(); virtual;

  function Post();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure InitServiceAccount();

  property WebClient: TAbstractWebClient; [rw]

  function Send();

  property BearerToken: TBearerToken; [rw]

  property ServiceAccount: TServiceAccountData; [r]

  property OnError: TFCMErrorEvent; [rw]

  property OnNewBearerToken: TFCMBearerTokenEvent; [rw]

  property OnResponse: TFCMResponseEvent; [rw]

  property LogFile: string; [rw]

end;

TFCMClient

TObject