B4X Requires Chilkat v11.0.0+
B4X
eBay -- Upload Bulk Data using FileTransferService
See more eBay Examples
Demonstrates how to upload your data file using the eBay File Transfer API.Chilkat B4X Downloads
Dim success As Boolean = False
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
' Use a previously obtained access token. The token should look something like this:
' "AgAAAA**AQA ..."
Dim accessToken As String = "EBAY_ACCESS_TOKEN"
Dim http As ChilkatHttp
http.Initialize("http")
Dim apiCall As String = "uploadFile"
Dim fileAttachmentUuid As String = "<urn:uuid:bb47b86a237311e793ae92361f002671>"
Dim xmlUuid As String = "<urn:uuid:bb47b766237311e793ae92361f002671>"
Dim req As ChilkatHttpRequest
req.Initialize
req.HttpVerb = "POST"
req.Path = "/FileTransferService"
Dim sbContentType As ChilkatStringBuilder
sbContentType.Initialize
sbContentType.Append("multipart/related; type=" & Chr(34) & "application/xop+xml" & Chr(34) & "; start=" & Chr(34) & "XMLUUID" & Chr(34) & "; start-info=" & Chr(34) & "text/xml" & Chr(34))
Dim replaceCount As Int = sbContentType.Replace("XMLUUID", xmlUuid)
req.ContentType = sbContentType.GetAsString
req.AddHeader("X-EBAY-SOA-SERVICE-NAME", "FileTransferService")
req.AddHeader("X-EBAY-SOA-OPERATION-NAME", apiCall)
req.AddHeader("X-EBAY-SOA-SECURITY-TOKEN", accessToken)
req.AddHeader("X-EBAY-SOA-REQUEST-DATA-FORMAT", "XML")
req.AddHeader("X-EBAY-SOA-RESPONSE-DATA-FORMAT", "XML")
req.AddHeader("User-Agent", "AnythingYouWant")
Dim pathToFileOnDisk1 As String = "qa_data/ebay/uploadFileRequest.xml"
success = req.AddFileForUpload("uploadFileRequest.xml", pathToFileOnDisk1)
If success = False Then
Log(req.LastErrorText)
Return
End If
Dim pathToFileOnDisk2 As String = "qa_data/ebay/BulkDataExchangeRequests.gz"
success = req.AddFileForUpload("BulkDataExchangeRequests.gz", pathToFileOnDisk2)
If success = False Then
Log(req.LastErrorText)
Return
End If
' Add sub-headers for each file in the request.
req.AddSubHeader(0, "Content-Type", "application/xop+xml; charset=UTF-8; type=" & Chr(34) & "text/xml" & Chr(34))
req.AddSubHeader(0, "Content-Transfer-Encoding", "binary")
req.AddSubHeader(0, "Content-ID", xmlUuid)
req.AddSubHeader(1, "Content-Type", "application/octet-stream")
req.AddSubHeader(1, "Content-Transfer-Encoding", "binary")
req.AddSubHeader(1, "Content-ID", fileAttachmentUuid)
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSReq("storage.sandbox.ebay.com", 443, True, req, resp)
If success = False Then
Log(http.LastErrorText)
Return
End If
Log("Response status code = " & resp.StatusCode)
Dim xml As ChilkatXml
xml.Initialize
xml.LoadXml(resp.BodyStr)
If resp.StatusCode <> 200 Then
Log(xml.GetXml)
Log("Failed.")
Return
End If
' We still may have a failure. The XML needs to be checked.
' A failed response might look like this:
' <?xml version="1.0" encoding="UTF-8" ?>
' <uploadFileResponse xmlns="http://www.ebay.com/marketplace/services">
' <ack>Failure</ack>
' <errorMessage>
' <error>
' <errorId>1</errorId>
' <domain>Marketplace</domain>
' <severity>Error</severity>
' <category>Application</category>
' <message>Task Reference Id is invalid</message>
' <subdomain>FileTransfer</subdomain>
' </error>
' </errorMessage>
' <version>1.1.0</version>
' <timestamp>2017-04-18T01:05:27.475Z</timestamp>
' </uploadFileResponse>
' A successful response looks like this:
' <?xml version="1.0" encoding="UTF-8" ?>
' <uploadFileResponse xmlns="http://www.ebay.com/marketplace/services">
' <ack>Success</ack>
' <version>1.1.0</version>
' <timestamp>2017-04-18T01:22:47.853Z</timestamp>
' </uploadFileResponse>
Log(xml.GetXml)
' Get the "ack" to see if it's "Failure" or "Success"
If xml.ChildContentMatches("ack", "Success", False) Then
Log("Success.")
Else
Log("Failure.")
End If