(Delphi DLL) Adding an Authorization Bearer (Token) Header to HTTP Requests

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

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
responseStr: PWideChar;

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

http := CkHttp_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..
CkHttp_putAuthToken(http,'ya29.a0Ad52N3_4P_LpZS......WZr44LJ6w017');

// For example:
responseStr := CkHttp__quickGetStr(http,'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

CkHttp_Dispose(http);

end;