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". Visual FoxPro

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

lnSuccess = 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..
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

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:
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