(Tcl) Create Google Photos Album

Demonstrates how to create a Google Photos album.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/googlePhotos.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkJsonObject $jsonToken
    exit
}

set http [new_CkHttp]

CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

# Create an album named "animals"
set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "album.title" "animals"

# resp is a CkHttpResponse
set resp [CkHttp_PostJson $http "https://photoslibrary.googleapis.com/v1/albums" [CkJsonObject_emit $json]]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkJsonObject $jsonToken
    delete_CkHttp $http
    delete_CkJsonObject $json
    exit
}

# Show the response body.
puts [CkHttpResponse_bodyStr $resp]

# Examine the response status code.  Success is indicated by a status code of 200.
puts "response status code: [CkHttpResponse_get_StatusCode $resp]"

CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]
delete_CkHttpResponse $resp

# 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

set id [CkJsonObject_stringOf $json "id"]
set title [CkJsonObject_stringOf $json "title"]
set productUrl [CkJsonObject_stringOf $json "productUrl"]
set isWriteable [CkJsonObject_BoolOf $json "isWriteable"]

puts "id = $id"

delete_CkJsonObject $jsonToken
delete_CkHttp $http
delete_CkJsonObject $json