B4X

Create Google Photos Album

See more Google Photos Examples

Demonstrates how to create a Google Photos album. B4X

Dim success As Boolean = False

'  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.

Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/googlePhotos.json")
If success = False Then
    Log(jsonToken.LastErrorText)
    Return
End If


Dim http As ChilkatHttp
http.Initialize("http")

http.AuthToken = jsonToken.StringOf("access_token")

'  Create an album named "animals"
Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("album.title", "animals")

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", "https://photoslibrary.googleapis.com/v1/albums", json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


'  Show the response body.
Log(resp.BodyStr)

'  Examine the response status code.  Success is indicated by a status code of 200.
Log("response status code: " & resp.StatusCode)

json.Load(resp.BodyStr)

'  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

Dim id As String
Dim title As String
Dim productUrl As String
Dim isWriteable As Boolean

id = json.StringOf("id")
title = json.StringOf("title")
productUrl = json.StringOf("productUrl")
isWriteable = json.BoolOf("isWriteable")

Log("id = " & id)