Delphi ActiveX

Shopware 6 - Get OAuth2 Access Token using Username and Password

See more Shopware 6 Examples

Demonstrates how to get an OAuth2 access token using your username and password. 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
success: Integer;
http: TChilkatHttp;
json: TChilkatJsonObject;
resp: TChilkatHttpResponse;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
token_type: WideString;
expires_in: Integer;
access_token: WideString;
refresh_token: WideString;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

// Sends the following POST

// 	{
// 	    "client_id": "administration",
// 	    "grant_type": "password",
// 	    "scopes": "write",
// 	    "username": "<user-username>",
// 	    "password": "<user-password>"
// 	}

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

// The following JSON is sent in the request body.

json := TChilkatJsonObject.Create(Self);
json.UpdateString('client_id','administration');
json.UpdateString('grant_type','password');
json.UpdateString('scopes','write');
json.UpdateString('username','<user-username>');
json.UpdateString('password','<user-password>');

resp := TChilkatHttpResponse.Create(Self);
success := http.HttpJson('POST','https://my-shopware-6-shop.de/api/oauth/token',json.ControlInterface,'application/json',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

sbResponseBody := TChilkatStringBuilder.Create(Self);
resp.GetBodySb(sbResponseBody.ControlInterface);
jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());

respStatusCode := resp.StatusCode;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "token_type": "Bearer",
//   "expires_in": 600,
//   "access_token": "xxxxxxxxxxxxxx",
//   "refresh_token": "token"
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

token_type := jResp.StringOf('token_type');
expires_in := jResp.IntOf('expires_in');
access_token := jResp.StringOf('access_token');
refresh_token := jResp.StringOf('refresh_token');

// Save our JSON to a file (to be used in other examples..)
success := jResp.WriteFile('qa_data/tokens/shopware6.json');
end;