Xbase++

Get a Google Drive Access Token using a .p12 Private Key

See more Google Drive Examples

Demonstrates how to get a Google Drive API access token using a .p12 private key. Xbase++

LOCAL nSuccess
LOCAL oGAuth
LOCAL oPfx
LOCAL oTlsSock

nSuccess := 0

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

oGAuth := CreateObject("Chilkat.AuthGoogle")

oPfx := CreateObject("Chilkat.Pfx")
nSuccess := oPfx:LoadPfxFile("qa_data/googleApi/ChilkatTest-5ba79ce39459.p12", "notasecret")
IF (nSuccess != 1)
    ? oPfx:LastErrorText
    oGAuth:destroy()
    oPfx:destroy()
    RETURN
ENDIF

nSuccess := oGAuth:SetP12(oPfx)
IF (nSuccess != 1)
    ? oGAuth:LastErrorText
    oGAuth:destroy()
    oPfx:destroy()
    RETURN
ENDIF

//  Choose a scope.
oGAuth:Scope := "https://www.googleapis.com/auth/drive"

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

//  If the application is requesting delegated access:
//  The email address of the user for which the application is requesting delegated access,
//  then set the email address here. (Otherwise leave it empty.)
oGAuth:SubEmailAddress := "support@chilkatcloud.com"

oGAuth:EmailAddress := "597922945226-00rb0ppfg0snd9jo6bhvd4v17jtj2d3a@developer.gserviceaccount.com"

//  Connect to www.googleapis.com using TLS (TLS 1.2 is the default.)
//  The Chilkat socket object is used so that the connection can be established
//  through proxies or an SSH tunnel if desired.
oTlsSock := CreateObject("Chilkat.Socket")
nSuccess := oTlsSock:Connect("www.googleapis.com", 443, 1, 5000)
IF (nSuccess != 1)
    ? oTlsSock:LastErrorText
    oGAuth:destroy()
    oPfx:destroy()
    oTlsSock:destroy()
    RETURN
ENDIF

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

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

oGAuth:destroy()
oPfx:destroy()
oTlsSock:destroy()