Returns entries on the user's calendar list.
Use ChilkatAx-9.5.0-win32.pkg
Procedure Test
Handle hoRest
Boolean iSuccess
Variant vOauth2
Handle hoOauth2
Variant vSbJson
Handle hoSbJson
Handle hoJson
String sKind
String sEtag
String sNextSyncToken
Integer i
Integer iCount_i
String sId
String sSummary
String sTimeZone
String sColorId
String sBackgroundColor
String sForegroundColor
Boolean iSelected
String sAccessRole
Boolean iPrimary
Integer j
Integer iCount_j
String sMethod
Integer iMinutes
String sType
String sTemp1
Integer iTemp1
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// Provide a previously obtained OAuth2 access token.
Get Create (RefClass(cComChilkatOAuth2)) To hoOauth2
If (Not(IsComObjectCreated(hoOauth2))) Begin
Send CreateComObject of hoOauth2
End
Set ComAccessToken Of hoOauth2 To "OAUTH2_ACCESS_TOKEN"
Get pvComObject of hoOauth2 to vOauth2
Get ComSetAuthOAuth2 Of hoRest vOauth2 To iSuccess
Get ComConnect Of hoRest "www.googleapis.com" 443 True True To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbJson
If (Not(IsComObjectCreated(hoSbJson))) Begin
Send CreateComObject of hoSbJson
End
Get pvComObject of hoSbJson to vSbJson
Get ComFullRequestNoBodySb Of hoRest "GET" "/calendar/v3/users/me/calendarList" vSbJson To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComResponseStatusCode Of hoRest To iTemp1
If (iTemp1 <> 200) Begin
Get ComResponseStatusCode Of hoRest To iTemp1
Showln "Received error response code: " iTemp1
Showln "Response body:"
Get ComGetAsString Of hoSbJson To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get pvComObject of hoSbJson to vSbJson
Get ComLoadSb Of hoJson vSbJson To iSuccess
// The following code parses the JSON response.
// A sample JSON response is shown below the sample code.
Get ComStringOf Of hoJson "kind" To sKind
Get ComStringOf Of hoJson "etag" To sEtag
Get ComStringOf Of hoJson "nextSyncToken" To sNextSyncToken
Move 0 To i
Get ComSizeOfArray Of hoJson "items" To iCount_i
While (i < iCount_i)
Set ComI Of hoJson To i
Get ComStringOf Of hoJson "items[i].kind" To sKind
Get ComStringOf Of hoJson "items[i].etag" To sEtag
Get ComStringOf Of hoJson "items[i].id" To sId
Get ComStringOf Of hoJson "items[i].summary" To sSummary
Get ComStringOf Of hoJson "items[i].timeZone" To sTimeZone
Get ComStringOf Of hoJson "items[i].colorId" To sColorId
Get ComStringOf Of hoJson "items[i].backgroundColor" To sBackgroundColor
Get ComStringOf Of hoJson "items[i].foregroundColor" To sForegroundColor
Get ComBoolOf Of hoJson "items[i].selected" To iSelected
Get ComStringOf Of hoJson "items[i].accessRole" To sAccessRole
Get ComBoolOf Of hoJson "items[i].primary" To iPrimary
Move 0 To j
Get ComSizeOfArray Of hoJson "items[i].defaultReminders" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJson To j
Get ComStringOf Of hoJson "items[i].defaultReminders[j].method" To sMethod
Get ComIntOf Of hoJson "items[i].defaultReminders[j].minutes" To iMinutes
Move j + 1 To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJson "items[i].notificationSettings.notifications" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJson To j
Get ComStringOf Of hoJson "items[i].notificationSettings.notifications[j].type" To sType
Get ComStringOf Of hoJson "items[i].notificationSettings.notifications[j].method" To sMethod
Move j + 1 To j
Loop
Move i + 1 To i
Loop
Showln "Example Completed."
End_Procedure
{
"kind": "calendar#calendarList",
"etag": "\"p33gdfl6bualde0g\"",
"nextSyncToken": "CODX1MvyqtcCEhhzdXBwb3J0QGNoaWxrYXRjbG91ZC5jb20=",
"items": [
{
"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
},
{
"kind": "calendar#calendarListEntry",
"etag": "\"1502373382732000\"",
"id": "#contacts@group.v.calendar.google.com",
"summary": "Contacts",
"timeZone": "America/Chicago",
"colorId": "13",
"backgroundColor": "#92e1c0",
"foregroundColor": "#000000",
"selected": true,
"accessRole": "reader",
"defaultReminders": []
},
{
"kind": "calendar#calendarListEntry",
"etag": "\"1502373376447000\"",
"id": "en.usa#holiday@group.v.calendar.google.com",
"summary": "Holidays in United States",
"timeZone": "America/Chicago",
"colorId": "8",
"backgroundColor": "#16a765",
"foregroundColor": "#000000",
"selected": true,
"accessRole": "reader",
"defaultReminders": []
}
]
}