B4X
Amazon SP-API Upload Feed

Upload a feed document to the feed previously created.
Chilkat B4X Downloads

B4X
Dim success As Boolean = False

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

'  Load your own feed data file.
Dim sbRequestBody As ChilkatStringBuilder
sbRequestBody.Initialize
success = sbRequestBody.LoadFile("C:/AAWorkarea/test-despatch-upload.txt", "utf-8")
If success = False Then
    Log("Failed to load test-despatch-upload.txt.")
    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
Dim jsonFeedInfo As ChilkatJsonObject
jsonFeedInfo.Initialize
success = jsonFeedInfo.LoadFile("qa_data/json/sp_api_feed_upload_info.json")
If success = False Then
    Log(jsonFeedInfo.LastErrorText)
    Return
End If


'  Get the pre-signed URL
Dim url As String = 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.
Dim http As ChilkatHttp
http.Initialize("http")

'  NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSb("PUT", url, sbRequestBody, "utf-8", "text/tab-separated-values; charset=UTF-8", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log("status code = " & resp.StatusCode)
Log("status text = " & resp.StatusText)
Log("response body:")
Log(resp.BodyStr)