PowerBuilder

Amazon SP-API Upload Feed

See more Amazon SP-API Examples

Upload a feed document to the feed previously created. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_SbRequestBody
oleobject loo_JsonFeedInfo
string ls_Url
oleobject loo_Http
oleobject loo_Resp

li_Success = 0

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

// Load your own feed data file.
loo_SbRequestBody = create oleobject
li_rc = loo_SbRequestBody.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
    destroy loo_SbRequestBody
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_SbRequestBody.LoadFile("C:/AAWorkarea/test-despatch-upload.txt","utf-8")
if li_Success = 0 then
    Write-Debug "Failed to load test-despatch-upload.txt."
    destroy loo_SbRequestBody
    return
end if

// The SP-API Create Feed example returned JSON such as this.

// {
//   "feedDocumentId": "amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ",
//   "url": "https://tortuga-prod-eu.s3-eu-west-1.amazonaws.com/%2FNinetyDays/amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ?X-Amz-Algorithm=AWS4-HMAC-SHA256&X-Amz-Date=20230222T014944Z&X-Amz-SignedHeaders=content-type%3Bhost&X-Amz-Expires=300&X-Amz-Credential=XXXXXXXXXXXXXXXXX%2F20230222%2Feu-west-1%2Fs3%2Faws4_request&X-Amz-Signature=XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
// }

// Load the JSON feed file created by this example:  SP-API Create Feed
loo_JsonFeedInfo = create oleobject
li_rc = loo_JsonFeedInfo.ConnectToNewObject("Chilkat.JsonObject")

li_Success = loo_JsonFeedInfo.LoadFile("qa_data/json/sp_api_feed_upload_info.json")
if li_Success = 0 then
    Write-Debug loo_JsonFeedInfo.LastErrorText
    destroy loo_SbRequestBody
    destroy loo_JsonFeedInfo
    return
end if

// Get the pre-signed URL
ls_Url = loo_JsonFeedInfo.StringOf("url")

// We can use the Chilkat HTTP object because the URL is pre-signed.
// We don't need to add our own AWS authentication because it's already in the pre-signed URL,
// which is only valid for short amount of time.
loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

// NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpSb("PUT",ls_Url,loo_SbRequestBody,"utf-8","text/tab-separated-values; charset=UTF-8",loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_SbRequestBody
    destroy loo_JsonFeedInfo
    destroy loo_Http
    destroy loo_Resp
    return
end if

Write-Debug "status code = " + string(loo_Resp.StatusCode)
Write-Debug "status text = " + loo_Resp.StatusText
Write-Debug "response body:"
Write-Debug loo_Resp.BodyStr


destroy loo_SbRequestBody
destroy loo_JsonFeedInfo
destroy loo_Http
destroy loo_Resp