B4X

Get all Tasks on a List

See more Google Tasks Examples

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

Dim success As Boolean = False

'  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 ChilkatFileAccess
fac.Initialize
Dim accessToken As String = fac.ReadEntireTextFile("qa_data/tokens/googleTasks.txt", "utf-8")
If fac.LastMethodSuccess = False Then
    Log(fac.LastErrorText)
    Return
End If


Dim http As ChilkatHttp
http.Initialize("http")

http.AuthToken = accessToken

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

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpNoBody("GET", "https://www.googleapis.com/tasks/v1/lists/{$tasklist}/tasks", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


'  Show the response body.
Log(resp.BodyStr)

'  Examine the response status code.
Log("response status code: " & 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 Int
Dim count_i As Int
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 ChilkatJsonObject
json.Initialize
json.Load(resp.BodyStr)

kind = json.StringOf("kind")
etag = json.StringOf("etag")
i = 0
count_i = json.SizeOfArray("items")
Do 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
Loop

'  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