Xojo Plugin

eBay -- Upload Bulk Data using FileTransferService

See more eBay Examples

Demonstrates how to upload your data file using the eBay File Transfer API. Xojo Plugin

Dim success As Boolean
success = 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
accessToken = "EBAY_ACCESS_TOKEN"

Dim http As New Chilkat.Http

Dim apiCall As String
apiCall = "uploadFile"
Dim fileAttachmentUuid As String
fileAttachmentUuid = "<urn:uuid:bb47b86a237311e793ae92361f002671>"
Dim xmlUuid As String
xmlUuid = "<urn:uuid:bb47b766237311e793ae92361f002671>"

Dim req As New Chilkat.HttpRequest

req.HttpVerb = "POST"
req.Path = "/FileTransferService"

Dim sbContentType As New Chilkat.StringBuilder
success = sbContentType.Append("multipart/related; type=""application/xop+xml""; start=""XMLUUID""; start-info=""text/xml""")
Dim replaceCount As Int32
replaceCount = 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
pathToFileOnDisk1 = "qa_data/ebay/uploadFileRequest.xml"
success = req.AddFileForUpload("uploadFileRequest.xml",pathToFileOnDisk1)
If (success = False) Then
    System.DebugLog(req.LastErrorText)
    Return
End If

Dim pathToFileOnDisk2 As String
pathToFileOnDisk2 = "qa_data/ebay/BulkDataExchangeRequests.gz"
success = req.AddFileForUpload("BulkDataExchangeRequests.gz",pathToFileOnDisk2)
If (success = False) Then
    System.DebugLog(req.LastErrorText)
    Return
End If

// Add sub-headers for each file in the request.
success = req.AddSubHeader(0,"Content-Type","application/xop+xml; charset=UTF-8; type=""text/xml""")
success = req.AddSubHeader(0,"Content-Transfer-Encoding","binary")
success = req.AddSubHeader(0,"Content-ID",xmlUuid)
success = req.AddSubHeader(1,"Content-Type","application/octet-stream")
success = req.AddSubHeader(1,"Content-Transfer-Encoding","binary")
success = req.AddSubHeader(1,"Content-ID",fileAttachmentUuid)

Dim resp As New Chilkat.HttpResponse
success = http.HttpSReq("storage.sandbox.ebay.com",443,True,req,resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("Response status code = " + Str(resp.StatusCode))

Dim xml As New Chilkat.Xml
success = xml.LoadXml(resp.BodyStr)

If (resp.StatusCode <> 200) Then
    System.DebugLog(xml.GetXml())
    System.DebugLog("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>

System.DebugLog(xml.GetXml())

// Get the "ack" to see if it's "Failure" or "Success"
If (xml.ChildContentMatches("ack","Success",False)) Then
    System.DebugLog("Success.")
Else
    System.DebugLog("Failure.")
End If