Xbase++ Requires Chilkat v11.0.0+

eBay -- Upload Bulk Data using FileTransferService

See more eBay Examples

Demonstrates how to upload your data file using the eBay File Transfer API. Xbase++

LOCAL nSuccess
LOCAL cAccessToken
LOCAL oHttp
LOCAL cApiCall
LOCAL cFileAttachmentUuid
LOCAL cXmlUuid
LOCAL oReq
LOCAL oSbContentType
LOCAL nReplaceCount
LOCAL cPathToFileOnDisk1
LOCAL cPathToFileOnDisk2
LOCAL oResp
LOCAL oXml

nSuccess := 0

//  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 ..."
cAccessToken := "EBAY_ACCESS_TOKEN"

oHttp := CreateObject("Chilkat.Http")

cApiCall := "uploadFile"
cFileAttachmentUuid := "<urn:uuid:bb47b86a237311e793ae92361f002671>"
cXmlUuid := "<urn:uuid:bb47b766237311e793ae92361f002671>"

oReq := CreateObject("Chilkat.HttpRequest")

oReq:HttpVerb := "POST"
oReq:Path := "/FileTransferService"

oSbContentType := CreateObject("Chilkat.StringBuilder")
oSbContentType:Append('multipart/related; type="application/xop+xml"; start="XMLUUID"; start-info="text/xml"')
nReplaceCount := oSbContentType:Replace("XMLUUID", cXmlUuid)
oReq:ContentType := oSbContentType:GetAsString()

oReq:AddHeader("X-EBAY-SOA-SERVICE-NAME", "FileTransferService")
oReq:AddHeader("X-EBAY-SOA-OPERATION-NAME", cApiCall)
oReq:AddHeader("X-EBAY-SOA-SECURITY-TOKEN", cAccessToken)
oReq:AddHeader("X-EBAY-SOA-REQUEST-DATA-FORMAT", "XML")
oReq:AddHeader("X-EBAY-SOA-RESPONSE-DATA-FORMAT", "XML")
oReq:AddHeader("User-Agent", "AnythingYouWant")

cPathToFileOnDisk1 := "qa_data/ebay/uploadFileRequest.xml"
nSuccess := oReq:AddFileForUpload("uploadFileRequest.xml", cPathToFileOnDisk1)
IF (nSuccess == 0)
    ? oReq:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oSbContentType:destroy()
    RETURN
ENDIF

cPathToFileOnDisk2 := "qa_data/ebay/BulkDataExchangeRequests.gz"
nSuccess := oReq:AddFileForUpload("BulkDataExchangeRequests.gz", cPathToFileOnDisk2)
IF (nSuccess == 0)
    ? oReq:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oSbContentType:destroy()
    RETURN
ENDIF

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

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("storage.sandbox.ebay.com", 443, 1, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oSbContentType:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "Response status code = " + Str(oResp:StatusCode)

oXml := CreateObject("Chilkat.Xml")
oXml:LoadXml(oResp:BodyStr)

IF (oResp:StatusCode != 200)
    ? oXml:GetXml()
    ? "Failed."
    oHttp:destroy()
    oReq:destroy()
    oSbContentType:destroy()
    oResp:destroy()
    oXml:destroy()
    RETURN
ENDIF

//  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>

? oXml:GetXml()

//  Get the "ack" to see if it's "Failure" or "Success"
IF (oXml:ChildContentMatches("ack", "Success", 0))
    ? "Success."
ELSE
    ? "Failure."
ENDIF

oHttp:destroy()
oReq:destroy()
oSbContentType:destroy()
oResp:destroy()
oXml:destroy()