(DataFlex) HTTPS MWS List Orders (Amazon Marketplace Web Service)

Send an HTTPS MWS ListOrders request to return a list of orders created or updated during a time frame.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Variant vReq
    Handle hoReq
    Variant vResp
    Handle hoResp
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Make sure to connect to the correct Amazon MWS Endpoing, otherwise
    // you'll get an HTTP 401 response code.
    // 
    // The possible servers are:
    // 
    // North America (NA) 	https://mws.amazonservices.com
    // Europe (EU) 	https://mws-eu.amazonservices.com
    // India (IN) 	https://mws.amazonservices.in
    // China (CN) 	https://mws.amazonservices.com.cn
    // Japan (JP) 	https://mws.amazonservices.jp 
    // 

    // Build the HTTP request.
    Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
    If (Not(IsComObjectCreated(hoReq))) Begin
        Send CreateComObject of hoReq
    End

    // Add query params
    Send ComAddParam To hoReq "Action" "ListOrders"
    Send ComAddParam To hoReq "CreatedAfter" "2016-12-31T23:00:00Z"
    Send ComAddParam To hoReq "MarketplaceId.Id.1" "MWS_MARKETPLACE_ID"
    Send ComAddParam To hoReq "SellerId" "MWS_SELLER_ID"
    Send ComAddParam To hoReq "AWSAccessKeyId" "MWS_ACCESS_KEY_ID"
    Send ComAddParam To hoReq "SignatureVersion" "2"
    Send ComAddParam To hoReq "SignatureMethod" "HmacSHA256"
    Send ComAddParam To hoReq "Version" "2013-09-01"

    // Set the HTTP verb and path.
    Set ComPath Of hoReq To "/Orders/2013-09-01"
    Set ComHttpVerb Of hoReq To "POST"

    // Add the MWS Signature after the verb, path, and all params have been set.
    Get ComAddMwsSignature Of hoReq "mws.amazonservices.com" "MWS_SECRET_ACCESS_KEY_ID" To iSuccess

    Set ComContentType Of hoReq To "application/x-www-form-urlencoded"

    Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoReq to vReq
    Get pvComObject of hoResp to vResp
    Get ComHttpReq Of hoHttp "https://mws.amazonservices.com/Orders/2013-09-01" vReq vResp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStatusCode Of hoResp To iTemp1
    If (iTemp1 <> 200) Begin
        Get ComStatusCode Of hoResp To iTemp1
        Showln "Non-success status code: " iTemp1
        Get ComBodyStr Of hoResp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Examine the XML returned in the response body.
    Get ComBodyStr Of hoResp To sTemp1
    Showln sTemp1
    Showln "----"
    Showln "Success."


End_Procedure