(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_JsonToken
integer li_Success
oleobject loo_Http
oleobject loo_SbUrl
oleobject loo_Req
oleobject loo_Dt
oleobject loo_SbResponse
oleobject loo_Json
integer li_NumEvents
integer 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..
loo_JsonToken = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonToken.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_JsonToken
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_JsonToken.LoadFile("qa_data/tokens/googleCalendar.json")
if loo_JsonToken.HasMember("access_token") = 0 then
    Write-Debug "No access token found."
    destroy loo_JsonToken
    return
end if

loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

loo_Http.AuthToken = loo_JsonToken.StringOf("access_token")

// We'll want to build a URL with the query params..
loo_SbUrl = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbUrl.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbUrl.Append("https://www.googleapis.com/calendar/v3/calendars/{$calendarId}/events?")

// Use the HTTP request object as a helper for creating the URL encoded query param list..
loo_Req = create oleobject
// Use "Chilkat_9_5_0.HttpRequest" for versions of Chilkat < 10.0.0
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")

// Find events with the word "pizza".
loo_Req.AddParam("q","pizza")

// Get events for the current date/time or later.
loo_Dt = create oleobject
// Use "Chilkat_9_5_0.CkDateTime" for versions of Chilkat < 10.0.0
li_rc = loo_Dt.ConnectToNewObject("Chilkat.CkDateTime")

loo_Dt.SetFromCurrentSystemTime()
loo_Req.AddParam("timeMin",loo_Dt.GetAsTimestamp(0))

// Add these query params to the URL:
loo_SbUrl.Append(loo_Req.GetUrlEncodedParams())

// Examine the URL..
Write-Debug "URL: " + loo_SbUrl.GetAsString()

// 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".
loo_Http.SetUrlVar("calendarId","primary")
loo_SbResponse = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbResponse.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Http.QuickGetSb(loo_SbUrl.GetAsString(),loo_SbResponse)
if li_Success <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_JsonToken
    destroy loo_Http
    destroy loo_SbUrl
    destroy loo_Req
    destroy loo_Dt
    destroy loo_SbResponse
    return
end if

if loo_Http.LastStatus <> 200 then
    // Note: If a 401 unauthorized response is received, it likely means that the OAuth2 access token needs
    // to be refreshed or re-fetched.
    Write-Debug "Error response status: " + string(loo_Http.LastStatus)
    Write-Debug loo_SbResponse.GetAsString()
    destroy loo_JsonToken
    destroy loo_Http
    destroy loo_SbUrl
    destroy loo_Req
    destroy loo_Dt
    destroy loo_SbResponse
    return
end if

Write-Debug loo_SbResponse.GetAsString()

// 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
//    }
//   }
//  ]
// }
// 
// 

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.LoadSb(loo_SbResponse)

li_NumEvents = loo_Json.SizeOfArray("items")
i = 0
do while i < li_NumEvents
    loo_Json.I = i
    Write-Debug loo_Json.StringOf("items[i].summary")
    Write-Debug loo_Json.StringOf("items[i].start.dateTime")
    Write-Debug loo_Json.StringOf("items[i].end.dateTime")
    Write-Debug "--"
    i = i + 1
loop

// Sample output:

// Eat Lou Malnati's Pizza
// 2017-08-12T12:00:00-05:00
// 2017-08-12T13:00:00-05:00
// --


destroy loo_JsonToken
destroy loo_Http
destroy loo_SbUrl
destroy loo_Req
destroy loo_Dt
destroy loo_SbResponse
destroy loo_Json