Delphi ActiveX

Get Task Lists

See more Google Tasks Examples

Demonstrates how to download the Google task lists. Delphi ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
fac: TCkFileAccess;
accessToken: WideString;
http: TChilkatHttp;
resp: TChilkatHttpResponse;
kind: WideString;
etag: WideString;
i: Integer;
count_i: Integer;
id: WideString;
title: WideString;
updated: WideString;
selfLink: WideString;
json: TChilkatJsonObject;

begin
success := 0;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// Get the previously obtained access token.
// See Get Google Tasks Access Token.

fac := TCkFileAccess.Create(Self);
accessToken := fac.ReadEntireTextFile('qa_data/tokens/googleTasks.txt','utf-8');
if (fac.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(fac.LastErrorText);
    Exit;
  end;

http := TChilkatHttp.Create(Self);

http.AuthToken := accessToken;

resp := TChilkatHttpResponse.Create(Self);
success := http.HttpNoBody('GET','https://www.googleapis.com/tasks/v1/users/@me/lists',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

// Show the response body.
Memo1.Lines.Add(resp.BodyStr);

// Examine the response status code.
Memo1.Lines.Add('response status code: ' + IntToStr(resp.StatusCode));

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

json := TChilkatJsonObject.Create(Self);
json.Load(resp.BodyStr);

kind := json.StringOf('kind');
etag := json.StringOf('etag');
i := 0;
count_i := json.SizeOfArray('items');
while i < count_i do
  begin
    json.I := i;
    kind := json.StringOf('items[i].kind');
    id := json.StringOf('items[i].id');
    title := json.StringOf('items[i].title');
    updated := json.StringOf('items[i].updated');
    selfLink := json.StringOf('items[i].selfLink');
    i := i + 1;
  end;

// Sample response:

// {
//  "kind": "tasks#taskLists",
//  "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/cv_AS-HUP96xJ9bgP8Y2B8WGSpM\"",
//  "items": [
//   {
//    "kind": "tasks#taskList",
//    "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6MDow",
//    "title": "My Tasks",
//    "updated": "2019-04-04T17:42:52.000Z",
//    "selfLink": "https://www.googleapis.com/tasks/v1/users/@me/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6MDow"
//   },
//   {
//    "kind": "tasks#taskList",
//    "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6MzE3OTUxODY4OTU1MTEwMDow",
//    "title": "ccc",
//    "updated": "2019-04-04T17:15:19.000Z",
//    "selfLink": "https://www.googleapis.com/tasks/v1/users/@me/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6MzE3OTUxODY4OTU1MTEwMDow"
//   },
//   {
//    "kind": "tasks#taskList",
//    "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NDQ0NTA4MDYyNTY3OTEzMzow",
//    "title": "bbb",
//    "updated": "2019-04-04T17:15:02.000Z",
//    "selfLink": "https://www.googleapis.com/tasks/v1/users/@me/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NDQ0NTA4MDYyNTY3OTEzMzow"
//   },
//   {
//    "kind": "tasks#taskList",
//    "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow",
//    "title": "aaa",
//    "updated": "2019-04-04T17:13:17.000Z",
//    "selfLink": "https://www.googleapis.com/tasks/v1/users/@me/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow"
//   }
//  ]
// }
// 
// response status code: 200
end;