Pascal (Lazarus/Delphi)

Adding an Authorization Bearer (Token) Header to HTTP Requests

See more uncategorized Examples

Demonstrates how to add a token to HTTP requests for authorization. Pascal (Lazarus/Delphi)

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.Http;

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

procedure RunDemo;
var
  http: THttp;
  responseStr: string;

begin
  //  This example assumes 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.
  //  This applies to any of the Chilkat method calls that send a GET, POST, PUT, PATCH, or anything else..
  http.AuthToken := 'ya29.a0Ad52N3_4P_LpZS......WZr44LJ6w017';

  //  For example:
  responseStr := http.QuickGetStr('https://www.chilkatsoft.com/helloWorld.xml');
  WriteLn(responseStr);

  //  The following HTTP request is sent in the above call.

  //  GET /helloWorld.xml HTTP/1.1
  //  Host: www.chilkatsoft.com
  //  Accept: */*
  //  Accept-Encoding: gzip
  //  Authorization: Bearer ya29.a0Ad52N3_4P_LpZS......WZr44LJ6w017


  http.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.