(PowerBuilder) Box.com Upload File

See more Box Examples

Demonstrates how to upload a file to box.com.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Rest
integer li_Success
oleobject loo_Oauth2
integer li_BAutoReconnect
oleobject loo_JsonAttr
oleobject loo_FileDataObj
string ls_ResponseBody

// 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.
// ------------------------------------------------------------------------------------------

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//   Provide a previously obtained OAuth2 access token.
loo_Oauth2 = create oleobject
// Use "Chilkat_9_5_0.OAuth2" for versions of Chilkat < 10.0.0
li_rc = loo_Oauth2.ConnectToNewObject("Chilkat.OAuth2")

loo_Oauth2.AccessToken = "BOX_ACCESS_TOKEN"
loo_Rest.SetAuthOAuth2(loo_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.
li_BAutoReconnect = 1

// ----------------------------------------------------------------------
// IMPORTANT: Note that the domain is "upload.box.com", not "api.box.com"
// ----------------------------------------------------------------------
li_Success = loo_Rest.Connect("upload.box.com",443,1,li_BAutoReconnect)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_Oauth2
    return
end if

// 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.)

loo_Rest.AddHeader("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"}}
loo_JsonAttr = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonAttr.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonAttr.UpdateString("name","penguins.jpg")
loo_JsonAttr.UpdateString("parent.id","0")

loo_Rest.PartSelector = "1"
loo_Rest.AddHeader("Content-Disposition","form-data; name=~"attributes~"; ")
loo_Rest.SetMultipartBodyString(loo_JsonAttr.Emit())

loo_Rest.PartSelector = "2"
loo_Rest.AddHeader("Content-Disposition","form-data; name=~"file~"; filename=~"penguins.jpg~"")
// "application/octet-stream" can be safely used for any type file..
loo_Rest.AddHeader("Content-Type","application/octet-stream")

// Load the file into a binary data object, and then upload..
loo_FileDataObj = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_FileDataObj.ConnectToNewObject("Chilkat.BinData")

loo_FileDataObj.LoadFile("qa_data/jpg/penguins.jpg")
loo_Rest.SetMultipartBodyBd(loo_FileDataObj)

// Restore the PartSelector to "0" (for safety, in case something else sends another request on this object)
loo_Rest.PartSelector = "0"

// Send the multipart/form-data request, which uploads the file contained in fileDataObj
ls_ResponseBody = loo_Rest.FullRequestMultipart("POST","/api/2.0/files/content")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_Oauth2
    destroy loo_JsonAttr
    destroy loo_FileDataObj
    return
end if

// A 201 is received for a successful upload
if loo_Rest.ResponseStatusCode <> 201 then
    Write-Debug "Box.com upload failed."
    Write-Debug "Request header:"
    Write-Debug loo_Rest.LastRequestHeader
    Write-Debug "---"
    Write-Debug "Response status code = " + string(loo_Rest.ResponseStatusCode)
    Write-Debug "Response body:"
    Write-Debug ls_ResponseBody
    destroy loo_Rest
    destroy loo_Oauth2
    destroy loo_JsonAttr
    destroy loo_FileDataObj
    return
end if

Write-Debug "File uploaded."


destroy loo_Rest
destroy loo_Oauth2
destroy loo_JsonAttr
destroy loo_FileDataObj