![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) Insert a New Google Calendar EventSee more Google Calendar ExamplesDemonstrates how to insert a new Google Calendar event.Note: This example requires Chilkat v11.0.0 or greater.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Variant vJson Token Handle hoJsonToken Handle hoHttp Variant vJson Handle hoJson String sUrl Variant vResp Handle hoResp Handle hoJsonResp String sTemp1 Integer iTemp1 Boolean bTemp1 Move False To iSuccess // 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 // Build a Google Calendar event: Get Create (RefClass(cComChilkatJsonObject)) To hoJson If (Not(IsComObjectCreated(hoJson))) Begin Send CreateComObject of hoJson End Set ComEmitCompact Of hoJson To False Get ComUpdateString Of hoJson "kind" "calendar#event" To iSuccess Get ComUpdateString Of hoJson "summary" "Eat Lou Malnati's Pizza" To iSuccess Get ComUpdateString Of hoJson "start.dateTime" "2021-03-12T12:00:00-05:00" To iSuccess Get ComUpdateString Of hoJson "end.dateTime" "2021-03-12T13:00:00-05:00" To iSuccess Get ComEmit Of hoJson To sTemp1 Showln sTemp1 // This is the event JSON we'll be sending the HTTP POST: // { // "kind": "calendar#event", // "summary": "Eat Lou Malnati's Pizza", // "start": { // "dateTime": "2021-03-12T12:00:00-05:00" // }, // "end": { // "dateTime": "2021-03-12T13:00:00-05:00" // } // } Move "https://www.googleapis.com/calendar/v3/calendars/{$calendarId}/events" To sUrl Get ComSetUrlVar Of hoHttp "calendarId" "primary" To iSuccess Get Create (RefClass(cComChilkatHttpResponse)) To hoResp If (Not(IsComObjectCreated(hoResp))) Begin Send CreateComObject of hoResp End Get pvComObject of hoJson to vJson Get pvComObject of hoResp to vResp Get ComHttpJson Of hoHttp "POST" sUrl vJson "application/json" vResp To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatJsonObject)) To hoJsonResp If (Not(IsComObjectCreated(hoJsonResp))) Begin Send CreateComObject of hoJsonResp End Set ComEmitCompact Of hoJsonResp To False Get ComBodyStr Of hoResp To sTemp1 Get ComLoad Of hoJsonResp sTemp1 To iSuccess Get ComStatusCode Of hoResp To iTemp1 If (iTemp1 = 200) Begin // Success. // The newly created event resource JSON is returned. Get ComEmit Of hoJsonResp To sTemp1 Showln sTemp1 End Else Begin Get ComStatusCode Of hoResp To iTemp1 If (iTemp1 = 401) Begin Showln "Try refreshing the access token and then retry..." End // Failed. // Show the JSON error response. Get ComEmit Of hoJsonResp To sTemp1 Showln sTemp1 End // A successful response body: // { // "kind": "calendar#event", // "etag": "\"3004969011208000\"", // "id": "v7kvmsvsoms3hjl5uq423jqhb0", // "status": "confirmed", // "htmlLink": "https://www.google.com/calendar/event?eid=djdrdm1zdnNvbXMzaGpsNXVxNDIzanFoYjAgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t", // "created": "2017-08-11T20:48:25.000Z", // "updated": "2017-08-11T20:48:25.604Z", // "summary": "Eat Lou Malnati's Pizza", // "creator": { // "email": "support@chilkatcloud.com", // "self": true // }, // "organizer": { // "email": "support@chilkatcloud.com", // "self": true // }, // "start": { // "dateTime": "2017-08-12T12:00:00-05:00" // }, // "end": { // "dateTime": "2017-08-12T13:00:00-05:00" // }, // "iCalUID": "v7kvmsvsoms3hjl5uq423jqhb0@google.com", // "sequence": 0, // "hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.v7kvmsvsoms3hjl5uq423jqhb0", // "reminders": { // "useDefault": true // } // } End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.