(Xojo Plugin) Walmart - Get All Feed Statuses

Note: This is an older example for the Walmart v2 API. You should instead use the Walmart v3 API.

Demonstrates how to send a Walmart REST API request to get all feed statuses.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// --------------------------------------------------------------------
// This example is for the older and deprecated Walmart v2 API.
// 
// Use the v3 API instead: Walmart v3 Get All Feed Statuses
// --------------------------------------------------------------------

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

// Demonstrates how to send a request such as the following to get all feed statuses:
// Also demonstrates how to parse the results.

// GET /v2/feeds HTTP/1.1
// WM_SVC.NAME: Walmart Marketplace
// WM_QOS.CORRELATION_ID: 123456abcdef
// WM_SEC.TIMESTAMP: 1438147839
// WM_SEC.AUTH_SIGNATURE: 9khb0lPeRt0WSGbXNGGj4kSQ9L6PMBX/q+ovdy9bDQfvdhYs8NoEsjRX4fD7UNIHTddgkmSVqAqeIIHlaLcRIl0Y4DcJqQYHL27LiWlsm91nYodGssWTKsOq6dJfUHEy95M4zXFGWDDhbHYCor28SCV/g/JdEQybGkcX9Zj5aDyg=
// WM_CONSUMER.ID: a20ac266-9add-4fc7-9392-fec303f5155c
// Accept: application/xml
// Host: https://marketplace.walmartapis.com

Dim requestUrl As String
requestUrl = "https://marketplace.walmartapis.com/v2/feeds"
Dim requestMethod As String
requestMethod = "GET"

// First we need to generate a signature for our request.
// The signature needs to be re-generated for each new Walmart HTTP request.
Dim authUtil As New Chilkat.AuthUtil

Dim wmConsumerId As String
wmConsumerId = "WALMART_CONSUMER_ID"
Dim wmPrivateKey As String
wmPrivateKey = "WALMART_PRIVATE_KEY"
Dim jsonStr As String
jsonStr = authUtil.WalmartSignature(requestUrl,wmConsumerId,wmPrivateKey,requestMethod)
If (authUtil.LastMethodSuccess <> True) Then
    System.DebugLog(authUtil.LastErrorText)
    Return
End If

// The JSON returned by WalmartSignature contains the values to be used in the following
// header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID
Dim json As New Chilkat.JsonObject
Dim success As Boolean
success = json.Load(jsonStr)

Dim http As New Chilkat.Http
http.SetRequestHeader "WM_SVC.NAME","Walmart Marketplace"
http.SetRequestHeader "WM_QOS.CORRELATION_ID",json.StringOf("correlation_id")
http.SetRequestHeader "WM_SEC.TIMESTAMP",json.StringOf("timestamp")
http.SetRequestHeader "WM_SEC.AUTH_SIGNATURE",json.StringOf("signature")
http.SetRequestHeader "WM_CONSUMER.ID",wmConsumerId
http.Accept = "application/xml"

// Note: Do not explicitly set the "Host" header.  Chilkat will set it automatically.

Dim xmlStr As String
xmlStr = http.QuickGetStr(requestUrl)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim xml As New Chilkat.Xml
success = xml.LoadXml(xmlStr)

// A successful response should have a 200 response status
If (http.LastStatus <> 200) Then
    System.DebugLog(xml.GetXml())
    System.DebugLog("Response Status Code: " + Str(http.LastStatus))
    System.DebugLog("Failed.")
    Return
End If

// A sample XML response is shown below..

// To iterate over the Walmart feeds:
Dim numFeeds As Int32
numFeeds = xml.NumChildrenAt("ns2:results")
Dim i As Int32
i = 0
While i < numFeeds
    xml.I = i

    System.DebugLog("Feed ID: " + xml.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedId"))
    System.DebugLog("Feed Type: " + xml.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedType"))
    System.DebugLog("Num Items Recieved: " + Str(xml.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:itemsReceived")))
    System.DebugLog("Feed Status: " + xml.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedStatus"))
    System.DebugLog("--")

    i = i + 1
Wend

System.DebugLog("Success.")

// ---------------------------------------
// Sample XML response
// ---------------------------------------

// <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
// <ns2:list xmlns:ns2="http://walmart.com/">
//     <ns2:totalResults>1293</ns2:totalResults>
//     <ns2:offset>0</ns2:offset>
//     <ns2:limit>50</ns2:limit>
//     <ns2:results>
//         <ns2:feed>
//             <ns2:feedId>AAAA7F0345E9403C91223F7139FFC341@AQsBAQA</ns2:feedId>
//             <ns2:feedType>inventory</ns2:feedType>
//             <ns2:partnerId>10000999999</ns2:partnerId>
//             <ns2:itemsReceived>130088</ns2:itemsReceived>
//             <ns2:itemsSucceeded>113154</ns2:itemsSucceeded>
//             <ns2:itemsFailed>16934</ns2:itemsFailed>
//             <ns2:itemsProcessing>0</ns2:itemsProcessing>
//             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
//             <ns2:feedDate>2017-04-27T17:05:42.078Z</ns2:feedDate>
//             <ns2:modifiedDtm>2017-04-27T18:06:10.795Z</ns2:modifiedDtm>
//         </ns2:feed>
//         <ns2:feed>
//             <ns2:feedId>AAAAF1F402CD407FA363AD2929593FFF@AQsBAQA</ns2:feedId>
//             <ns2:feedType>inventory</ns2:feedType>
//             <ns2:partnerId>10000999999</ns2:partnerId>
//             <ns2:itemsReceived>39594</ns2:itemsReceived>
//             <ns2:itemsSucceeded>34533</ns2:itemsSucceeded>
//             <ns2:itemsFailed>5061</ns2:itemsFailed>
//             <ns2:itemsProcessing>0</ns2:itemsProcessing>
//             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
//             <ns2:feedDate>2017-04-27T05:18:59.739Z</ns2:feedDate>
//             <ns2:modifiedDtm>2017-04-27T05:20:30.192Z</ns2:modifiedDtm>
//         </ns2:feed>
// ...
//     </ns2:results>
// </ns2:list>