Delphi DLL

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". Delphi 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
success: Boolean;
jsonToken: HCkJsonObject;
http: HCkHttp;
jsonResponse: PWideChar;
json: HCkJsonObject;
numSettings: Integer;
i: Integer;

begin
success := False;

// 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'));

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

Memo1.Lines.Add(jsonResponse);

// 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:
json := CkJsonObject_Create();
CkJsonObject_Load(json,jsonResponse);

Memo1.Lines.Add('kind: ' + CkJsonObject__stringOf(json,'kind'));
Memo1.Lines.Add('id: ' + CkJsonObject__stringOf(json,'id'));

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

  end;

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

end;