(PowerBuilder) Box.com Streaming Upload File

Demonstrates how to upload a file to box.com, streaming the file directly from the filesystem.

Note: This example requires a fix that is included in Chilkat v9.5.0.70 and above.

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_FileStream
string ls_ResponseBody

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

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":"hedgehogs.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","hedgehogs.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())

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

// IMPORTANT: This example requires Chilkat v9.5.0.70 or later, for a fix that was made in
// multipart/streaming uploads. 
loo_FileStream = create oleobject
// Use "Chilkat_9_5_0.Stream" for versions of Chilkat < 10.0.0
li_rc = loo_FileStream.ConnectToNewObject("Chilkat.Stream")

loo_FileStream.SourceFile = "qa_data/jpg/hedgehogs.jpg"
loo_Rest.SetMultipartBodyStream(loo_FileStream)

// 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 by streaming directly from the filesystem.
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_FileStream
    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_FileStream
    return
end if

Write-Debug "File uploaded."


destroy loo_Rest
destroy loo_Oauth2
destroy loo_JsonAttr
destroy loo_FileStream