(Visual FoxPro) Amazon SP-API Create Feed Doc

See more Amazon SP-API Examples

Creates a feed document. Amazon returns a feedDocumentId value, encryption details, and a URL for uploading the feed contents.

For more information, see https://developer-docs.amazon.com/sp-api/docs/feeds-api-v2020-09-04-use-case-guide

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loAuthAws
LOCAL loRest
LOCAL lnSuccess
LOCAL loJsonToken
LOCAL lcLwa_token
LOCAL loJsonReq
LOCAL loSbRequest
LOCAL loSbResponse
LOCAL lcPath
LOCAL lnStatusCode
LOCAL loJson
LOCAL lcFeedDocumentId
LOCAL lcUrl

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthAws')
loAuthAws = CreateObject('Chilkat.AuthAws')
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
loAuthAws.ServiceName = "execute-api"
* Use the region that is correct for your needs.
loAuthAws.Region = "eu-west-1"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')
lnSuccess = loRest.Connect("sellingpartnerapi-eu.amazon.com",443,1,1)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loAuthAws
    RELEASE loRest
    CANCEL
ENDIF

lnSuccess = loRest.SetAuthAws(loAuthAws)

* Load the previously obtained LWA access token.
* See Fetch SP-API LWA Access Token
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/sp_api_lwa_token.json")
IF (lnSuccess = 0) THEN
    ? "Failed to load LWA access token."
    RELEASE loAuthAws
    RELEASE loRest
    RELEASE loJsonToken
    CANCEL
ENDIF

* Add the x-amz-access-token request header.
lcLwa_token = loJsonToken.StringOf("access_token")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonReq = CreateObject('Chilkat.JsonObject')
loJsonReq.UpdateString("contentType","text/tab-separated-values; charset=UTF-8")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbRequest = CreateObject('Chilkat.StringBuilder')
loJsonReq.EmitSb(loSbRequest)

loRest.ClearAllQueryParams()
loRest.ClearAllHeaders()
loRest.AddHeader("x-amz-access-token",lcLwa_token)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponse = CreateObject('Chilkat.StringBuilder')
lcPath = "/feeds/2021-06-30/documents"
lnSuccess = loRest.FullRequestSb("POST",lcPath,loSbRequest,loSbResponse)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loAuthAws
    RELEASE loRest
    RELEASE loJsonToken
    RELEASE loJsonReq
    RELEASE loSbRequest
    RELEASE loSbResponse
    CANCEL
ENDIF

* Examine the response status.
lnStatusCode = loRest.ResponseStatusCode
? "statusCode: " + STR(lnStatusCode)

IF (lnStatusCode <> 201) THEN
    ? "Response status text: " + loRest.ResponseStatusText
    ? "Response body: "
    ? loSbResponse.GetAsString()
    ? "Failed."
    RELEASE loAuthAws
    RELEASE loRest
    RELEASE loJsonToken
    RELEASE loJsonReq
    RELEASE loSbRequest
    RELEASE loSbResponse
    CANCEL
ENDIF

? loSbResponse.GetAsString()

* If successful, gets a JSON response such as the following:

* {
*   "feedDocumentId": "3d4e42b5-1d6e-44e8-a89c-2abfca0625bb",
*   "url": "https://d34o8swod1owfl.cloudfront.net/Feed_101__POST_PRODUCT_DATA_.xml"
* }

* Use this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')

loJson.LoadSb(loSbResponse)

lcFeedDocumentId = loJson.StringOf("feedDocumentId")
lcUrl = loJson.StringOf("url")

* Save the JSON to a file for the example that uploads the feed..
lnSuccess = loJson.WriteFile("qa_data/json/sp_api_feed_upload_info.json")

? "Success!"

RELEASE loAuthAws
RELEASE loRest
RELEASE loJsonToken
RELEASE loJsonReq
RELEASE loSbRequest
RELEASE loSbResponse
RELEASE loJson