B4X Requires Chilkat v11.0.0+

Walmart v3 Bulk Item Setup

See more Walmart v3 Examples

Updates items in bulk. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

'  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

Dim req As ChilkatHttpRequest
req.Initialize
req.HttpVerb = "POST"
req.Path = "/v3/feeds?feedType=item"
req.ContentType = "multipart/form-data"
success = req.AddFileForUpload2("feed", "qa_data/walmart/itemFeed.xml", "application/xml")

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

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSReq("marketplace.walmartapis.com", 443, True, req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
resp.GetBodySb(sbResponseBody)

Dim xmlResponse As ChilkatXml
xmlResponse.Initialize
xmlResponse.LoadSb(sbResponseBody, True)
Log(xmlResponse.GetXml)

'  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

Dim FeedAcknowledgement_xmlns_ns2 As String
Dim feedId As String

FeedAcknowledgement_xmlns_ns2 = xmlResponse.GetAttrValue("xmlns:ns2")
feedId = xmlResponse.GetChildContent("feedId")