(Xojo Plugin) Get all Tasks on a List

Demonstrates how to get all the tasks in a Google task list.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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.

Dim fac As New Chilkat.FileAccess
Dim accessToken As String
accessToken = fac.ReadEntireTextFile("qa_data/tokens/googleTasks.txt","utf-8")
If (fac.LastMethodSuccess <> True) Then
    System.DebugLog(fac.LastErrorText)
    Return
End If

Dim http As New Chilkat.Http

http.AuthToken = accessToken

// Get the tasks from the task list w/ id = MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow
success = http.SetUrlVar("tasklist","MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow")

Dim resp As Chilkat.HttpResponse
resp = http.QuickGetObj("https://www.googleapis.com/tasks/v1/lists/{$tasklist}/tasks")
If (http.LastMethodSuccess = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// Show the response body.
System.DebugLog(resp.BodyStr)

// Examine the response status code.
System.DebugLog("response status code: " + Str(resp.StatusCode))

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

Dim kind As String
Dim etag As String
Dim i As Int32
Dim count_i As Int32
Dim id As String
Dim title As String
Dim updated As String
Dim selfLink As String
Dim position As String
Dim notes As String
Dim status As String
Dim due As String

Dim json As New Chilkat.JsonObject
success = json.Load(resp.BodyStr)

kind = json.StringOf("kind")
etag = json.StringOf("etag")
i = 0
count_i = json.SizeOfArray("items")
While i < count_i
    json.I = i
    kind = json.StringOf("items[i].kind")
    id = json.StringOf("items[i].id")
    etag = json.StringOf("items[i].etag")
    title = json.StringOf("items[i].title")
    updated = json.StringOf("items[i].updated")
    selfLink = json.StringOf("items[i].selfLink")
    position = json.StringOf("items[i].position")
    notes = json.StringOf("items[i].notes")
    status = json.StringOf("items[i].status")
    due = json.StringOf("items[i].due")
    i = i + 1
Wend

// Sample response:

// {
//  "kind": "tasks#tasks",
//  "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/LTM3Njg4MjgyNA\"",
//  "items": [
//   {
//    "kind": "tasks#task",
//    "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzoyMDg3OTcyMDA1MTQ5NTA0",
//    "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/NjcyMTU4Mg\"",
//    "title": "Get haircut",
//    "updated": "2019-04-04T18:07:58.000Z",
//    "selfLink": "https://www.googleapis.com/tasks/v1/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow/tasks/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzoyMDg3OTcyMDA1MTQ5NTA0",
//    "position": "00000000001610612734",
//    "notes": "Check in online first.",
//    "status": "needsAction",
//    "due": "2019-04-07T00:00:00.000Z"
//   },
//   {
//    "kind": "tasks#task",
//    "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzoxMTg0MzQxMTkzMjM2MDY1",
//    "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/MTU1MjQzNDIwMQ\"",
//    "title": "Go to grocery store",
//    "updated": "2019-04-04T17:59:15.000Z",
//    "selfLink": "https://www.googleapis.com/tasks/v1/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow/tasks/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzoxMTg0MzQxMTkzMjM2MDY1",
//    "position": "00000000002147483647",
//    "notes": "Don't forget to buy apples.",
//    "status": "needsAction",
//    "due": "2019-04-07T00:00:00.000Z"
//   }
//  ]
// }
// 
// response status code: 200