Hallo,
folgender Code erzeugt eine Exception in der angegebenen Zeile (natürlich werden alle IDs korrekt übergeben):
Leider enthält ex.ErrorCode keinen Wert , ich weiß also nicht, was da falsch ist. Wär prima, wenn mir jemand helfen könnte.
Danke im voraus!
Gruß Schorsch
folgender Code erzeugt eine Exception in der angegebenen Zeile (natürlich werden alle IDs korrekt übergeben):
Quellcode
- Imports MarketplaceWebServiceProducts
- Imports MarketplaceWebServiceProducts.Model
- Private Sub subAMAZON()
- Try
- Dim mwsCFGPROD As New MarketplaceWebServiceProductsConfig
- mwsCFGPROD.ServiceURL = "https://mws.amazonservices.com/Products/2011-10-01/"
- mwsCFGPROD.SignatureMethod = "HmacSHA256"
- mwsCFGPROD.SignatureVersion = "2"
- Dim mwsSERVICE As New MarketplaceWebServiceProductsClient("MYACCESSKEY", "MYSECUREKEY")
- Dim mwsREQPROD As New MarketplaceWebServiceProducts.Model.ListMatchingProductsRequest
- mwsREQPROD.MWSAuthToken = "MYAUTHTOKEN"
- mwsREQPROD.SellerId = "MYSELLERID"
- mwsREQPROD.MarketplaceId = "MARKETPLACEID"
- mwsREQPROD.Query = "harry potter dvd"
- Dim mwsRESPONSE As ListMatchingProductsResponse
- ' Hier wird die Exception ausgelöst:
- mwsRESPONSE = mwsSERVICE.ListMatchingProducts(mwsREQPROD)
- If mwsRESPONSE.IsSetListMatchingProductsResult Then
- If mwsRESPONSE.ListMatchingProductsResult.IsSetProducts Then
- For Each Product As Product In mwsRESPONSE.ListMatchingProductsResult.Products.Product
- strMELD = "Product: " & Product.AttributeSets.ToString
- MessageBox.Show(strMELD, "Product Attributes", MessageBoxButtons.OK)
- Next
- End If
- End If
- Catch ex As MarketplaceWebServiceProductsException
- strMELD = "Fehler beim Amazon Webshopexchange: " & ex.ErrorCode & Chr(10) & "Zeile: " & Strings.Right(ex.StackTrace, 50)
- MessageBox.Show(strMELD, "Bitte beachten", MessageBoxButtons.OK)
- End Try
- End Sub
Leider enthält ex.ErrorCode keinen Wert , ich weiß also nicht, was da falsch ist. Wär prima, wenn mir jemand helfen könnte.
Danke im voraus!
Gruß Schorsch