(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
li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.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
li_rc = loo_Oauth2.ConnectToNewObject("Chilkat_9_5_0.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
li_rc = loo_JsonAttr.ConnectToNewObject("Chilkat_9_5_0.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
li_rc = loo_FileStream.ConnectToNewObject("Chilkat_9_5_0.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