PureBasic Requires Chilkat v11.0.0+

Walmart v3 Bulk Item Setup

See more Walmart v3 Examples

Updates items in bulk. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkXml.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

    success.i = 0

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  Implements the following CURL command:

    ;  curl -X POST \
    ;    https://marketplace.walmartapis.com/v3/feeds?feedType=item \
    ;    -H 'WM_SVC.NAME: Walmart Marketplace'
    ;    -H 'WM_SEC.ACCESS_TOKEN: eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....'
    ;    -H 'WM_QOS.CORRELATION_ID: b3261d2d-028a-4ef7-8602-633c23200af6'
    ;    -H 'Content-Type: multipart/form-data'
    ;    -H 'Accept: application/xml'
    ;    -F feed=@qa_data/walmart/itemFeed.xml

    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkPath(req, "/v3/feeds?feedType=item")
    CkHttpRequest::setCkContentType(req, "multipart/form-data")
    success = CkHttpRequest::ckAddFileForUpload2(req,"feed","qa_data/walmart/itemFeed.xml","application/xml")

    CkHttpRequest::ckAddHeader(req,"WM_QOS.CORRELATION_ID","b3261d2d-028a-4ef7-8602-633c23200af6")
    CkHttpRequest::ckAddHeader(req,"Expect","100-continue")
    CkHttpRequest::ckAddHeader(req,"Content-Type","multipart/form-data")
    CkHttpRequest::ckAddHeader(req,"WM_SEC.ACCESS_TOKEN","eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....")
    CkHttpRequest::ckAddHeader(req,"Accept","application/xml")
    CkHttpRequest::ckAddHeader(req,"WM_SVC.NAME","Walmart Marketplace")

    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpSReq(http,"marketplace.walmartapis.com",443,1,req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    sbResponseBody.i = CkStringBuilder::ckCreate()
    If sbResponseBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpResponse::ckGetBodySb(resp,sbResponseBody)

    xmlResponse.i = CkXml::ckCreate()
    If xmlResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckLoadSb(xmlResponse,sbResponseBody,1)
    Debug CkXml::ckGetXml(xmlResponse)

    ;  Sample XML response:
    ;  (Sample code for parsing the XML response is shown below)

    ;  <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
    ;  <FeedAcknowledgement xmlns:ns2="http://walmart.com/">
    ;      <feedId>E9C04D1FFD99479FBC1341D56DD5F930@AQMB_wA</feedId>
    ;  </FeedAcknowledgement>

    ;  Sample code for parsing the XML response...
    ;  Use the following online tool to generate parsing code from sample XML:
    ;  Generate Parsing Code from XML

    FeedAcknowledgement_xmlns_ns2.s
    feedId.s

    FeedAcknowledgement_xmlns_ns2 = CkXml::ckGetAttrValue(xmlResponse,"xmlns:ns2")
    feedId = CkXml::ckGetChildContent(xmlResponse,"feedId")


    CkHttp::ckDispose(http)
    CkHttpRequest::ckDispose(req)
    CkHttpResponse::ckDispose(resp)
    CkStringBuilder::ckDispose(sbResponseBody)
    CkXml::ckDispose(xmlResponse)


    ProcedureReturn
EndProcedure