Xbase++
Amazon SP-API Upload Feed

Upload a feed document to the feed previously created.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oSbRequestBody
LOCAL oJsonFeedInfo
LOCAL cUrl
LOCAL oHttp
LOCAL oResp

nSuccess := 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.
oSbRequestBody := CreateObject("Chilkat.StringBuilder")
nSuccess := oSbRequestBody:LoadFile("C:/AAWorkarea/test-despatch-upload.txt", "utf-8")
IF (nSuccess == 0)
    ? "Failed to load test-despatch-upload.txt."
    oSbRequestBody:destroy()
    RETURN
ENDIF

//  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
oJsonFeedInfo := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonFeedInfo:LoadFile("qa_data/json/sp_api_feed_upload_info.json")
IF (nSuccess == 0)
    ? oJsonFeedInfo:LastErrorText
    oSbRequestBody:destroy()
    oJsonFeedInfo:destroy()
    RETURN
ENDIF

//  Get the pre-signed URL
cUrl := oJsonFeedInfo: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.
oHttp := CreateObject("Chilkat.Http")

//  NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSb("PUT", cUrl, oSbRequestBody, "utf-8", "text/tab-separated-values; charset=UTF-8", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oSbRequestBody:destroy()
    oJsonFeedInfo:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "status code = " + Str(oResp:StatusCode)
? "status text = " + oResp:StatusText
? "response body:"
? oResp:BodyStr

oSbRequestBody:destroy()
oJsonFeedInfo:destroy()
oHttp:destroy()
oResp:destroy()