(AutoIt) 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

; 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 ..."
Local $sAccessToken = "EBAY_ACCESS_TOKEN"

$oHttp = ObjCreate("Chilkat.Http")

Local $sApiCall = "uploadFile"
Local $sFileAttachmentUuid = "<urn:uuid:bb47b86a237311e793ae92361f002671>"
Local $sXmlUuid = "<urn:uuid:bb47b766237311e793ae92361f002671>"

$oReq = ObjCreate("Chilkat.HttpRequest")

$oReq.HttpVerb = "POST"
$oReq.Path = "/FileTransferService"

$oSbContentType = ObjCreate("Chilkat.StringBuilder")
$oSbContentType.Append("multipart/related; type=""application/xop+xml""; start=""XMLUUID""; start-info=""text/xml""")
Local $iReplaceCount = $oSbContentType.Replace("XMLUUID",$sXmlUuid)
$oReq.ContentType = $oSbContentType.GetAsString()

$oReq.AddHeader "X-EBAY-SOA-SERVICE-NAME","FileTransferService"
$oReq.AddHeader "X-EBAY-SOA-OPERATION-NAME",$sApiCall
$oReq.AddHeader "X-EBAY-SOA-SECURITY-TOKEN",$sAccessToken
$oReq.AddHeader "X-EBAY-SOA-REQUEST-DATA-FORMAT","XML"
$oReq.AddHeader "X-EBAY-SOA-RESPONSE-DATA-FORMAT","XML"
$oReq.AddHeader "User-Agent","AnythingYouWant"

Local $sPathToFileOnDisk1 = "qa_data/ebay/uploadFileRequest.xml"
Local $bSuccess = $oReq.AddFileForUpload("uploadFileRequest.xml",$sPathToFileOnDisk1)
If ($bSuccess <> True) Then
    ConsoleWrite($oReq.LastErrorText & @CRLF)
    Exit
EndIf

Local $sPathToFileOnDisk2 = "qa_data/ebay/BulkDataExchangeRequests.gz"
$bSuccess = $oReq.AddFileForUpload("BulkDataExchangeRequests.gz",$sPathToFileOnDisk2)
If ($bSuccess <> True) Then
    ConsoleWrite($oReq.LastErrorText & @CRLF)
    Exit
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",$sXmlUuid)
$oReq.AddSubHeader(1,"Content-Type","application/octet-stream")
$oReq.AddSubHeader(1,"Content-Transfer-Encoding","binary")
$oReq.AddSubHeader(1,"Content-ID",$sFileAttachmentUuid)

Local $oResp = $oHttp.SynchronousRequest("storage.sandbox.ebay.com",443,True,$oReq)
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response status code = " & $oResp.StatusCode & @CRLF)

$oXml = ObjCreate("Chilkat.Xml")
$oXml.LoadXml($oResp.BodyStr)

If ($oResp.StatusCode <> 200) Then
    ConsoleWrite($oXml.GetXml() & @CRLF)
    ConsoleWrite("Failed." & @CRLF)

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

ConsoleWrite($oXml.GetXml() & @CRLF)

; Get the "ack" to see if it's "Failure" or "Success"
If ($oXml.ChildContentMatches("ack","Success",False)) Then
    ConsoleWrite("Success." & @CRLF)
Else
    ConsoleWrite("Failure." & @CRLF)
EndIf