![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Lianja) Get Google API Access Token using P12 Service Account KeyDemonstrates how to get a Google API access token using a P12 service account key.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // -------------------------------------------------------------------------------- // For a step-by-step guide for setting up your Google Workspace service account, // see Setup Google Workspace Account for Sending SMTP GMail from a Service Account // -------------------------------------------------------------------------------- // First load the PKCS12 (.p12 / .pfx) into a PFX object. loPfx = createobject("CkPfx") llSuccess = loPfx.LoadPfxFile("qa_data/pfx/chilkat25-cbd7b42afbd8.p12","notasecret") if (llSuccess <> .T.) then ? loPfx.LastErrorText release loPfx return endif loGAuth = createobject("CkAuthGoogle") llSuccess = loGAuth.SetP12(loPfx) // The ISS is your service account email address ending in gserviceaccount.com. lcIss = "chilkatsvc@chilkat25.iam.gserviceaccount.com" // The scope is always the following string: lcScope = "https://mail.google.com/" // The sub is your company email address lcOauth_sub = "info@chilkat.xyz" // The access token is valid for this number of seconds. lnNumSec = 3600 loGAuth.EmailAddress = lcIss loGAuth.Scope = lcScope loGAuth.ExpireNumSeconds = lnNumSec loGAuth.SubEmailAddress = lcOauth_sub // Connect to www.googleapis.com loTlsSock = createobject("CkSocket") llSuccess = loTlsSock.Connect("www.googleapis.com",443,.T.,5000) if (llSuccess <> .T.) then ? loTlsSock.LastErrorText release loPfx release loGAuth release loTlsSock return endif // Send the request to obtain the access token. llSuccess = loGAuth.ObtainAccessToken(loTlsSock) if (llSuccess <> .T.) then ? loGAuth.LastErrorText release loPfx release loGAuth release loTlsSock return endif // Examine the access token: ? "Access Token: " + loGAuth.AccessToken release loPfx release loGAuth release loTlsSock |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.