Xojo Plugin

Walmart v3 Bulk Item Setup

See more Walmart v3 Examples

Updates items in bulk. Xojo Plugin

Dim success As Boolean
success = False

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

Dim http As New Chilkat.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 New Chilkat.HttpRequest
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 New Chilkat.HttpResponse
success = http.HttpSReq("marketplace.walmartapis.com",443,True,req,resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim sbResponseBody As New Chilkat.StringBuilder
success = resp.GetBodySb(sbResponseBody)

Dim xmlResponse As New Chilkat.Xml
success = xmlResponse.LoadSb(sbResponseBody,True)
System.DebugLog(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")