B4X

Delete a Google Calendar Event

See more Google Calendar Examples

Demonstrates how to delete a Google Calendar event. B4X

Dim success As Boolean = False

'  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..
Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/googleCalendar.json")
If jsonToken.HasMember("access_token") = False Then
    Log("No access token found.")
    Return
End If

Dim http As ChilkatHttp
http.Initialize("http")
http.AuthToken = jsonToken.StringOf("access_token")

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

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpNoBody("DELETE", url, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


If resp.StatusCode = 204 Then
    '  Success.
    Log("Event deleted")
Else
    If resp.StatusCode = 401 Then
        Log("Try refreshing the access token and then retry...")
    End If


    '  Failed. 
    Log(resp.BodyStr)
End If