Visual FoxPro

Delete a Google Calendar Event

See more Google Calendar Examples

Demonstrates how to delete a Google Calendar event. Visual FoxPro

LOCAL lnSuccess
LOCAL loJsonToken
LOCAL loHttp
LOCAL lcUrl
LOCAL loResp

lnSuccess = 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..
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

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 = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("DELETE",lcUrl,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loJsonToken
    RELEASE loHttp
    RELEASE loResp
    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 loJsonToken
RELEASE loHttp
RELEASE loResp