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
(Visual Basic 6.0) Walmart - Get Inventory for an ItemDemonstrates how to get inventory for an item and parse the result. Note: This example requires Chilkat v9.5.0.67 or greater.
' 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/inventory?sku={SKU} Dim sbUrl As New ChilkatStringBuilder Dim success As Long success = sbUrl.Append("https://marketplace.walmartapis.com/v2/inventory?sku={SKU}") Dim numReplaced As Long numReplaced = sbUrl.Replace("{SKU}","HOPP~904~51041") 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 ChilkatAuthUtil Dim wmConsumerId As String wmConsumerId = "WALMART_CONSUMER_ID" Dim wmPrivateKey As String wmPrivateKey = "WALMART_PRIVATE_KEY" Dim jsonStr As String jsonStr = authUtil.WalmartSignature(sbUrl.GetAsString(),wmConsumerId,wmPrivateKey,requestMethod) If (authUtil.LastMethodSuccess <> 1) Then Debug.Print 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 ChilkatJsonObject success = json.Load(jsonStr) Dim http As New ChilkatHttp 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(sbUrl.GetAsString()) If (http.LastMethodSuccess <> 1) Then Debug.Print http.LastErrorText Exit Sub End If Dim xml As New ChilkatXml success = xml.LoadXml(xmlStr) ' A successful response should have a 200 response status If (http.LastStatus <> 200) Then Debug.Print xml.GetXml() Debug.Print "Response Status Code: " & http.LastStatus Debug.Print "Failed." Exit Sub End If ' A sample XML response is shown below.. Debug.Print xml.GetXml() Debug.Print "--" ' To get the quantity: Dim quantity As Long quantity = xml.GetChildIntValue("quantity|amount") Debug.Print "quantity = " & quantity ' --------------------------------------- ' Sample XML response ' --------------------------------------- ' <?xml version="1.0" encoding="UTF-8" standalone="yes" ?> ' <inventory xmlns="http://walmart.com/"> ' <sku>HOPP~904~51041</sku> ' <quantity> ' <unit>EACH</unit> ' <amount>234</amount> ' </quantity> ' <fulfillmentLagTime>5</fulfillmentLagTime> ' </inventory> |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.