PureBasic Google Calendar: QuickAdd a Calendar Event

Back to Index

Creates an event based on a simple text string. (This example adds an event to the calendar with id = "support@chilkatcloud.com".)

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

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

    CkRest::ckAddQueryParam(rest,"text","Dentist Appointment")
    CkRest::ckAddQueryParam(rest,"sendNotifications","true")

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

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

    success = CkRest::ckFullRequestSb(rest,"POST","/calendar/v3/calendars/support@chilkatcloud.com/events/quickAdd",sbReq,sbJson)
    If success <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkOAuth2::ckDispose(oauth2)
        CkStringBuilder::ckDispose(sbReq)
        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(sbReq)
        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
    creatorEmail.s
    creatorSelf.i
    organizerEmail.s
    organizerSelf.i
    startDateTime.s
    endDateTime.s
    iCalUID.s
    sequence.i
    hangoutLink.s
    remindersUseDefault.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")
    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")

    Debug "Example Completed."


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


    ProcedureReturn
EndProcedure

Sample JSON Response Body

{
  "kind": "calendar#event",
  "etag": "\"3020352941868000\"",
  "id": "52e7uk7j7vl5dosj7b25memov0",
  "status": "confirmed",
  "htmlLink": "https://www.google.com/calendar/event?eid=NTJlN3VrN2o3dmw1ZG9zajdiMjVtZW1vdjAgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
  "created": "2017-11-08T21:27:50.000Z",
  "updated": "2017-11-08T21:27:50.934Z",
  "summary": "Dentist Appointment",
  "creator": {
    "email": "support@chilkatcloud.com",
    "self": true
  },
  "organizer": {
    "email": "support@chilkatcloud.com",
    "self": true
  },
  "start": {
    "dateTime": "2017-11-08T15:27:50-06:00"
  },
  "end": {
    "dateTime": "2017-11-08T16:27:50-06:00"
  },
  "iCalUID": "52e7uk7j7vl5dosj7b25memov0@google.com",
  "sequence": 0,
  "hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.52e7uk7j7vl5dosj7b25memov0",
  "reminders": {
    "useDefault": true
  }
}