Visual FoxPro

Amazon SP-API Upload Feed

See more Amazon SP-API Examples

Upload a feed document to the feed previously created. Visual FoxPro

LOCAL lnSuccess
LOCAL loSbRequestBody
LOCAL loJsonFeedInfo
LOCAL lcUrl
LOCAL loHttp
LOCAL loResp

lnSuccess = 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.
loSbRequestBody = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbRequestBody.LoadFile("C:/AAWorkarea/test-despatch-upload.txt","utf-8")
IF (lnSuccess = 0) THEN
    ? "Failed to load test-despatch-upload.txt."
    RELEASE loSbRequestBody
    CANCEL
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
loJsonFeedInfo = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonFeedInfo.LoadFile("qa_data/json/sp_api_feed_upload_info.json")
IF (lnSuccess = 0) THEN
    ? loJsonFeedInfo.LastErrorText
    RELEASE loSbRequestBody
    RELEASE loJsonFeedInfo
    CANCEL
ENDIF

* Get the pre-signed URL
lcUrl = loJsonFeedInfo.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.
loHttp = CreateObject('Chilkat.Http')

* NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpSb("PUT",lcUrl,loSbRequestBody,"utf-8","text/tab-separated-values; charset=UTF-8",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loSbRequestBody
    RELEASE loJsonFeedInfo
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

? "status code = " + STR(loResp.StatusCode)
? "status text = " + loResp.StatusText
? "response body:"
? loResp.BodyStr

RELEASE loSbRequestBody
RELEASE loJsonFeedInfo
RELEASE loHttp
RELEASE loResp