(Delphi ActiveX) SharePoint Get Site ID

See more SharePoint Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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;
jsonOAuthCC: TChilkatJsonObject;
sbJson: TChilkatStringBuilder;
statusCode: Integer;
jsonResp: TChilkatJsonObject;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

// Provide the information needed for Chilkat to automatically fetch the OAuth2.0 
// access token as needed.
jsonOAuthCC := TChilkatJsonObject.Create(Self);

// --------------------------------------------------------------------------------------------------------
// You'll need to have registered an app in Azure beforehand.
// See How to Create SharePoint App Registration for OAuth 2.0 Client Credentials
// --------------------------------------------------------------------------------------------------------

// Use the values from your App Registration in Azure.
jsonOAuthCC.UpdateString('client_id','CLIENT_ID');
jsonOAuthCC.UpdateString('client_secret','SECRET_VALUE');

// You'll always use this scope for client credentials, because the allowed actions
// are determined by the App Permissions defined when you registered the app in Azure.
jsonOAuthCC.UpdateString('scope','https://graph.microsoft.com/.default');

// The token endpoint includes your tenant ID. 
jsonOAuthCC.UpdateString('token_endpoint','https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token');

// Provide the OAuth2 information. Chilkat will use this information to automatically fetch the OAuth2 access token as needed,
http.AuthToken := jsonOAuthCC.Emit();

// Get information about the SharePoint site named "test"
sbJson := TChilkatStringBuilder.Create(Self);
http.SetUrlVar('sharepoint_hostname','example.sharepoint.com');
http.SetUrlVar('site_name','test');
success := http.QuickGetSb('https://graph.microsoft.com/v1.0/sites/{$sharepoint_hostname}:/sites/{$site_name}',sbJson.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

statusCode := http.LastStatus;

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

if (statusCode <> 200) then
  begin
    Memo1.Lines.Add(sbJson.GetAsString());
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

jsonResp := TChilkatJsonObject.Create(Self);
jsonResp.LoadSb(sbJson.ControlInterface);
jsonResp.EmitCompact := 0;

Memo1.Lines.Add(jsonResp.Emit());
Memo1.Lines.Add('');
Memo1.Lines.Add('ID: ' + jsonResp.StringOf('id'));
Memo1.Lines.Add('Success.');

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