(Delphi DLL) List Google Calendars

See more Google Calendar Examples

Demonstrates how to list the Google Calendars for an account.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JsonObject, Http;

...

procedure TForm1.Button1Click(Sender: TObject);
var
jsonToken: HCkJsonObject;
success: Boolean;
http: HCkHttp;
jsonResponse: PWideChar;
json: HCkJsonObject;
numCalendars: Integer;
i: Integer;
numSettings: Integer;
j: Integer;

begin
// 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..
jsonToken := CkJsonObject_Create();
success := CkJsonObject_LoadFile(jsonToken,'qa_data/tokens/googleCalendar.json');
if (CkJsonObject_HasMember(jsonToken,'access_token') = False) then
  begin
    Memo1.Lines.Add('No access token found.');
    Exit;
  end;
http := CkHttp_Create();
CkHttp_putAuthToken(http,CkJsonObject__stringOf(jsonToken,'access_token'));

jsonResponse := CkHttp__quickGetStr(http,'https://www.googleapis.com/calendar/v3/users/me/calendarList');
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add(jsonResponse);
Memo1.Lines.Add('-----------------------------');

// This is a sample JSON response:
// (Sample code to iterate over the JSON response is shown below.)

// {
//  "kind": "calendar#calendarList",
//  "etag": "\"p32cfpufit76da0g\"",
//  "nextSyncToken": "CJj8-fLpzNUCEhhzdXBwb3J0QGNoaWxrYXRjbG91ZC5jb20=",
//  "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": []
//   }
//  ]
// }
// 

// Iterate over the JSON response..
json := CkJsonObject_Create();
CkJsonObject_Load(json,jsonResponse);

numCalendars := CkJsonObject_SizeOfArray(json,'items');
i := 0;
while i < numCalendars do
  begin
    Memo1.Lines.Add('--- ' + IntToStr(i) + ' ---');
    CkJsonObject_putI(json,i);
    Memo1.Lines.Add('kind: ' + CkJsonObject__stringOf(json,'items[i].kind'));
    Memo1.Lines.Add('id: ' + CkJsonObject__stringOf(json,'items[i].id'));

    // Examine the notification settings, if any..
    numSettings := CkJsonObject_SizeOfArray(json,'items[i].notificationSettings.notifications');
    if (numSettings > 0) then
      begin
        j := 0;
        while j < numSettings do
          begin
            CkJsonObject_putJ(json,j);
            Memo1.Lines.Add('Notification Type: ' + CkJsonObject__stringOf(json,'items[i].notificationSettings.notifications[j].type'));
            Memo1.Lines.Add('Notification Method: ' + CkJsonObject__stringOf(json,'items[i].notificationSettings.notifications[j].method'));
            j := j + 1;
          end;

      end;
    i := i + 1;
  end;

CkJsonObject_Dispose(jsonToken);
CkHttp_Dispose(http);
CkJsonObject_Dispose(json);

end;