Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) Create Google Task ListDemonstrates how to create a new task list.
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 fac: TCkFileAccess; accessToken: WideString; http: TChilkatHttp; json: TChilkatJsonObject; success: Integer; resp: IChilkatHttpResponse; begin // 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 <> 1) then begin Memo1.Lines.Add(fac.LastErrorText); Exit; end; http := TChilkatHttp.Create(Self); http.AuthToken := accessToken; // Create a task list named "aaa" json := TChilkatJsonObject.Create(Self); success := json.UpdateString('title','aaa'); resp := http.PostJson('https://www.googleapis.com/tasks/v1/users/@me/lists',json.Emit()); if (http.LastMethodSuccess = 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)); // Sample response: // Use this online tool to generate parsing code from sample JSON: // Generate Parsing Code from JSON // { // "kind": "tasks#taskList", // "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow", // "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/tK44F5sk_kx_cfoK27XsUCxCTKE\"", // "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-2024 Chilkat Software, Inc. All Rights Reserved.