Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Walmart - Get a FeedItem's StatusNote: This is an older example for the Walmart v2 API. You should instead use the Walmart v3 API. Demonstrates how to get a Walmart feedItem's status.
' -------------------------------------------------------------------- ' This example is for the older and deprecated Walmart v2 API. ' ' Use the v3 API instead: Walmart v3 Get Feed Status ' -------------------------------------------------------------------- ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Sends the following GET request: ' GET https://marketplace.walmartapis.com/v2/feeds/feeditems/{feedId}?includeDetails={includeDetails}&limit={limit} Dim sbUrl As New Chilkat.StringBuilder Dim success As Boolean = sbUrl.Append("https://marketplace.walmartapis.com/v2/feeds/feeditems/{feedId}?includeDetails={includeDetails}&limit={limit}") Dim numReplaced As Integer = sbUrl.Replace("{feedId}","AAAA7F0345E9403C91223F7139FFC341@AQsBAQA") numReplaced = sbUrl.Replace("{includeDetails}","true") numReplaced = sbUrl.ReplaceI("{limit}",3) Dim requestMethod As String = "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 = "WALMART_CONSUMER_ID" Dim wmPrivateKey As String = "WALMART_PRIVATE_KEY" Dim jsonStr As String = authUtil.WalmartSignature(sbUrl.GetAsString(),wmConsumerId,wmPrivateKey,requestMethod) If (authUtil.LastMethodSuccess <> True) Then Debug.WriteLine(authUtil.LastErrorText) Exit Sub 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 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 = http.QuickGetStr(sbUrl.GetAsString()) If (http.LastMethodSuccess <> True) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim xml As New Chilkat.Xml xml.LoadXml(xmlStr) ' A successful response should have a 200 response status If (http.LastStatus <> 200) Then Debug.WriteLine(xml.GetXml()) Debug.WriteLine("Response Status Code: " & http.LastStatus) Debug.WriteLine("Failed.") Exit Sub End If ' A sample XML response is shown below.. Debug.WriteLine(xml.GetXml()) Debug.WriteLine("--") ' To iterate over the ingestion statuses: Dim numIngestionStatuses As Integer = xml.NumChildrenAt("ns2:elements|ns2:itemDetails") Dim i As Integer = 0 While i < numIngestionStatuses xml.I = i Debug.WriteLine("sku: " & xml.GetChildContent("ns2:elements|ns2:itemDetails|ns2:itemIngestionStatus[i]|ns2:sku")) Debug.WriteLine("status: " & xml.GetChildContent("ns2:elements|ns2:itemDetails|ns2:itemIngestionStatus[i]|ns2:ingestionStatus")) Debug.WriteLine("--") i = i + 1 End While Debug.WriteLine("Success.") ' --------------------------------------- ' Sample XML response ' --------------------------------------- ' <?xml version="1.0" encoding="UTF-8" standalone="yes" ?> ' <ns2:ItemStatusDetail xmlns:ns2="http://walmart.com/"> ' <ns2:meta> ' <ns2:feedId>AAAAF0345E9403C91223F7139FFC341@AQsBAQA</ns2:feedId> ' <ns2:feedStatus>PROCESSED</ns2:feedStatus> ' <ns2:ingestionErrors /> ' <ns2:itemsReceived>130088</ns2:itemsReceived> ' <ns2:itemsSucceeded>113154</ns2:itemsSucceeded> ' <ns2:itemsFailed>16934</ns2:itemsFailed> ' <ns2:itemsProcessing>0</ns2:itemsProcessing> ' <ns2:limit>3</ns2:limit> ' <ns2:totalCount>3</ns2:totalCount> ' <ns2:nextCursor>includeDetails=true&limit=3&skuOffset=ENC%28%2F8D%2FyDen1ByXGA7EsWkArA%3D%3D%29</ns2:nextCursor> ' </ns2:meta> ' <ns2:elements> ' <ns2:itemDetails> ' <ns2:itemIngestionStatus> ' <ns2:martId>0</ns2:martId> ' <ns2:sku>0000~0~00141</ns2:sku> ' <ns2:index>0</ns2:index> ' <ns2:ingestionStatus>DATA_ERROR</ns2:ingestionStatus> ' <ns2:ingestionErrors> ' <ns2:ingestionError> ' <ns2:type>DATA_ERROR</ns2:type> ' <ns2:code>PIVI_021</ns2:code> ' <ns2:description>No item found with the given SKU.</ns2:description> ' </ns2:ingestionError> ' </ns2:ingestionErrors> ' </ns2:itemIngestionStatus> ' <ns2:itemIngestionStatus> ' <ns2:martId>0</ns2:martId> ' <ns2:sku>0000~0~03472</ns2:sku> ' <ns2:index>1</ns2:index> ' <ns2:ingestionStatus>SUCCESS</ns2:ingestionStatus> ' <ns2:ingestionErrors /> ' </ns2:itemIngestionStatus> ' <ns2:itemIngestionStatus> ' <ns2:martId>0</ns2:martId> ' <ns2:sku>0000~0~08540</ns2:sku> ' <ns2:index>2</ns2:index> ' <ns2:ingestionStatus>SUCCESS</ns2:ingestionStatus> ' <ns2:ingestionErrors /> ' </ns2:itemIngestionStatus> ' </ns2:itemDetails> ' </ns2:elements> ' </ns2:ItemStatusDetail> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.