(Visual FoxPro) Get a Google Calendar

See more Google Calendar Examples

Demonstrates how to get a particular Google Calendar. The calendar can be referenced by the calendar ID, or by the keyword "primary".

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

LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loHttp
LOCAL lcJsonResponse
LOCAL loJson
LOCAL lnNumSettings
LOCAL i

* 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..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googleCalendar.json")
IF (loJsonToken.HasMember("access_token") = 0) THEN
    ? "No access token found."
    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")

* Let's get the primary calendar.
lcJsonResponse = loHttp.QuickGetStr("https://www.googleapis.com/calendar/v3/users/me/calendarList/primary")
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loJsonToken
    RELEASE loHttp
    CANCEL
ENDIF

? lcJsonResponse

* A sample response is:

* {
*  "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
* }

* It can be parsed like this:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(lcJsonResponse)

? "kind: " + loJson.StringOf("kind")
? "id: " + loJson.StringOf("id")

* Examine the notification settings, if any..
lnNumSettings = loJson.SizeOfArray("notificationSettings.notifications")
IF (lnNumSettings > 0) THEN
    i = 0
    DO WHILE i < lnNumSettings
        loJson.I = i
        ? "Notification Type: " + loJson.StringOf("notificationSettings.notifications[i].type")
        ? "Notification Method: " + loJson.StringOf("notificationSettings.notifications[i].method")
        i = i + 1
    ENDDO
ENDIF

RELEASE loJsonToken
RELEASE loHttp
RELEASE loJson