(PureBasic) Create New Task and Insert Onto List

Creates a new Google task and inserts it onto a task list.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkFileAccess.pb"
IncludeFile "CkDateTime.pb"

Procedure ChilkatExample()

    ; 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.i = CkFileAccess::ckCreate()
    If fac.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    accessToken.s = CkFileAccess::ckReadEntireTextFile(fac,"qa_data/tokens/googleTasks.txt","utf-8")
    If CkFileAccess::ckLastMethodSuccess(fac) <> 1
        Debug CkFileAccess::ckLastErrorText(fac)
        CkFileAccess::ckDispose(fac)
        ProcedureReturn
    EndIf

    success.i
    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::setCkAuthToken(http, accessToken)

    ; Create a new task.
    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckUpdateString(json,"title","Go to grocery store")
    CkJsonObject::ckUpdateString(json,"notes","Don't forget to buy apples.")

    ; The due date of a task is specified as a RFC 3339 timestamp.  It is optional.
    due.i = CkDateTime::ckCreate()
    If due.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkDateTime::ckSetFromCurrentSystemTime(due)
    CkDateTime::ckAddDays(due,3)
    CkJsonObject::ckUpdateString(json,"due",CkDateTime::ckGetAsTimestamp(due,0))

    ; Insert this task onto the task list w/ id = MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow
    CkHttp::ckSetUrlVar(http,"tasklist","MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow")

    resp.i = CkHttp::ckPostJson(http,"https://www.googleapis.com/tasks/v1/lists/{$tasklist}/tasks",CkJsonObject::ckEmit(json))
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkFileAccess::ckDispose(fac)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(json)
        CkDateTime::ckDispose(due)
        ProcedureReturn
    EndIf

    ; Show the response body.
    Debug CkHttpResponse::ckBodyStr(resp)

    ; Examine the response status code.
    Debug "response status code: " + Str(CkHttpResponse::ckStatusCode(resp))

    CkHttpResponse::ckDispose(resp)

    ; Sample response:
    ; Use this online tool to generate parsing code from sample JSON: 
    ; Generate Parsing Code from JSON

    ; {
    ;  "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
    ; 


    CkFileAccess::ckDispose(fac)
    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(json)
    CkDateTime::ckDispose(due)


    ProcedureReturn
EndProcedure