![]() |
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
(Delphi ActiveX) Get Task ListsDemonstrates how to download the Google task lists. Note: This example requires Chilkat v11.0.0 or greater.
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; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.