Pascal (Lazarus/Delphi)

Create Group

See more Microsoft Group Examples

Create a new group as specified in the request body. You can create one of three types of groups:

• Office 365 Group (unified group)
• Dynamic group
• Security group

This operation returns by default only a subset of the properties for each group. These default properties are noted in the Properties section.

See https://docs.microsoft.com/en-us/graph/api/group-post-groups?view=graph-rest-1.0 for more information.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.HttpResponse,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  http: THttp;
  jsonToken: TJsonObject;
  json: TJsonObject;
  resp: THttpResponse;
  id: string;
  deletedDateTime: string;
  classification: string;
  createdDateTime: string;
  description: string;
  displayName: string;
  mail: string;
  mailEnabled: Boolean;
  mailNickname: string;
  onPremisesLastSyncDateTime: string;
  onPremisesSecurityIdentifier: string;
  onPremisesSyncEnabled: string;
  preferredDataLocation: string;
  renewedDateTime: string;
  securityEnabled: Boolean;
  visibility: string;
  i: Integer;
  count_i: Integer;
  strVal: string;

begin
  success := False;

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

  http := THttp.Create;

  //  Use your previously obtained access token as shown here:
  //     Get Microsoft Graph OAuth2 Access Token with Group.ReadWrite.All scope.

  jsonToken := TJsonObject.Create;
  success := jsonToken.LoadFile('qa_data/tokens/msGraphGroup.json');
  if (success = False) then
    begin
      WriteLn(jsonToken.LastErrorText);
      Exit;
    end;

  http.AuthToken := jsonToken.StringOf('access_token');

  //  Create a JSON body for the HTTP POST
  //  Use this online tool to generate the code from sample JSON: 
  //  Generate Code to Create JSON

  //  {
  //    "description": "Self help community for library",
  //    "displayName": "Library Assist",
  //    "groupTypes": [
  //      "Unified"
  //    ],
  //    "mailEnabled": true,
  //    "mailNickname": "library",
  //    "securityEnabled": false
  //  }

  json := TJsonObject.Create;
  json.UpdateString('description','Self help community for library');
  json.UpdateString('displayName','Library Assist');
  json.UpdateString('groupTypes[0]','Unified');
  json.UpdateBool('mailEnabled',True);
  json.UpdateString('mailNickname','library');
  json.UpdateBool('securityEnabled',False);

  //  POST the JSON to https://graph.microsoft.com/v1.0/groups

  resp := THttpResponse.Create;
  success := http.HttpJson('POST','https://graph.microsoft.com/v1.0/groups',json,'application/json',resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  json.Load(resp.BodyStr);
  json.EmitCompact := False;

  if (resp.StatusCode <> 201) then
    begin
      WriteLn(json.Emit());
      WriteLn('Failed, response status code = ' + resp.StatusCode);
      Exit;
    end;

  WriteLn(json.Emit());

  //  A sample response:
  //  (See code for parsing this response below..)

  //  {
  //      "id": "b320ee12-b1cd-4cca-b648-a437be61c5cd",
  //  	  "deletedDateTime": null,
  //  	  "classification": null,
  //  	  "createdDateTime": "2018-12-22T00:51:37Z",
  //  	  "creationOptions": [],
  //  	  "description": "Self help community for library",
  //  	  "displayName": "Library Assist",
  //  	  "groupTypes": [
  //  	      "Unified"
  //  	  ],
  //  	  "mail": "library7423@contoso.com",
  //  	  "mailEnabled": true,
  //  	  "mailNickname": "library",
  //  	  "onPremisesLastSyncDateTime": null,
  //  	  "onPremisesSecurityIdentifier": null,
  //  	  "onPremisesSyncEnabled": null,
  //  	  "preferredDataLocation": "CAN",
  //  	  "proxyAddresses": [
  //  	      "SMTP:library7423@contoso.com"
  //  	  ],
  //  	  "renewedDateTime": "2018-12-22T00:51:37Z",
  //  	  "resourceBehaviorOptions": [],
  //  	  "resourceProvisioningOptions": [],
  //  	  "securityEnabled": false,
  //  	  "visibility": "Public",
  //  	  "onPremisesProvisioningErrors": []
  //  }

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

  id := json.StringOf('id');
  deletedDateTime := json.StringOf('deletedDateTime');
  classification := json.StringOf('classification');
  createdDateTime := json.StringOf('createdDateTime');
  description := json.StringOf('description');
  displayName := json.StringOf('displayName');
  mail := json.StringOf('mail');
  mailEnabled := json.BoolOf('mailEnabled');
  mailNickname := json.StringOf('mailNickname');
  onPremisesLastSyncDateTime := json.StringOf('onPremisesLastSyncDateTime');
  onPremisesSecurityIdentifier := json.StringOf('onPremisesSecurityIdentifier');
  onPremisesSyncEnabled := json.StringOf('onPremisesSyncEnabled');
  preferredDataLocation := json.StringOf('preferredDataLocation');
  renewedDateTime := json.StringOf('renewedDateTime');
  securityEnabled := json.BoolOf('securityEnabled');
  visibility := json.StringOf('visibility');
  i := 0;
  count_i := json.SizeOfArray('creationOptions');
  while i < count_i do
    begin
      json.I := i;
      i := i + 1;
    end;

  i := 0;
  count_i := json.SizeOfArray('groupTypes');
  while i < count_i do
    begin
      json.I := i;
      strVal := json.StringOf('groupTypes[i]');
      i := i + 1;
    end;

  i := 0;
  count_i := json.SizeOfArray('proxyAddresses');
  while i < count_i do
    begin
      json.I := i;
      strVal := json.StringOf('proxyAddresses[i]');
      i := i + 1;
    end;

  i := 0;
  count_i := json.SizeOfArray('resourceBehaviorOptions');
  while i < count_i do
    begin
      json.I := i;
      //  ...
      i := i + 1;
    end;

  i := 0;
  count_i := json.SizeOfArray('resourceProvisioningOptions');
  while i < count_i do
    begin
      json.I := i;
      //  ...
      i := i + 1;
    end;

  i := 0;
  count_i := json.SizeOfArray('onPremisesProvisioningErrors');
  while i < count_i do
    begin
      json.I := i;
      //  ...
      i := i + 1;
    end;

  WriteLn('Success.');


  http.Free;
  jsonToken.Free;
  json.Free;
  resp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.