Xbase++

Get Access Token for Google Tasks using Service Account JSON Key

See more Google Tasks Examples

Demonstrates how to get an access token for the Google Tasks API using a Service Account JSON key. Xbase++

LOCAL nSuccess
LOCAL oFac
LOCAL cJsonKey
LOCAL oGAuth
LOCAL oTlsSock

nSuccess := 0

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

//  First load the JSON key into a string.
oFac := CreateObject("Chilkat.FileAccess")
cJsonKey := oFac:ReadEntireTextFile("qa_data/googleSvcAccountKeys/ChilkatCloud-48f7737c7505.json", "utf-8")
IF (oFac:LastMethodSuccess != 1)
    ? oFac:LastErrorText
    oFac:destroy()
    RETURN
ENDIF

//  A JSON private key should look like this:

//  {
//    "type": "service_account",
//    "project_id": "chilkatcloud",
//    "private_key_id": "48f7737c7505bb88eee6a20d09993e10605d466e",
//    "private_key": "-----BEGIN PRIVATE KEY----- ... -----END PRIVATE KEY-----\n",
//    "client_email": "pip-564@chilkatcloud.iam.gserviceaccount.com",
//    "client_id": "109982228323456925225",
//    "auth_uri": "https://accounts.google.com/o/oauth2/auth",
//    "token_uri": "https://oauth2.googleapis.com/token",
//    "auth_provider_x509_cert_url": "https://www.googleapis.com/oauth2/v1/certs",
//    "client_x509_cert_url": "https://www.googleapis.com/robot/v1/metadata/x509/pip-564%40chilkatcloud.iam.gserviceaccount.com"
//  }

oGAuth := CreateObject("Chilkat.AuthGoogle")
oGAuth:JsonKey := cJsonKey

//  Choose the scope for read/write access.
oGAuth:Scope := "https://www.googleapis.com/auth/tasks"

//  Request an access token that is valid for this many seconds.
oGAuth:ExpireNumSeconds := 3600

oGAuth:SubEmailAddress := ""

//  Connect to www.googleapis.com using TLS
oTlsSock := CreateObject("Chilkat.Socket")
nSuccess := oTlsSock:Connect("www.googleapis.com", 443, 1, 5000)
IF (nSuccess != 1)
    ? oTlsSock:LastErrorText
    oFac:destroy()
    oGAuth:destroy()
    oTlsSock:destroy()
    RETURN
ENDIF

//  Send the request to obtain the access token.
nSuccess := oGAuth:ObtainAccessToken(oTlsSock)
IF (nSuccess != 1)
    ? oGAuth:LastErrorText
    oFac:destroy()
    oGAuth:destroy()
    oTlsSock:destroy()
    RETURN
ENDIF

//  Examine the access token:
? "Access Token: " + oGAuth:AccessToken

//  Save our access token to a file.
nSuccess := oFac:WriteEntireTextFile("qa_data/tokens/googleTasks.txt", oGAuth:AccessToken, "utf-8", 0)

oFac:destroy()
oGAuth:destroy()
oTlsSock:destroy()