Xbase++

Delete a Google Calendar Event

See more Google Calendar Examples

Demonstrates how to delete a Google Calendar event. Xbase++

LOCAL nSuccess
LOCAL oJsonToken
LOCAL oHttp
LOCAL cUrl
LOCAL oResp

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

//  Your URL should use the actual calendar ID and the actual event ID for the event to be deleted.
cUrl := "https://www.googleapis.com/calendar/v3/calendars/your_calendar_id/events/your_event_id"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpNoBody("DELETE", cUrl, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oJsonToken:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

IF (oResp:StatusCode == 204)
    //  Success.
    ? "Event deleted"
ELSE
    IF (oResp:StatusCode == 401)
        ? "Try refreshing the access token and then retry..."
    ENDIF

    //  Failed. 
    ? oResp:BodyStr
ENDIF

oJsonToken:destroy()
oHttp:destroy()
oResp:destroy()