Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) Get an Azure AD Access TokenDemonstrates how to obtain an Azure AD access token for authentication using a client ID, client secret, and tenant ID.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_v9_5_0_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var socket: TChilkatSocket; success: Integer; azureAD: TChilkatAuthAzureAD; json: TChilkatJsonObject; fac: TCkFileAccess; sa: TCkStringArray; sbIdToken: TChilkatStringBuilder; jsonIdToken: TChilkatJsonObject; aud: WideString; iss: WideString; iat: Integer; nbf: Integer; exp: Integer; aio: WideString; app_displayname: WideString; appid: WideString; appidacr: WideString; idp: WideString; oid: WideString; sid: WideString; s_sub: WideString; tid: WideString; uti: WideString; ver: WideString; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. socket := TChilkatSocket.Create(Self); // Make a TLS connection to login.microsoftonline.com, waiting at most 5000 milliseconds. success := socket.Connect('login.microsoftonline.com',443,1,5000); if (success <> 1) then begin Memo1.Lines.Add(socket.LastErrorText); Exit; end; // Create an Azure AD auth object, and provide the required information for authorization. azureAD := TChilkatAuthAzureAD.Create(Self); azureAD.ClientId := 'AZURE_AD_CLIENT_ID'; azureAD.ClientSecret := 'AZURE_AD_CLIENT_SECRET'; azureAD.TenantId := 'AZURE_TENANT_ID'; azureAD.Resource := 'https://outlook.office365.com/'; // Retrieve the access token using the TLS connection to login.microsoftonline.com success := azureAD.ObtainAccessToken(socket.ControlInterface); if (success <> 1) then begin Memo1.Lines.Add(socket.LastErrorText); Exit; end; // Show the access token, and then save it to a JSON file // for future use (such as with a REST method call). Memo1.Lines.Add('Azure AD Access Token = ' + azureAD.AccessToken); json := TChilkatJsonObject.Create(Self); json.AppendString('accessToken',azureAD.AccessToken); // Save our access token to a file. It will be used in subsequent REST API calls. fac := TCkFileAccess.Create(Self); fac.WriteEntireTextFile('qa_data/tokens/azureAD_office365.json',json.Emit(),'utf-8',0); // Let's get the id information out of the access token. // Our JSON looks like this: // {"accessToken":"eyJ0eXAiO---TdjT3RjIn0.eyJhdWQiOiJo---jEuMCJ9.CIx0sUT8s---KvzKKUw"} // I used "---" instead of "..." to indicate a large quantity of omitted chars. // The accessToken is a long string composed of 3 base64 strings concatenated with "." chars. // The 1st part is the JOSE header. If you decode from base64, you'll get the JSON JOSE header. // The 2nd part is the id token. When decoded this is the JSON that contains information about the authenticated application. // The 3rd part is binary and does not decode to JSON. // Let's get the information from the 2nd part (the id token) sa := TCkStringArray.Create(Self); sa.SplitAndAppend(json.StringOf('accessToken'),'.'); sbIdToken := TChilkatStringBuilder.Create(Self); // The 2nd string is at index 1. sbIdToken.Append(sa.GetString(1)); sbIdToken.Decode('base64','utf-8'); jsonIdToken := TChilkatJsonObject.Create(Self); jsonIdToken.LoadSb(sbIdToken.ControlInterface); jsonIdToken.EmitCompact := 0; Memo1.Lines.Add(jsonIdToken.Emit()); // We have something like this: // { // "aud": "https://outlook.office365.com/", // "iss": "https://sts.windows.net/6e8ddd66-68d1-43b0-af5c-e31b4b7dd5cd/", // "iat": 1586350465, // "nbf": 1586350465, // "exp": 1586354365, // "aio": "42dgYNjyOtX8ZZB7JLfMFJGeKUmvAA==", // "app_displayname": "ChilkatTest", // "appid": "f125d695-c50e-456e-a578-a486f06d1213", // "appidacr": "1", // "idp": "https://sts.windows.net/6d8ddd66-68d1-43b0-af5c-e31b4b7dd5cd/", // "oid": "7545a2fd-3f0d-48a4-9c58-a1a5700a24b1", // "sid": "ab981252-9378-4d0c-964b-eb2e1451138f", // "sub": "7546a2fc-3f0d-48a4-9c58-a1a5700a24b1", // "tid": "6d8ddd66-68d1-43b0-af5c-e31b4b7dd5cd", // "uti": "huIJBAa1tvGpczwV5S1BAA", // "ver": "1.0" // } // Get the desired information from the JSON: aud := jsonIdToken.StringOf('aud'); iss := jsonIdToken.StringOf('iss'); iat := jsonIdToken.IntOf('iat'); nbf := jsonIdToken.IntOf('nbf'); exp := jsonIdToken.IntOf('exp'); aio := jsonIdToken.StringOf('aio'); app_displayname := jsonIdToken.StringOf('app_displayname'); appid := jsonIdToken.StringOf('appid'); appidacr := jsonIdToken.StringOf('appidacr'); idp := jsonIdToken.StringOf('idp'); oid := jsonIdToken.StringOf('oid'); sid := jsonIdToken.StringOf('sid'); s_sub := jsonIdToken.StringOf('sub'); tid := jsonIdToken.StringOf('tid'); uti := jsonIdToken.StringOf('uti'); ver := jsonIdToken.StringOf('ver'); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.