Lianja

Dropbox: Get Space Usage

See more Dropbox Examples

Demonstrates how to get the Dropbox space usage information for the current user's account. Lianja

llSuccess = .F.

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loRest = createobject("CkRest")

// Connect to the www.dropbox.com endpoint.
llBTls = .T.
lnPort = 443
llBAutoReconnect = .T.
llSuccess = loRest.Connect("api.dropboxapi.com",lnPort,llBTls,llBAutoReconnect)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    return
endif

loRest.AddHeader("Authorization","Bearer DROPBOX-ACCESS-TOKEN")

lcResponseStr = loRest.FullRequestNoBody("POST","/2/users/get_space_usage")
if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    return
endif

// Success is indicated by a 200 response status code.
if (loRest.ResponseStatusCode <> 200) then
    // Examine the request/response to see what happened.
    ? "response status code = " + str(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response body (if any): " + lcResponseStr
    ? "---"
    ? "LastRequestStartLine: " + loRest.LastRequestStartLine
    ? "LastRequestHeader: " + loRest.LastRequestHeader
    release loRest
    return
endif

loJsonResponse = createobject("CkJsonObject")
loJsonResponse.Load(lcResponseStr)

loJsonResponse.EmitCompact = .F.
? loJsonResponse.Emit()

// {
//   "used": 3032115,
//   "allocation": {
//     ".tag": "individual",
//     "allocated": 2147483648
//   }
// }
// 


release loRest
release loJsonResponse