DataFlex
DataFlex
Google Calendar Search Events (List Events with Optional Query Parameters)
See more Google Calendar Examples
Demonstrates how to specify optional query parameters for listing events. This example uses the "q" parameter to free-text search for events, and uses the "timeMin" parameter to specify a lower bound for an event's end time.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoJsonToken
Handle hoHttp
Handle hoSbUrl
Handle hoReq
Handle hoDt
Variant vSbResponse
Handle hoSbResponse
Handle hoJson
Integer iNumEvents
Integer i
String sTemp1
Integer iTemp1
Boolean bTemp1
Move False To iSuccess
// 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..
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
If (Not(IsComObjectCreated(hoJsonToken))) Begin
Send CreateComObject of hoJsonToken
End
Get ComLoadFile Of hoJsonToken "qa_data/tokens/googleCalendar.json" To iSuccess
Get ComHasMember Of hoJsonToken "access_token" To bTemp1
If (bTemp1 = False) Begin
Showln "No access token found."
Procedure_Return
End
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
Get ComStringOf Of hoJsonToken "access_token" To sTemp1
Set ComAuthToken Of hoHttp To sTemp1
// We'll want to build a URL with the query params..
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbUrl
If (Not(IsComObjectCreated(hoSbUrl))) Begin
Send CreateComObject of hoSbUrl
End
Get ComAppend Of hoSbUrl "https://www.googleapis.com/calendar/v3/calendars/{$calendarId}/events?" To iSuccess
// Use the HTTP request object as a helper for creating the URL encoded query param list..
Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
If (Not(IsComObjectCreated(hoReq))) Begin
Send CreateComObject of hoReq
End
// Find events with the word "pizza".
Send ComAddParam To hoReq "q" "pizza"
// Get events for the current date/time or later.
Get Create (RefClass(cComCkDateTime)) To hoDt
If (Not(IsComObjectCreated(hoDt))) Begin
Send CreateComObject of hoDt
End
Get ComSetFromCurrentSystemTime Of hoDt To iSuccess
Get ComGetAsTimestamp Of hoDt False To sTemp1
Send ComAddParam To hoReq "timeMin" sTemp1
// Add these query params to the URL:
Get ComGetUrlEncodedParams Of hoReq To sTemp1
Get ComAppend Of hoSbUrl sTemp1 To iSuccess
// Examine the URL..
Get ComGetAsString Of hoSbUrl To sTemp1
Showln "URL: " sTemp1
// The URL looks like this:
// https://www.googleapis.com/calendar/v3/calendars/{$calendarId}/events?q=pizza&timeMin=2017-08-11T13%3A35%3A28Z
// Let's get events in the primary calendar. A calendar ID could have be used instead of "primary".
Get ComSetUrlVar Of hoHttp "calendarId" "primary" To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponse
If (Not(IsComObjectCreated(hoSbResponse))) Begin
Send CreateComObject of hoSbResponse
End
Get ComGetAsString Of hoSbUrl To sTemp1
Get pvComObject of hoSbResponse to vSbResponse
Get ComQuickGetSb Of hoHttp sTemp1 vSbResponse To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComLastStatus Of hoHttp To iTemp1
If (iTemp1 <> 200) Begin
// Note: If a 401 unauthorized response is received, it likely means that the OAuth2 access token needs
// to be refreshed or re-fetched.
Get ComLastStatus Of hoHttp To iTemp1
Showln "Error response status: " iTemp1
Get ComGetAsString Of hoSbResponse To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComGetAsString Of hoSbResponse To sTemp1
Showln sTemp1
// A sample JSON response:
// (Code for parsing the Google Calendar events is shown below.)
// {
// "kind": "calendar#events",
// "etag": "\"p32cafkumkb7ta0g\"",
// "summary": "support@chilkatcloud.com",
// "updated": "2017-08-11T13:19:48.143Z",
// "timeZone": "America/Chicago",
// "accessRole": "owner",
// "defaultReminders": [
// {
// "method": "popup",
// "minutes": 10
// }
// ],
// "nextSyncToken": "CJin09aiz9UCEJin09aiz9UCGAU=",
// "items": [
// {
// "kind": "calendar#event",
// "etag": "\"3004915160212000\"",
// "id": "02pv1cpdp7vm11htnfi3ii7iie",
// "status": "confirmed",
// "htmlLink": "https://www.google.com/calendar/event?eid=MDJwdjFjcGRwN3ZtMTFodG5maTNpaTdpaWUgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
// "created": "2017-08-11T13:19:40.000Z",
// "updated": "2017-08-11T13:19:40.106Z",
// "summary": "Eat Lou Malnati's Pizza",
// "creator": {
// "email": "support@chilkatcloud.com",
// "self": true
// },
// "organizer": {
// "email": "support@chilkatcloud.com",
// "self": true
// },
// "start": {
// "dateTime": "2017-08-12T12:00:00-05:00"
// },
// "end": {
// "dateTime": "2017-08-12T13:00:00-05:00"
// },
// "iCalUID": "02pv1cpdp7vm11htnfi3ii7iie@google.com",
// "sequence": 0,
// "hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.02pv1cpdp7vm11htnfi3ii7iie",
// "reminders": {
// "useDefault": true
// }
// }
// ]
// }
//
//
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get pvComObject of hoSbResponse to vSbResponse
Get ComLoadSb Of hoJson vSbResponse To iSuccess
Get ComSizeOfArray Of hoJson "items" To iNumEvents
Move 0 To i
While (i < iNumEvents)
Set ComI Of hoJson To i
Get ComStringOf Of hoJson "items[i].summary" To sTemp1
Showln sTemp1
Get ComStringOf Of hoJson "items[i].start.dateTime" To sTemp1
Showln sTemp1
Get ComStringOf Of hoJson "items[i].end.dateTime" To sTemp1
Showln sTemp1
Showln "--"
Move (i + 1) To i
Loop
// Sample output:
// Eat Lou Malnati's Pizza
// 2017-08-12T12:00:00-05:00
// 2017-08-12T13:00:00-05:00
// --
End_Procedure