PureBasic

List Google Calendars

See more Google Calendar Examples

Demonstrates how to list the Google Calendars for an account. PureBasic

IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i = 0

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

    ; This example uses a previously obtained access token having permission for the 
    ; Google Calendar scope.

    ; In this example, Get Google Calendar OAuth2 Access Token, the access
    ; token was saved to a JSON file.  This example fetches the access token from the file..
    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/googleCalendar.json")
    If CkJsonObject::ckHasMember(jsonToken,"access_token") = 0
        Debug "No access token found."
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"access_token"))

    jsonResponse.s = CkHttp::ckQuickGetStr(http,"https://www.googleapis.com/calendar/v3/users/me/calendarList")
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkJsonObject::ckDispose(jsonToken)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    Debug jsonResponse
    Debug "-----------------------------"

    ; This is a sample JSON response:
    ; (Sample code to iterate over the JSON response is shown below.)

    ; {
    ;  "kind": "calendar#calendarList",
    ;  "etag": "\"p32cfpufit76da0g\"",
    ;  "nextSyncToken": "CJj8-fLpzNUCEhhzdXBwb3J0QGNoaWxrYXRjbG91ZC5jb20=",
    ;  "items": [
    ;   {
    ;    "kind": "calendar#calendarListEntry",
    ;    "etag": "\"1465249947472000\"",
    ;    "id": "support@chilkatcloud.com",
    ;    "summary": "support@chilkatcloud.com",
    ;    "timeZone": "America/Chicago",
    ;    "colorId": "14",
    ;    "backgroundColor": "#9fe1e7",
    ;    "foregroundColor": "#000000",
    ;    "selected": true,
    ;    "accessRole": "owner",
    ;    "defaultReminders": [
    ;     {
    ;      "method": "popup",
    ;      "minutes": 10
    ;     }
    ;    ],
    ;    "notificationSettings": {
    ;     "notifications": [
    ;      {
    ;       "type": "eventCreation",
    ;       "method": "email"
    ;      },
    ;      {
    ;       "type": "eventChange",
    ;       "method": "email"
    ;      },
    ;      {
    ;       "type": "eventCancellation",
    ;       "method": "email"
    ;      },
    ;      {
    ;       "type": "eventResponse",
    ;       "method": "email"
    ;      }
    ;     ]
    ;    },
    ;    "primary": true
    ;   },
    ;   {
    ;    "kind": "calendar#calendarListEntry",
    ;    "etag": "\"1502373382732000\"",
    ;    "id": "#contacts@group.v.calendar.google.com",
    ;    "summary": "Contacts",
    ;    "timeZone": "America/Chicago",
    ;    "colorId": "13",
    ;    "backgroundColor": "#92e1c0",
    ;    "foregroundColor": "#000000",
    ;    "selected": true,
    ;    "accessRole": "reader",
    ;    "defaultReminders": []
    ;   },
    ;   {
    ;    "kind": "calendar#calendarListEntry",
    ;    "etag": "\"1502373376447000\"",
    ;    "id": "en.usa#holiday@group.v.calendar.google.com",
    ;    "summary": "Holidays in United States",
    ;    "timeZone": "America/Chicago",
    ;    "colorId": "8",
    ;    "backgroundColor": "#16a765",
    ;    "foregroundColor": "#000000",
    ;    "selected": true,
    ;    "accessRole": "reader",
    ;    "defaultReminders": []
    ;   }
    ;  ]
    ; }
    ; 

    ; Iterate over the JSON response..
    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoad(json,jsonResponse)

    numCalendars.i = CkJsonObject::ckSizeOfArray(json,"items")
    i.i = 0
    While i < numCalendars
        Debug "--- " + Str(i) + " ---"
        CkJsonObject::setCkI(json, i)
        Debug "kind: " + CkJsonObject::ckStringOf(json,"items[i].kind")
        Debug "id: " + CkJsonObject::ckStringOf(json,"items[i].id")

        ; Examine the notification settings, if any..
        numSettings.i = CkJsonObject::ckSizeOfArray(json,"items[i].notificationSettings.notifications")
        If numSettings > 0
            j.i = 0
            While j < numSettings
                CkJsonObject::setCkJ(json, j)
                Debug "Notification Type: " + CkJsonObject::ckStringOf(json,"items[i].notificationSettings.notifications[j].type")
                Debug "Notification Method: " + CkJsonObject::ckStringOf(json,"items[i].notificationSettings.notifications[j].method")
                j = j + 1
            Wend
        EndIf

        i = i + 1
    Wend


    CkJsonObject::ckDispose(jsonToken)
    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure