Delphi DLL

Explicitly set the OAuth2 Access Token

This example shows how to set the AuthToken property using a previously obtained access token. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
json: HCkJsonObject;
http: HCkHttp;

begin
success := False;

// Assume we previously obtained JSON containing the access token such as this:

// 	{
// 	 "access_token": "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ",
// 	 "token_type": "Bearer",
// 	 "expires_in": 3600,
// 	 "refresh_token": "1/r_2c_7jddspcdfesrrfKqfXtqo08D6Q-gUU0DsdfVMsx0c"
// 	}
// 

// Load the JSON and use the access_token to authenticate an HTTP request.
json := CkJsonObject_Create();
success := CkJsonObject_LoadFile(json,'c:/someDir/tokens/myToken.json');

http := CkHttp_Create();

// After setting this property, all HTTP requests sent using this object instance
// will include the request header: Authorization: Bearer <access_token> 
CkHttp_putAuthToken(http,CkJsonObject__stringOf(json,'access_token'));

// ...
// ..

CkJsonObject_Dispose(json);
CkHttp_Dispose(http);

end;