HTTPS GET Request with Authorization Bearer Header

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.JsonObject,
  Chilkat.Http;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  http: THttp;
  responseText: string;
  json: TJsonObject;

begin
  success := False;

  //  This example requires the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  http := THttp.Create;

  //  Setting the AuthToken property causes the "Authorization: Bearer <token>" header to be added to each request.
  //  Set AuthToken equal to your token without the keyword "Bearer".
  http.AuthToken := 'Your access token';

  //  Send the GET request and get the response text (assuming you know beforehand that the response will be text, such as JSON, XML, HTML, etc.)
  responseText := http.QuickGetStr('https://www.example.com/something');
  if (http.LastMethodSuccess = False) then
    begin
      //  This means something failed where you did not get an HTTP response.
      WriteLn(http.LastErrorText);
      Exit;
    end;

  //  If you get here, then you received an HTTP response where you can check the response status code, and the responseText will contain
  //  the response body.
  WriteLn('Response status code = ' + http.LastStatus);
  if (http.LastStatus <> 200) then
    begin
      //  Probably an error from the server.  Examine the HTTP response body.
      WriteLn(responseText);
      Exit;
    end;

  //  If you get here, the response status code was the expected value indicating success,
  //  if you know the response is JSON, you can load it into a Chilkat JSON object and continue ...
  json := TJsonObject.Create;
  json.EmitCompact := True;
  json.Load(responseText);
  WriteLn(json.Emit());

  //  Use this online tool to generate parsing code from sample JSON: 
  //  Generate Parsing Code from JSON

  //  ...
  //  ...


  http.Free;
  json.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.