PureBasic

Amazon SP-API Upload Feed

See more Amazon SP-API Examples

Upload a feed document to the feed previously created. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i = 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.
    sbRequestBody.i = CkStringBuilder::ckCreate()
    If sbRequestBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkStringBuilder::ckLoadFile(sbRequestBody,"C:/AAWorkarea/test-despatch-upload.txt","utf-8")
    If success = 0
        Debug "Failed to load test-despatch-upload.txt."
        CkStringBuilder::ckDispose(sbRequestBody)
        ProcedureReturn
    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
    jsonFeedInfo.i = CkJsonObject::ckCreate()
    If jsonFeedInfo.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(jsonFeedInfo,"qa_data/json/sp_api_feed_upload_info.json")
    If success = 0
        Debug CkJsonObject::ckLastErrorText(jsonFeedInfo)
        CkStringBuilder::ckDispose(sbRequestBody)
        CkJsonObject::ckDispose(jsonFeedInfo)
        ProcedureReturn
    EndIf

    ; Get the pre-signed URL
    url.s = CkJsonObject::ckStringOf(jsonFeedInfo,"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.
    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpSb(http,"PUT",url,sbRequestBody,"utf-8","text/tab-separated-values; charset=UTF-8",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkStringBuilder::ckDispose(sbRequestBody)
        CkJsonObject::ckDispose(jsonFeedInfo)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    Debug "status code = " + Str(CkHttpResponse::ckStatusCode(resp))
    Debug "status text = " + CkHttpResponse::ckStatusText(resp)
    Debug "response body:"
    Debug CkHttpResponse::ckBodyStr(resp)


    CkStringBuilder::ckDispose(sbRequestBody)
    CkJsonObject::ckDispose(jsonFeedInfo)
    CkHttp::ckDispose(http)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure