loan

subject: Google Calendar Component (delphi Internet Components) [print this page]

Abstract
Abstract

In this article, I will show you how to write your own Google Calendar in Delphi using Internet components from Clever Internet Suite library ( http://www.clevercomponents.com/products/inetsuite/ ).

The reason why I decided to write this article is that the standard Google API does not provide a library for working with Calendar via Delphi. This is the first part of series describing a simple Delphi component that authorizes using the Google API service and implements several commands for working with calendar events. In future articles of the series, I will write about other Google Calendar commands and also about oAuth authorization in Google API services.

About CalDAV protocol

Many websites provide online services for computations, storing of data, working with emails, task scheduling and many other useful things. Some services are implemented by using Cloud Technologies. Often it's necessary to organize communication between an online service and an application that runs on a local PC via special API that the online service provides for developers.

In most cases such API's use HTTP-based Internet protocol: HTTP itself, WebDAV, CalDAV, etc. The commands and data are transferred in XML, SOAP or SOAP-WSDL format.

We will need to use two Internet components for working with the service API: the first one supports the HTTP protocol and the latter composes HTTP requests in XML format.

Let's go ahead and write some simple code in Delphi that connects to the Google Calendar API and creates a new event. The Google Calendar API uses a special protocol - CalDAV. This protocol represents an extension of the WebDAV protocol. You can learn more about both WebDAV and CalDav protocols by reading the documentation at RFC 4918 and RFC 4791.

Create a Google Calendar event

The following two steps are needed to create a new event in Google Calendar in Delphi:

connect to Google API and authorize the request;

send a CalDAV command in XML format to the web service.

Both steps require a WebDAV client and code that composes HTTP requests in the appropriate format. All this functionality can be found in the Internet Components - Clever Internet Suite library. Alternatively, you can use any other Internet library, e.g. Indy, that is the core part of RAD Studio installation. But in fact, the Clever Internet Suite provides a set of flexible Internet components that communicate via both HTTP/HTTPS and WebDAV protocols, allow data compression and also support various authentication methods: Basic, Digest, NTLM, Negotiate and Kerberos. You can connect from your application to most popular online services: Google Calendar, Youtube, Picasa, Yahoo, Windows Live services and many more.

To transfer data over the Internet let's use TclWebDAV component. This component includes a fully-functional WebDAV (and HTTP as well) client and implements all WebDAV and HTTP commands. We will create a new component and include TclWebDAV within it. To be simple, let's add properties for the event to this component. In a future version of this component, we will move it to a separate class in the same way that Google .NET Client Library does.

TclGoogleCalendar = class(TComponent)

private

FWebDav: TclWebDav;

FRequest: TclHttpRequest;

.......

published

property Email: string read GetEmail write SetEmail;

property Password: string read GetPassword write SetPassword;

property EventTitle: string read FEventTitle write FEventTitle;

property EventContent: string read FEventContent write FEventContent;

property EventWhere: string read FEventWhere write FEventWhere;

property EventStartTime: string read FEventStartTime write FEventStartTime;

property EventEndTime: string read FEventEndTime write FEventEndTime;

end;

The TclHttpRequest component combines an HTTP request in the appropriate format for creating a new Google Calendar event:

createRequest := 'xml request...';

FRequest.Clear();

FRequest.AddTextData(createRequest);

FRequest.Header.Authorization := 'GoogleLogin ' + AuthID;

FRequest.Header.ContentType := 'application/atom+xml';

A list of Google Calendar commands can be found in the Google Calendar APIs

Log in to Google Calendar

For working with Google online services, you must authorize your requests first. Different authorization interfaces that are used in Google API are described in Authorizing requests and identifying your application

Please see below a sample of using the ClientLogin Google API interface:

FRequest.Clear();

FRequest.AddFormField('accountType', 'HOSTED_OR_GOOGLE');

FRequest.AddFormField('Email', Email);

FRequest.AddFormField('Passwd', Password);

FRequest.AddFormField('service', 'cl');

FRequest.AddFormField('source', 'Delphi_Google_Calendar_API');

FWebDav.Post('https://www.google.com/accounts/ClientLogin', FWebDav.Response);

ind := Pos('Auth=', FWebDav.Response.Text);

FAuthID := System.Copy(WebDav.Response.Text, ind, 10000);

The FAuthID value should be added to all subsequent HTTP request headers in order to authorize it.

Download source code

The complete source code for working with Google Calendar can be downloaded here:

Download Google Calendar Delphi component with sample (http://www.clevercomponents.com/articles/article032/gcalendar.zip)

Download Clever Internet Suite library

To install the component, first, download and install Clever Internet Suite library. Next, unpack the gcalendar.zip archive. This archive includes a project file GCalLib.dpk. You need to open it in your Delphi IDE, modify the "uses" section (see the comments within the dpk file), build and install the package.

The provided component implements only few Google API functions for working with Calendar. You can extend it on your own or you can use it as a starting point for developing your own functionality.

The component can be run in Delphi 5-7, 2005-2010, XE and XE2 since the Clever Internet Suite supports all these versions of Delphi and C++ Builder as well.

Please feel free to contact me at Customer Portal

by: Sergey Shirokov

welcome to loan (http://www.yloan.com/)