(PureBasic) Box.com Upload File

See more Box Examples

Demonstrates how to upload a file to box.com.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkBinData.pb"
IncludeFile "CkRest.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkOAuth2.pb"

Procedure ChilkatExample()

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

    ; ------------------------------------------------------------------------------------------
    ; Important:
    ; See this information about Box.com Service Accounts
    ; Box.com will automatically generate a Service Account where the name of the account is the name of your App. 
    ; When you make API calls, it is for this service account, and the files that exist and what you see are not the same as your normal account.
    ; ------------------------------------------------------------------------------------------

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

    success.i

    ;   Provide a previously obtained OAuth2 access token.
    oauth2.i = CkOAuth2::ckCreate()
    If oauth2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkOAuth2::setCkAccessToken(oauth2, "BOX_ACCESS_TOKEN")
    CkRest::ckSetAuthOAuth2(rest,oauth2)

    ; First, make the initial connection.
    ; A single REST object, once connected, can be used for many Box REST API calls.
    ; The auto-reconnect indicates that if the already-established HTTPS connection is closed,
    ; then it will be automatically re-established as needed.
    bAutoReconnect.i = 1

    ; ----------------------------------------------------------------------
    ; IMPORTANT: Note that the domain is "upload.box.com", not "api.box.com"
    ; ----------------------------------------------------------------------
    success = CkRest::ckConnect(rest,"upload.box.com",443,1,bAutoReconnect)
    If success <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkOAuth2::ckDispose(oauth2)
        ProcedureReturn
    EndIf

    ; The request body uses the "multipart/form-data" format to transmit two "parts". 
    ; The first part is called "attributes" and contains a JSON object with information about the file, including the name of the file 
    ; and the ID of the parent folder. The second part contains the contents of the file. 
    ; (Note that the name of the second "part" is ignored.)

    CkRest::ckAddHeader(rest,"Content-Type","multipart/form-data")

    ; Provide the content for each part of the request...

    ; First the JSON attributes.  Use "0" for the root folder.
    ;   {"name":"penguins.jpg", "parent":{"id":"0"}}
    jsonAttr.i = CkJsonObject::ckCreate()
    If jsonAttr.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckUpdateString(jsonAttr,"name","penguins.jpg")
    CkJsonObject::ckUpdateString(jsonAttr,"parent.id","0")

    CkRest::setCkPartSelector(rest, "1")
    CkRest::ckAddHeader(rest,"Content-Disposition","form-data; name=" + Chr(34) + "attributes" + Chr(34) + "; ")
    CkRest::ckSetMultipartBodyString(rest,CkJsonObject::ckEmit(jsonAttr))

    CkRest::setCkPartSelector(rest, "2")
    CkRest::ckAddHeader(rest,"Content-Disposition","form-data; name=" + Chr(34) + "file" + Chr(34) + "; filename=" + Chr(34) + "penguins.jpg" + Chr(34))
    ; "application/octet-stream" can be safely used for any type file..
    CkRest::ckAddHeader(rest,"Content-Type","application/octet-stream")

    ; Load the file into a binary data object, and then upload..
    fileDataObj.i = CkBinData::ckCreate()
    If fileDataObj.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkBinData::ckLoadFile(fileDataObj,"qa_data/jpg/penguins.jpg")
    CkRest::ckSetMultipartBodyBd(rest,fileDataObj)

    ; Restore the PartSelector to "0" (for safety, in case something else sends another request on this object)
    CkRest::setCkPartSelector(rest, "0")

    ; Send the multipart/form-data request, which uploads the file contained in fileDataObj
    responseBody.s = CkRest::ckFullRequestMultipart(rest,"POST","/api/2.0/files/content")
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkOAuth2::ckDispose(oauth2)
        CkJsonObject::ckDispose(jsonAttr)
        CkBinData::ckDispose(fileDataObj)
        ProcedureReturn
    EndIf

    ; A 201 is received for a successful upload
    If CkRest::ckResponseStatusCode(rest) <> 201
        Debug "Box.com upload failed."
        Debug "Request header:"
        Debug CkRest::ckLastRequestHeader(rest)
        Debug "---"
        Debug "Response status code = " + Str(CkRest::ckResponseStatusCode(rest))
        Debug "Response body:"
        Debug responseBody
        CkRest::ckDispose(rest)
        CkOAuth2::ckDispose(oauth2)
        CkJsonObject::ckDispose(jsonAttr)
        CkBinData::ckDispose(fileDataObj)
        ProcedureReturn
    EndIf

    Debug "File uploaded."


    CkRest::ckDispose(rest)
    CkOAuth2::ckDispose(oauth2)
    CkJsonObject::ckDispose(jsonAttr)
    CkBinData::ckDispose(fileDataObj)


    ProcedureReturn
EndProcedure