PureBasic Google Calendar: Get an Event

Back to Index

Returns a specified event from a specified calendar.
This example gets an event from the calendar having the ID = "support@chilkatcloud.com", where the event ID equals "35ocdnnjofbtfs6c602uqvdg9u"

Documentation: https://developers.google.com/google-apps/calendar/v3/reference/events/get


IncludeFile "CkJsonObject.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkRest.pb"
IncludeFile "CkOAuth2.pb"

Procedure ChilkatExample()

    rest.i = CkRest::ckCreate()
    If rest.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    ;   Provide a previously obtained OAuth2 access token.
    oauth2.i = CkOAuth2::ckCreate()
    If oauth2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkOAuth2::setCkAccessToken(oauth2, "OAUTH2_ACCESS_TOKEN")
    CkRest::ckSetAuthOAuth2(rest,oauth2)

    success = CkRest::ckConnect(rest,"www.googleapis.com",443,1,1)
    If success <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkOAuth2::ckDispose(oauth2)
        ProcedureReturn
    EndIf

    sbJson.i = CkStringBuilder::ckCreate()
    If sbJson.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkRest::ckFullRequestNoBodySb(rest,"GET","/calendar/v3/calendars/support@chilkatcloud.com/events/35ocdnnjofbtfs6c602uqvdg9u",sbJson)
    If success <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkOAuth2::ckDispose(oauth2)
        CkStringBuilder::ckDispose(sbJson)
        ProcedureReturn
    EndIf

    If CkRest::ckResponseStatusCode(rest) <> 200
        Debug "Received error response code: " + Str(CkRest::ckResponseStatusCode(rest))
        Debug "Response body:"
        Debug CkStringBuilder::ckGetAsString(sbJson)
        CkRest::ckDispose(rest)
        CkOAuth2::ckDispose(oauth2)
        CkStringBuilder::ckDispose(sbJson)
        ProcedureReturn
    EndIf

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoadSb(json,sbJson)

    ;  The following code parses the JSON response.
    ;  A sample JSON response is shown below the sample code.
    kind.s
    etag.s
    id.s
    status.s
    htmlLink.s
    created.s
    updated.s
    summary.s
    location.s
    creatorEmail.s
    creatorSelf.i
    organizerEmail.s
    organizerSelf.i
    startDateTime.s
    endDateTime.s
    iCalUID.s
    sequence.i
    hangoutLink.s
    remindersUseDefault.i
    i.i
    count_i.i
    email.s
    responseStatus.s
    organizer.i
    self.i

    kind = CkJsonObject::ckStringOf(json,"kind")
    etag = CkJsonObject::ckStringOf(json,"etag")
    id = CkJsonObject::ckStringOf(json,"id")
    status = CkJsonObject::ckStringOf(json,"status")
    htmlLink = CkJsonObject::ckStringOf(json,"htmlLink")
    created = CkJsonObject::ckStringOf(json,"created")
    updated = CkJsonObject::ckStringOf(json,"updated")
    summary = CkJsonObject::ckStringOf(json,"summary")
    location = CkJsonObject::ckStringOf(json,"location")
    creatorEmail = CkJsonObject::ckStringOf(json,"creator.email")
    creatorSelf = CkJsonObject::ckBoolOf(json,"creator.self")
    organizerEmail = CkJsonObject::ckStringOf(json,"organizer.email")
    organizerSelf = CkJsonObject::ckBoolOf(json,"organizer.self")
    startDateTime = CkJsonObject::ckStringOf(json,"start.dateTime")
    endDateTime = CkJsonObject::ckStringOf(json,"end.dateTime")
    iCalUID = CkJsonObject::ckStringOf(json,"iCalUID")
    sequence = CkJsonObject::ckIntOf(json,"sequence")
    hangoutLink = CkJsonObject::ckStringOf(json,"hangoutLink")
    remindersUseDefault = CkJsonObject::ckBoolOf(json,"reminders.useDefault")
    i = 0
    count_i = CkJsonObject::ckSizeOfArray(json,"attendees")
    While i < count_i
        CkJsonObject::setCkI(json, i)
        email = CkJsonObject::ckStringOf(json,"attendees[i].email")
        responseStatus = CkJsonObject::ckStringOf(json,"attendees[i].responseStatus")
        organizer = CkJsonObject::ckBoolOf(json,"attendees[i].organizer")
        self = CkJsonObject::ckBoolOf(json,"attendees[i].self")
        i = i + 1
    Wend

    Debug "Example Completed."


    CkRest::ckDispose(rest)
    CkOAuth2::ckDispose(oauth2)
    CkStringBuilder::ckDispose(sbJson)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure

Sample JSON Response Body

{
  "kind": "calendar#event",
  "etag": "\"3020331471326000\"",
  "id": "35ocdnnjofbtfs6c602uqvdg9u",
  "status": "confirmed",
  "htmlLink": "https://www.google.com/calendar/event?eid=MzVvY2RubmpvZmJ0ZnM2YzYwMnVxdmRnOXUgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
  "created": "2017-11-08T18:25:38.000Z",
  "updated": "2017-11-08T18:28:55.663Z",
  "summary": "QXQC",
  "location": "Quigley's Irish Pub, 43 E Jefferson Ave, Naperville, IL 60540, USA",
  "creator": {
    "email": "support@chilkatcloud.com",
    "self": true
  },
  "organizer": {
    "email": "support@chilkatcloud.com",
    "self": true
  },
  "start": {
    "dateTime": "2017-11-09T20:00:00-06:00"
  },
  "end": {
    "dateTime": "2017-11-09T23:00:00-06:00"
  },
  "iCalUID": "35ocdnnjofbtfs6c602uqvdg9u@google.com",
  "sequence": 0,
  "attendees": [
    {
      "email": "dean@example.com",
      "responseStatus": "needsAction"
    },
    {
      "email": "support@chilkatcloud.com",
      "organizer": true,
      "self": true,
      "responseStatus": "accepted"
    },
    {
      "email": "ajay@example.com",
      "responseStatus": "needsAction"
    },
    {
      "email": "jim@example.com",
      "responseStatus": "needsAction"
    },
    {
      "email": "gilian@example.com",
      "responseStatus": "needsAction"
    }
  ],
  "hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.35ocdnnjofbtfs6c602uqvdg9u",
  "reminders": {
    "useDefault": true
  }
}