(Visual FoxPro) eBay -- Upload Bulk Data using FileTransferService

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

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

LOCAL lcAccessToken
LOCAL loHttp
LOCAL lcApiCall
LOCAL lcFileAttachmentUuid
LOCAL lcXmlUuid
LOCAL loReq
LOCAL loSbContentType
LOCAL lnReplaceCount
LOCAL lcPathToFileOnDisk1
LOCAL lnSuccess
LOCAL lcPathToFileOnDisk2
LOCAL loResp
LOCAL loXml

* 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 ..."
lcAccessToken = "EBAY_ACCESS_TOKEN"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

lcApiCall = "uploadFile"
lcFileAttachmentUuid = "<urn:uuid:bb47b86a237311e793ae92361f002671>"
lcXmlUuid = "<urn:uuid:bb47b766237311e793ae92361f002671>"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest')
loReq = CreateObject('Chilkat.HttpRequest')

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbContentType = CreateObject('Chilkat.StringBuilder')
loSbContentType.Append('multipart/related; type="application/xop+xml"; start="XMLUUID"; start-info="text/xml"')
lnReplaceCount = loSbContentType.Replace("XMLUUID",lcXmlUuid)
loReq.ContentType = loSbContentType.GetAsString()

loReq.AddHeader("X-EBAY-SOA-SERVICE-NAME","FileTransferService")
loReq.AddHeader("X-EBAY-SOA-OPERATION-NAME",lcApiCall)
loReq.AddHeader("X-EBAY-SOA-SECURITY-TOKEN",lcAccessToken)
loReq.AddHeader("X-EBAY-SOA-REQUEST-DATA-FORMAT","XML")
loReq.AddHeader("X-EBAY-SOA-RESPONSE-DATA-FORMAT","XML")
loReq.AddHeader("User-Agent","AnythingYouWant")

lcPathToFileOnDisk1 = "qa_data/ebay/uploadFileRequest.xml"
lnSuccess = loReq.AddFileForUpload("uploadFileRequest.xml",lcPathToFileOnDisk1)
IF (lnSuccess <> 1) THEN
    ? loReq.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbContentType
    CANCEL
ENDIF

lcPathToFileOnDisk2 = "qa_data/ebay/BulkDataExchangeRequests.gz"
lnSuccess = loReq.AddFileForUpload("BulkDataExchangeRequests.gz",lcPathToFileOnDisk2)
IF (lnSuccess <> 1) THEN
    ? loReq.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbContentType
    CANCEL
ENDIF

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

loResp = loHttp.SynchronousRequest("storage.sandbox.ebay.com",443,1,loReq)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbContentType
    CANCEL
ENDIF

? "Response status code = " + STR(loResp.StatusCode)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.LoadXml(loResp.BodyStr)

IF (loResp.StatusCode <> 200) THEN
    ? loXml.GetXml()
    ? "Failed."
    RELEASE loResp
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbContentType
    RELEASE loXml
    CANCEL
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>

? loXml.GetXml()

* Get the "ack" to see if it's "Failure" or "Success"
IF (loXml.ChildContentMatches("ack","Success",0)) THEN
    ? "Success."
ELSE
    ? "Failure."
ENDIF

RELEASE loResp

RELEASE loHttp
RELEASE loReq
RELEASE loSbContentType
RELEASE loXml