Xbase++

Insert a New Google Calendar Event

See more Google Calendar Examples

Demonstrates how to insert a new Google Calendar event. Xbase++

LOCAL nSuccess
LOCAL oJsonToken
LOCAL oHttp
LOCAL oJson
LOCAL cUrl
LOCAL oResp
LOCAL oJsonResp

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")

//  Build a Google Calendar event:
oJson := CreateObject("Chilkat.JsonObject")
oJson:EmitCompact := 0
oJson:UpdateString("kind", "calendar#event")
oJson:UpdateString("summary", "Eat Lou Malnati's Pizza")
oJson:UpdateString("start.dateTime", "2021-03-12T12:00:00-05:00")
oJson:UpdateString("end.dateTime", "2021-03-12T13:00:00-05:00")

? oJson:Emit()

//  This is the event JSON we'll be sending the HTTP POST:

//  {
//    "kind": "calendar#event",
//    "summary": "Eat Lou Malnati's Pizza",
//    "start": {
//      "dateTime": "2021-03-12T12:00:00-05:00"
//    },
//    "end": {
//      "dateTime": "2021-03-12T13:00:00-05:00"
//    }
//  }

cUrl := "https://www.googleapis.com/calendar/v3/calendars/{$calendarId}/events"
oHttp:SetUrlVar("calendarId", "primary")
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", cUrl, oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oJsonToken:destroy()
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

oJsonResp := CreateObject("Chilkat.JsonObject")
oJsonResp:EmitCompact := 0
oJsonResp:Load(oResp:BodyStr)

IF (oResp:StatusCode == 200)
    //  Success.
    //  The newly created event resource JSON is returned.
    ? oJsonResp:Emit()
ELSE
    IF (oResp:StatusCode == 401)
        ? "Try refreshing the access token and then retry..."
    ENDIF

    //  Failed. 
    //  Show the JSON error response.
    ? oJsonResp:Emit()
ENDIF

//  A successful response body:

//  {
//    "kind": "calendar#event",
//    "etag": "\"3004969011208000\"",
//    "id": "v7kvmsvsoms3hjl5uq423jqhb0",
//    "status": "confirmed",
//    "htmlLink": "https://www.google.com/calendar/event?eid=djdrdm1zdnNvbXMzaGpsNXVxNDIzanFoYjAgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
//    "created": "2017-08-11T20:48:25.000Z",
//    "updated": "2017-08-11T20:48:25.604Z",
//    "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": "v7kvmsvsoms3hjl5uq423jqhb0@google.com",
//    "sequence": 0,
//    "hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.v7kvmsvsoms3hjl5uq423jqhb0",
//    "reminders": {
//      "useDefault": true
//    }
//  }

oJsonToken:destroy()
oHttp:destroy()
oJson:destroy()
oResp:destroy()
oJsonResp:destroy()