(DataFlex) Get a Google Calendar

See more Google Calendar Examples

Demonstrates how to get a particular Google Calendar. The calendar can be referenced by the calendar ID, or by the keyword "primary".

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

Use ChilkatAx-win32.pkg

Procedure Test
Token    Handle hoJsonToken
    Boolean iSuccess
    Handle hoHttp
    String sJsonResponse
    Handle hoJson
    Integer iNumSettings
    Integer i
    String sTemp1
    Boolean bTemp1

    // 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..
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
    If (Not(IsComObjectCreated(hoJsonToken))) Begin
        Send CreateComObject of hoJsonToken
    End
    Get ComLoadFile Of hoJsonToken "qa_data/tokens/googleCalendar.json" To iSuccess
    Get ComHasMember Of hoJsonToken "access_token" To bTemp1
    If (bTemp1 = False) Begin
        Showln "No access token found."
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End
    Get ComStringOf Of hoJsonToken "access_token" To sTemp1
    Set ComAuthToken Of hoHttp To sTemp1

    // Let's get the primary calendar.
    Get ComQuickGetStr Of hoHttp "https://www.googleapis.com/calendar/v3/users/me/calendarList/primary" To sJsonResponse
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln sJsonResponse

    // A sample response is:

    // {
    //  "kind": "calendar#calendarListEntry",
    //  "etag": "\"1465249947472000\"",
    //  "id": "support@chilkatcloud.com",
    //  "summary": "support@chilkatcloud.com",
    //  "timeZone": "America/Chicago",
    //  "colorId": "14",
    //  "backgroundColor": "#9fe1e7",
    //  "foregroundColor": "#000000",
    //  "selected": true,
    //  "accessRole": "owner",
    //  "defaultReminders": [
    //   {
    //    "method": "popup",
    //    "minutes": 10
    //   }
    //  ],
    //  "notificationSettings": {
    //   "notifications": [
    //    {
    //     "type": "eventCreation",
    //     "method": "email"
    //    },
    //    {
    //     "type": "eventChange",
    //     "method": "email"
    //    },
    //    {
    //     "type": "eventCancellation",
    //     "method": "email"
    //    },
    //    {
    //     "type": "eventResponse",
    //     "method": "email"
    //    }
    //   ]
    //  },
    //  "primary": true
    // }

    // It can be parsed like this:
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComLoad Of hoJson sJsonResponse To iSuccess

    Get ComStringOf Of hoJson "kind" To sTemp1
    Showln "kind: " sTemp1
    Get ComStringOf Of hoJson "id" To sTemp1
    Showln "id: " sTemp1

    // Examine the notification settings, if any..
    Get ComSizeOfArray Of hoJson "notificationSettings.notifications" To iNumSettings
    If (iNumSettings > 0) Begin
        Move 0 To i
        While (i < iNumSettings)
            Set ComI Of hoJson To i
            Get ComStringOf Of hoJson "notificationSettings.notifications[i].type" To sTemp1
            Showln "Notification Type: " sTemp1
            Get ComStringOf Of hoJson "notificationSettings.notifications[i].method" To sTemp1
            Showln "Notification Method: " sTemp1
            Move (i + 1) To i
        Loop

    End



End_Procedure