(Visual FoxPro) Create Google Photos Album

Demonstrates how to create a Google Photos album.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loHttp
LOCAL loJson
LOCAL loResp
LOCAL lcId
LOCAL lcTitle
LOCAL lcProductUrl
LOCAL lnIsWriteable

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

* Get the previously obtained access token.
* See Get Google Photos Access Token.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googlePhotos.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loJsonToken
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

loHttp.AuthToken = loJsonToken.StringOf("access_token")

* Create an album named "animals"
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("album.title","animals")

loResp = loHttp.PostJson("https://photoslibrary.googleapis.com/v1/albums",loJson.Emit())
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loJsonToken
    RELEASE loHttp
    RELEASE loJson
    CANCEL
ENDIF

* Show the response body.
? loResp.BodyStr

* Examine the response status code.  Success is indicated by a status code of 200.
? "response status code: " + STR(loResp.StatusCode)

loJson.Load(loResp.BodyStr)
RELEASE loResp

* Sample response:

* {
*   "id": "AKcbugHaQTvUKSi3M2RQxOhxhdEaLc5mfUcqFoIU_kpQaROyUD70BcFt7_mnz5PcwwsjPKeKnLHN",
*   "title": "animals",
*   "productUrl": "https://photos.google.com/lr/album/AKcbugHaQTvUKSi3M2RQxOhxhdEaLc5mfUcqFoIU_kpQaROyUD70BcFt7_mnz5PcwwsjPKeKnLHN",
*   "isWriteable": true
* }

* Use this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

lcId = loJson.StringOf("id")
lcTitle = loJson.StringOf("title")
lcProductUrl = loJson.StringOf("productUrl")
lnIsWriteable = loJson.BoolOf("isWriteable")

? "id = " + lcId

RELEASE loJsonToken
RELEASE loHttp
RELEASE loJson