Xbase++
Xbase++
List Events on a Specified Google Calendar
See more Google Calendar Examples
Demonstrates how to fetch the list of events on a particular Google Calendar. The calendar can be referenced by the calendar ID, or by the keyword "primary".Chilkat Xbase++ Downloads
LOCAL nSuccess
LOCAL oJsonToken
LOCAL oHttp
LOCAL oSbResponse
LOCAL oJson
LOCAL nNumEvents
LOCAL i
nSuccess := 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..
oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/googleCalendar.json")
IF (oJsonToken:HasMember("access_token") == 0)
? "No access token found."
oJsonToken:destroy()
RETURN
ENDIF
oHttp := CreateObject("Chilkat.Http")
oHttp:AuthToken := oJsonToken:StringOf("access_token")
// Let's get the primary calendar. A calendar ID could have be used instead of "primary".
oHttp:SetUrlVar("calendarId", "primary")
oSbResponse := CreateObject("Chilkat.StringBuilder")
nSuccess := oHttp:QuickGetSb("https://www.googleapis.com/calendar/v3/calendars/{$calendarId}/events", oSbResponse)
IF (nSuccess != 1)
? oHttp:LastErrorText
oJsonToken:destroy()
oHttp:destroy()
oSbResponse:destroy()
RETURN
ENDIF
IF (oHttp:LastStatus != 200)
// Note: If a 401 unauthorized response is received, it likely means that the OAuth2 access token needs
// to be refreshed or re-fetched.
? "Error response status: " + Str(oHttp:LastStatus)
? oSbResponse:GetAsString()
oJsonToken:destroy()
oHttp:destroy()
oSbResponse:destroy()
RETURN
ENDIF
// A sample JSON response:
// (Code for parsing the Google Calendar events is shown below.)
// {
// "kind": "calendar#events",
// "etag": "\"p32cfpufit76da0g\"",
// "summary": "support@chilkatcloud.com",
// "updated": "2017-08-10T14:00:27.199Z",
// "timeZone": "America/Chicago",
// "accessRole": "owner",
// "defaultReminders": [
// {
// "method": "popup",
// "minutes": 10
// }
// ],
// "nextSyncToken": "CJj8-fLpzNUCEJj8-fLpzNUCGAU=",
// "items": [
// {
// "kind": "calendar#event",
// "etag": "\"3004746854620000\"",
// "id": "5jt9fopfg3rr9eftegiuq7gc5k",
// "status": "confirmed",
// "htmlLink": "https://www.google.com/calendar/event?eid=NWp0OWZvcGZnM3JyOWVmdGVnaXVxN2djNWsgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
// "created": "2017-08-10T13:57:07.000Z",
// "updated": "2017-08-10T13:57:07.310Z",
// "summary": "Run 10 miles",
// "creator": {
// "email": "support@chilkatcloud.com",
// "self": true
// },
// "organizer": {
// "email": "support@chilkatcloud.com",
// "self": true
// },
// "start": {
// "dateTime": "2017-08-10T12:00:00-05:00"
// },
// "end": {
// "dateTime": "2017-08-10T13:00:00-05:00"
// },
// "iCalUID": "5jt9fopfg3rr9eftegiuq7gc5k@google.com",
// "sequence": 0,
// "hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.5jt9fopfg3rr9eftegiuq7gc5k",
// "reminders": {
// "useDefault": true
// }
// },
// {
// "kind": "calendar#event",
// "etag": "\"3004746898118000\"",
// "id": "7dvh49vd219r3sq7jdueieu8rc",
// "status": "confirmed",
// "htmlLink": "https://www.google.com/calendar/event?eid=N2R2aDQ5dmQyMTlyM3NxN2pkdWVpZXU4cmMgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
// "created": "2017-08-10T13:57:29.000Z",
// "updated": "2017-08-10T13:57:29.059Z",
// "summary": "Eat Giordano's Pizza",
// "creator": {
// "email": "support@chilkatcloud.com",
// "self": true
// },
// "organizer": {
// "email": "support@chilkatcloud.com",
// "self": true
// },
// "start": {
// "dateTime": "2017-08-10T15:00:00-05:00"
// },
// "end": {
// "dateTime": "2017-08-10T16:00:00-05:00"
// },
// "iCalUID": "7dvh49vd219r3sq7jdueieu8rc@google.com",
// "sequence": 0,
// "hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.7dvh49vd219r3sq7jdueieu8rc",
// "reminders": {
// "useDefault": true
// }
// },
// {
// "kind": "calendar#event",
// "etag": "\"3004746915224000\"",
// "id": "5btd89ljn07bg3tlgpimcaqrro",
// "status": "confirmed",
// "htmlLink": "https://www.google.com/calendar/event?eid=NWJ0ZDg5bGpuMDdiZzN0bGdwaW1jYXFycm8gc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
// "created": "2017-08-10T13:57:37.000Z",
// "updated": "2017-08-10T13:57:37.612Z",
// "summary": "Nap",
// "creator": {
// "email": "support@chilkatcloud.com",
// "self": true
// },
// "organizer": {
// "email": "support@chilkatcloud.com",
// "self": true
// },
// "start": {
// "dateTime": "2017-08-10T16:30:00-05:00"
// },
// "end": {
// "dateTime": "2017-08-10T17:30:00-05:00"
// },
// "iCalUID": "5btd89ljn07bg3tlgpimcaqrro@google.com",
// "sequence": 0,
// "hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.5btd89ljn07bg3tlgpimcaqrro",
// "reminders": {
// "useDefault": true
// }
// }
// ]
// }
//
oJson := CreateObject("Chilkat.JsonObject")
oJson:LoadSb(oSbResponse)
nNumEvents := oJson:SizeOfArray("items")
i := 0
DO WHILE i < nNumEvents
oJson:I := i
? oJson:StringOf("items[i].summary")
? oJson:StringOf("items[i].start.dateTime")
? oJson:StringOf("items[i].end.dateTime")
? "--"
i := i + 1
ENDDO
// Sample output:
// Run 10 miles
// 2017-08-10T12:00:00-05:00
// 2017-08-10T13:00:00-05:00
// --
// Eat Giordano's Pizza
// 2017-08-10T15:00:00-05:00
// 2017-08-10T16:00:00-05:00
// --
// Nap
// 2017-08-10T16:30:00-05:00
// 2017-08-10T17:30:00-05:00
// --
//
oJsonToken:destroy()
oHttp:destroy()
oSbResponse:destroy()
oJson:destroy()