Delphi ActiveX

Microsoft Graph -- List Users

See more Microsoft Graph Examples

Retrieve a list of Microsoft Graph user objects. 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;
sbResponse: TChilkatStringBuilder;
odata_id: WideString;
displayName: WideString;
givenName: WideString;
jobTitle: WideString;
mail: WideString;
mobilePhone: WideString;
officeLocation: WideString;
preferredLanguage: WideString;
surname: WideString;
userPrincipalName: WideString;
id: WideString;
j: Integer;
count_j: Integer;
odata_context: WideString;
i: Integer;
count_i: Integer;

begin
success := 0;

// ------------------------------------------------------------------------------------------------------
// See an easier way to do OAuth2 client credentials:
// Example using Automatic OAuth2 Client Credentials
// ------------------------------------------------------------------------------------------------------

// Get an access token with the required scope using client credentials...
// See How to Create Microsoft Graph App (in Azure Portal) for Client Credentials Authentication
http := TChilkatHttp.Create(Self);
req := TChilkatHttpRequest.Create(Self);
req.AddParam('client_secret','CLIENT_SECRET');
req.AddParam('client_id','CLIENT_ID');
req.AddParam('scope','https://graph.microsoft.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);

// -----------------------------------------------------
// Use the access token obtained from above.
// Note: We don't need to re-fetch a new access token every time.  An access token is valid 
// for some amount of time, typically an hour (3600 seconds)

// Use your previously obtained access token here:
http.AuthToken := json.StringOf('access_token');

Memo1.Lines.Add('access token: ' + http.AuthToken);

sbResponse := TChilkatStringBuilder.Create(Self);

success := http.QuickGetSb('https://graph.microsoft.com/v1.0/users',sbResponse.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

json.LoadSb(sbResponse.ControlInterface);
json.EmitCompact := 0;

Memo1.Lines.Add('Status code = ' + IntToStr(http.LastStatus));
if (http.LastStatus <> 200) then
  begin
    Memo1.Lines.Add(json.Emit());
    Memo1.Lines.Add('Failed.');
  end;

Memo1.Lines.Add(json.Emit());

// Sample output
// {
//   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users",
//   "value": [
//     {
//       "@odata.id": "https://graph.microsoft.com/v2/6d8ddd66-68d1-43b0-af5c-e31b4b7dd5cd/directoryObjects/fca490d8-5918-4201-8079-c5dcbeafcdc9/Microsoft.DirectoryServices.User",
//       "businessPhones": [
//       ],
//       "displayName": "Joe Sample",
//       "givenName": "Joe",
//       "jobTitle": null,
//       "mail": null,
//       "mobilePhone": null,
//       "officeLocation": null,
//       "preferredLanguage": null,
//       "surname": "Sample",
//       "userPrincipalName": "admin_chilkatsoft.com#EXT#@adminchilkatsoft.onmicrosoft.com",
//       "id": "fca490d8-5918-4201-8079-c5dcbeafcdc9"
//     }
//   ]
// }

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

odata_context := json.StringOf('"@odata.context"');
i := 0;
count_i := json.SizeOfArray('value');
while i < count_i do
  begin
    json.I := i;
    odata_id := json.StringOf('value[i]."@odata.id"');
    displayName := json.StringOf('value[i].displayName');
    givenName := json.StringOf('value[i].givenName');
    jobTitle := json.StringOf('value[i].jobTitle');
    mail := json.StringOf('value[i].mail');
    mobilePhone := json.StringOf('value[i].mobilePhone');
    officeLocation := json.StringOf('value[i].officeLocation');
    preferredLanguage := json.StringOf('value[i].preferredLanguage');
    surname := json.StringOf('value[i].surname');
    userPrincipalName := json.StringOf('value[i].userPrincipalName');
    id := json.StringOf('value[i].id');
    j := 0;
    count_j := json.SizeOfArray('value[i].businessPhones');
    while j < count_j do
      begin
        json.J := j;
        j := j + 1;
      end;

    i := i + 1;
  end;
end;