(PureBasic) Walmart v3 Bulk Item Setup

Updates items in bulk.

For more information, see https://developer.walmart.com/#/apicenter/marketPlace/latest#bulkCreateUpdateItems

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkXml.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    ; 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

    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkPath(req, "/v3/feeds?feedType=item")
    CkHttpRequest::setCkContentType(req, "multipart/form-data")
    success = CkHttpRequest::ckAddFileForUpload2(req,"feed","qa_data/walmart/itemFeed.xml","application/xml")

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

    resp.i = CkHttp::ckSynchronousRequest(http,"marketplace.walmartapis.com",443,1,req)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        ProcedureReturn
    EndIf

    sbResponseBody.i = CkStringBuilder::ckCreate()
    If sbResponseBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpResponse::ckGetBodySb(resp,sbResponseBody)
    CkHttpResponse::ckDispose(resp)

    xmlResponse.i = CkXml::ckCreate()
    If xmlResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckLoadSb(xmlResponse,sbResponseBody,1)
    Debug CkXml::ckGetXml(xmlResponse)

    ; 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

    FeedAcknowledgement_xmlns_ns2.s
    feedId.s

    FeedAcknowledgement_xmlns_ns2 = CkXml::ckGetAttrValue(xmlResponse,"xmlns:ns2")
    feedId = CkXml::ckGetChildContent(xmlResponse,"feedId")


    CkHttp::ckDispose(http)
    CkHttpRequest::ckDispose(req)
    CkStringBuilder::ckDispose(sbResponseBody)
    CkXml::ckDispose(xmlResponse)


    ProcedureReturn
EndProcedure