PureBasic

Delete a Task List

See more Google Tasks Examples

Demonstrates how to delete a Google task list. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkFileAccess.pb"

Procedure ChilkatExample()

    success.i = 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.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) = 0
        Debug CkFileAccess::ckLastErrorText(fac)
        CkFileAccess::ckDispose(fac)
        ProcedureReturn
    EndIf

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

    CkHttp::setCkAuthToken(http, accessToken)

    ; Delete the task list with this ID:  MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6OTk5Njk3NjkxNzg4Nzg2NDow
    CkHttp::ckSetUrlVar(http,"taskListId","MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6OTk5Njk3NjkxNzg4Nzg2NDow")

    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpNoBody(http,"DELETE","https://www.googleapis.com/tasks/v1/users/@me/lists/{$taskListId}",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkFileAccess::ckDispose(fac)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

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

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


    CkFileAccess::ckDispose(fac)
    CkHttp::ckDispose(http)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure