Returns the color definitions for calendars and events.
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 sUpdated
String sCalendar1Background
String sCalendar1Foreground
String sCalendar2Background
String sCalendar2Foreground
String sCalendar3Background
String sCalendar3Foreground
String sCalendar4Background
String sCalendar4Foreground
String sCalendar5Background
String sCalendar5Foreground
String sCalendar6Background
String sCalendar6Foreground
String sCalendar7Background
String sCalendar7Foreground
String sCalendar8Background
String sCalendar8Foreground
String sCalendar9Background
String sCalendar9Foreground
String sCalendar10Background
String sCalendar10Foreground
String sCalendar11Background
String sCalendar11Foreground
String sCalendar12Background
String sCalendar12Foreground
String sCalendar13Background
String sCalendar13Foreground
String sCalendar14Background
String sCalendar14Foreground
String sCalendar15Background
String sCalendar15Foreground
String sCalendar16Background
String sCalendar16Foreground
String sCalendar17Background
String sCalendar17Foreground
String sCalendar18Background
String sCalendar18Foreground
String sCalendar19Background
String sCalendar19Foreground
String sCalendar20Background
String sCalendar20Foreground
String sCalendar21Background
String sCalendar21Foreground
String sCalendar22Background
String sCalendar22Foreground
String sCalendar23Background
String sCalendar23Foreground
String sCalendar24Background
String sCalendar24Foreground
String sEvent1Background
String sEvent1Foreground
String sEvent2Background
String sEvent2Foreground
String sEvent3Background
String sEvent3Foreground
String sEvent4Background
String sEvent4Foreground
String sEvent5Background
String sEvent5Foreground
String sEvent6Background
String sEvent6Foreground
String sEvent7Background
String sEvent7Foreground
String sEvent8Background
String sEvent8Foreground
String sEvent9Background
String sEvent9Foreground
String sEvent10Background
String sEvent10Foreground
String sEvent11Background
String sEvent11Foreground
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/colors" 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 "updated" To sUpdated
Get ComStringOf Of hoJson "calendar.1.background" To sCalendar1Background
Get ComStringOf Of hoJson "calendar.1.foreground" To sCalendar1Foreground
Get ComStringOf Of hoJson "calendar.2.background" To sCalendar2Background
Get ComStringOf Of hoJson "calendar.2.foreground" To sCalendar2Foreground
Get ComStringOf Of hoJson "calendar.3.background" To sCalendar3Background
Get ComStringOf Of hoJson "calendar.3.foreground" To sCalendar3Foreground
Get ComStringOf Of hoJson "calendar.4.background" To sCalendar4Background
Get ComStringOf Of hoJson "calendar.4.foreground" To sCalendar4Foreground
Get ComStringOf Of hoJson "calendar.5.background" To sCalendar5Background
Get ComStringOf Of hoJson "calendar.5.foreground" To sCalendar5Foreground
Get ComStringOf Of hoJson "calendar.6.background" To sCalendar6Background
Get ComStringOf Of hoJson "calendar.6.foreground" To sCalendar6Foreground
Get ComStringOf Of hoJson "calendar.7.background" To sCalendar7Background
Get ComStringOf Of hoJson "calendar.7.foreground" To sCalendar7Foreground
Get ComStringOf Of hoJson "calendar.8.background" To sCalendar8Background
Get ComStringOf Of hoJson "calendar.8.foreground" To sCalendar8Foreground
Get ComStringOf Of hoJson "calendar.9.background" To sCalendar9Background
Get ComStringOf Of hoJson "calendar.9.foreground" To sCalendar9Foreground
Get ComStringOf Of hoJson "calendar.10.background" To sCalendar10Background
Get ComStringOf Of hoJson "calendar.10.foreground" To sCalendar10Foreground
Get ComStringOf Of hoJson "calendar.11.background" To sCalendar11Background
Get ComStringOf Of hoJson "calendar.11.foreground" To sCalendar11Foreground
Get ComStringOf Of hoJson "calendar.12.background" To sCalendar12Background
Get ComStringOf Of hoJson "calendar.12.foreground" To sCalendar12Foreground
Get ComStringOf Of hoJson "calendar.13.background" To sCalendar13Background
Get ComStringOf Of hoJson "calendar.13.foreground" To sCalendar13Foreground
Get ComStringOf Of hoJson "calendar.14.background" To sCalendar14Background
Get ComStringOf Of hoJson "calendar.14.foreground" To sCalendar14Foreground
Get ComStringOf Of hoJson "calendar.15.background" To sCalendar15Background
Get ComStringOf Of hoJson "calendar.15.foreground" To sCalendar15Foreground
Get ComStringOf Of hoJson "calendar.16.background" To sCalendar16Background
Get ComStringOf Of hoJson "calendar.16.foreground" To sCalendar16Foreground
Get ComStringOf Of hoJson "calendar.17.background" To sCalendar17Background
Get ComStringOf Of hoJson "calendar.17.foreground" To sCalendar17Foreground
Get ComStringOf Of hoJson "calendar.18.background" To sCalendar18Background
Get ComStringOf Of hoJson "calendar.18.foreground" To sCalendar18Foreground
Get ComStringOf Of hoJson "calendar.19.background" To sCalendar19Background
Get ComStringOf Of hoJson "calendar.19.foreground" To sCalendar19Foreground
Get ComStringOf Of hoJson "calendar.20.background" To sCalendar20Background
Get ComStringOf Of hoJson "calendar.20.foreground" To sCalendar20Foreground
Get ComStringOf Of hoJson "calendar.21.background" To sCalendar21Background
Get ComStringOf Of hoJson "calendar.21.foreground" To sCalendar21Foreground
Get ComStringOf Of hoJson "calendar.22.background" To sCalendar22Background
Get ComStringOf Of hoJson "calendar.22.foreground" To sCalendar22Foreground
Get ComStringOf Of hoJson "calendar.23.background" To sCalendar23Background
Get ComStringOf Of hoJson "calendar.23.foreground" To sCalendar23Foreground
Get ComStringOf Of hoJson "calendar.24.background" To sCalendar24Background
Get ComStringOf Of hoJson "calendar.24.foreground" To sCalendar24Foreground
Get ComStringOf Of hoJson "event.1.background" To sEvent1Background
Get ComStringOf Of hoJson "event.1.foreground" To sEvent1Foreground
Get ComStringOf Of hoJson "event.2.background" To sEvent2Background
Get ComStringOf Of hoJson "event.2.foreground" To sEvent2Foreground
Get ComStringOf Of hoJson "event.3.background" To sEvent3Background
Get ComStringOf Of hoJson "event.3.foreground" To sEvent3Foreground
Get ComStringOf Of hoJson "event.4.background" To sEvent4Background
Get ComStringOf Of hoJson "event.4.foreground" To sEvent4Foreground
Get ComStringOf Of hoJson "event.5.background" To sEvent5Background
Get ComStringOf Of hoJson "event.5.foreground" To sEvent5Foreground
Get ComStringOf Of hoJson "event.6.background" To sEvent6Background
Get ComStringOf Of hoJson "event.6.foreground" To sEvent6Foreground
Get ComStringOf Of hoJson "event.7.background" To sEvent7Background
Get ComStringOf Of hoJson "event.7.foreground" To sEvent7Foreground
Get ComStringOf Of hoJson "event.8.background" To sEvent8Background
Get ComStringOf Of hoJson "event.8.foreground" To sEvent8Foreground
Get ComStringOf Of hoJson "event.9.background" To sEvent9Background
Get ComStringOf Of hoJson "event.9.foreground" To sEvent9Foreground
Get ComStringOf Of hoJson "event.10.background" To sEvent10Background
Get ComStringOf Of hoJson "event.10.foreground" To sEvent10Foreground
Get ComStringOf Of hoJson "event.11.background" To sEvent11Background
Get ComStringOf Of hoJson "event.11.foreground" To sEvent11Foreground
Showln "Example Completed."
End_Procedure
{
"kind": "calendar#colors",
"updated": "2012-02-14T00:00:00.000Z",
"calendar": {
"1": {
"background": "#ac725e",
"foreground": "#1d1d1d"
},
"2": {
"background": "#d06b64",
"foreground": "#1d1d1d"
},
"3": {
"background": "#f83a22",
"foreground": "#1d1d1d"
},
"4": {
"background": "#fa573c",
"foreground": "#1d1d1d"
},
"5": {
"background": "#ff7537",
"foreground": "#1d1d1d"
},
"6": {
"background": "#ffad46",
"foreground": "#1d1d1d"
},
"7": {
"background": "#42d692",
"foreground": "#1d1d1d"
},
"8": {
"background": "#16a765",
"foreground": "#1d1d1d"
},
"9": {
"background": "#7bd148",
"foreground": "#1d1d1d"
},
"10": {
"background": "#b3dc6c",
"foreground": "#1d1d1d"
},
"11": {
"background": "#fbe983",
"foreground": "#1d1d1d"
},
"12": {
"background": "#fad165",
"foreground": "#1d1d1d"
},
"13": {
"background": "#92e1c0",
"foreground": "#1d1d1d"
},
"14": {
"background": "#9fe1e7",
"foreground": "#1d1d1d"
},
"15": {
"background": "#9fc6e7",
"foreground": "#1d1d1d"
},
"16": {
"background": "#4986e7",
"foreground": "#1d1d1d"
},
"17": {
"background": "#9a9cff",
"foreground": "#1d1d1d"
},
"18": {
"background": "#b99aff",
"foreground": "#1d1d1d"
},
"19": {
"background": "#c2c2c2",
"foreground": "#1d1d1d"
},
"20": {
"background": "#cabdbf",
"foreground": "#1d1d1d"
},
"21": {
"background": "#cca6ac",
"foreground": "#1d1d1d"
},
"22": {
"background": "#f691b2",
"foreground": "#1d1d1d"
},
"23": {
"background": "#cd74e6",
"foreground": "#1d1d1d"
},
"24": {
"background": "#a47ae2",
"foreground": "#1d1d1d"
}
},
"event": {
"1": {
"background": "#a4bdfc",
"foreground": "#1d1d1d"
},
"2": {
"background": "#7ae7bf",
"foreground": "#1d1d1d"
},
"3": {
"background": "#dbadff",
"foreground": "#1d1d1d"
},
"4": {
"background": "#ff887c",
"foreground": "#1d1d1d"
},
"5": {
"background": "#fbd75b",
"foreground": "#1d1d1d"
},
"6": {
"background": "#ffb878",
"foreground": "#1d1d1d"
},
"7": {
"background": "#46d6db",
"foreground": "#1d1d1d"
},
"8": {
"background": "#e1e1e1",
"foreground": "#1d1d1d"
},
"9": {
"background": "#5484ed",
"foreground": "#1d1d1d"
},
"10": {
"background": "#51b749",
"foreground": "#1d1d1d"
},
"11": {
"background": "#dc2127",
"foreground": "#1d1d1d"
}
}
}