Delphi ActiveX

Dynamics CRM Oauth2 Client Credentials

See more Dynamics CRM Examples

Get an OAuth2 access token for Dynamics CRM using client credentials. 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;
req: TChilkatHttpRequest;
url: WideString;
resp: TChilkatHttpResponse;
statusCode: Integer;
json: TChilkatJsonObject;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

// Pass the client ID/secret using Basic HTTP authentication.
http.Login := 'CLIENT_ID';
http.Password := 'CLIENT_SECRET';
http.BasicAuth := 1;

req := TChilkatHttpRequest.Create(Self);
req.AddParam('client_secret','CLIENT_SECRET');
req.AddParam('client_id','CLIENT_ID');
req.AddParam('scope','https://yourdynamicsdomain.crm3.dynamics.com/.default');
req.AddParam('grant_type','client_credentials');

// Use your own tenant ID, for example 4d8fdd66-66d1-43b0-ae5c-e31b4b7de5cd
url := 'https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token';
req.HttpVerb := 'POST';
req.ContentType := 'application/x-www-form-urlencoded';

resp := TChilkatHttpResponse.Create(Self);
success := http.HttpReq(url,req.ControlInterface,resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

statusCode := resp.StatusCode;
Memo1.Lines.Add('Response status code = ' + IntToStr(statusCode));

json := TChilkatJsonObject.Create(Self);
json.Load(resp.BodyStr);

json.EmitCompact := 0;
Memo1.Lines.Add(json.Emit());

if (statusCode = 200) then
  begin
    json.WriteFile('qa_data/tokens/dynamicsCrmClientCredentialsToken.json');
    Memo1.Lines.Add('Success.');
  end
else
  begin
    Memo1.Lines.Add('Failed.');
  end;
end;