(Visual FoxPro) Delete a Google Calendar Event

See more Google Calendar Examples

Demonstrates how to delete a Google Calendar event.

For more information, see https://developers.google.com/calendar/v3/reference/events/delete

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loHttp
LOCAL lcUrl
LOCAL loResp

* 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..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googleCalendar.json")
IF (loJsonToken.HasMember("access_token") = 0) THEN
    ? "No access token found."
    RELEASE loJsonToken
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
loHttp.AuthToken = loJsonToken.StringOf("access_token")

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

loResp = loHttp.QuickRequest("DELETE",lcUrl)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loJsonToken
    RELEASE loHttp
    CANCEL
ENDIF

IF (loResp.StatusCode = 204) THEN
    * Success.
    ? "Event deleted"
ELSE
    IF (loResp.StatusCode = 401) THEN
        ? "Try refreshing the access token and then retry..."
    ENDIF

    * Failed. 
    ? loResp.BodyStr
ENDIF

RELEASE loResp

RELEASE loJsonToken
RELEASE loHttp