Delphi ActiveX

Adding an Authorization Bearer (Token) Header to HTTP Requests

See more uncategorized Examples

Demonstrates how to add a token to HTTP requests for authorization. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
responseStr: WideString;

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

http := TChilkatHttp.Create(Self);

// 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');
Memo1.Lines.Add(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
end;