(AutoIt) Yet Another SOAP MTOM POST Example

Demonstrates how to sending a SOAP request with an MTOM/XOP attachment...

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

; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; First build the following XML:

; 	<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" 
; 	    xmlns:imp="http://www.yourdomain.it/ImportMultiploWorkflowPAWS/">
; 	   <soapenv:Header/>
; 	   <soapenv:Body>
; 	      <imp:InputImportMultiploWorkflowPA>
; 	         <usernameEis>MyUsername</usernameEis>
; 	         <passwordEis>MyPassword</passwordEis>
; 	         <postazioneEis>COSO00</postazioneEis>
; 	         <istitutoEis>COSO</istitutoEis>
; 	         <codiceAzienda>COSO0000</codiceAzienda>
; 	         <fileZip><inc:Include href="cid:780931946797" xmlns:inc="http://www.w3.org/2004/08/xop/include"/></fileZip>
; 	         <fileZipName>IT04769180151_00044.zip</fileZipName>
; 	         <workflow>carica</workflow>
; 	      </imp:InputImportMultiploWorkflowPA>
; 	   </soapenv:Body>
; 	</soapenv:Envelope>

$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "soapenv:Envelope"
$oXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
$oXml.AddAttribute("xmlns:imp","http://www.yourdomain.it/ImportMultiploWorkflowPAWS/")
$oXml.UpdateChildContent "soapenv:Header",""
$oXml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|usernameEis","MyUsername"
$oXml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|passwordEis","MyPassword"
$oXml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|postazioneEis","COSO00"
$oXml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|istitutoEis","COSO"
$oXml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|codiceAzienda","COSO0000"
$oXml.UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include",True,"href","cid:780931946797")
$oXml.UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include",True,"xmlns:inc","http://www.w3.org/2004/08/xop/include")
$oXml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZipName","IT04769180151_00044.zip"
$oXml.UpdateChildContent "soapenv:Body|imp:InputImportMultiploWorkflowPA|workflow","carica"

; We want our top-level HTTP request header to look like this:

; POST /http-router-softwarehubsystem/webservices/importMultiploWorkflowPA HTTP/1.1
; Accept-Encoding: gzip,deflate
; Content-Type: multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"; boundary="----=_Part_0_1353857996.1546013984933"
; SOAPAction: "http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA"
; MIME-Version: 1.0
; Content-Length: <chilkat will add this header>
; Host: <chilkat will add this header>
; Connection: Keep-Alive
; User-Agent: Apache-HttpClient/4.1.1 (java 1.5)

$oReq = ObjCreate("Chilkat.HttpRequest")
$oReq.HttpVerb = "POST"
$oReq.Path = "/http-router-softwarehubsystem/webservices/importMultiploWorkflowPA"
$oReq.ContentType = "multipart/related; type=""application/xop+xml""; start=""<rootpart@soapui.org>""; start-info=""text/xml"""
$oReq.AddHeader "SOAPAction","""http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA"""
$oReq.AddHeader "Accept-Encoding","gzip,deflate"
$oReq.AddHeader "Mime-Version","1.0"
$oReq.AddHeader "Connection","Keep-Alive"
$oReq.AddHeader "User-Agent","Apache-HttpClient/4.1.1 (java 1.5)"

; Add the XML content for the 1st MIME sub-part.
$oXml.EmitXmlDecl = False
$oXml.EmitCompact = False
$bSuccess = $oReq.AddStringForUpload2("","",$oXml.GetXml(),"utf-8","application/xop+xml; charset=UTF-8; type=""text/xml""")

; We want the 1st sub-header (the sub-part containing the XML) to look like this:

; Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
; Content-Transfer-Encoding: 8bit
; Content-ID: <rootpart@soapui.org>

; Make sure we set sub-headers *after* calling AddStringForUpload2, otherwise AddStringForUpload2 might change these explicitly set headers.
$bSuccess = $oReq.AddSubHeader(0,"Content-Transfer-Encoding","8bit")
$bSuccess = $oReq.AddSubHeader(0,"Content-ID","<rootpart@soapui.org>")

; Add a reference to the local file for the file data for the 2nd MIME sub-part.
$bSuccess = $oReq.AddFileForUpload2("","qa_data/zips/helloWorld.zip","application/zip; name=IT04769180151_00044.zip")

; We want the 2nd sub-header (for the MIME sub-part containing a .zip file) to look like this:
; Content-Type: application/zip; name=IT04769180151_00044.zip
; Content-Transfer-Encoding: binary
; Content-ID: <IT04769180151_00044.zip>
; Content-Disposition: attachment; name="IT04769180151_00044.zip"; filename="IT04769180151_00044.zip"

; Make sure we set sub-headers *after* calling AddFileForUpload2, otherwise AddFileForUpload2 might change these explicitly set headers.
$bSuccess = $oReq.AddSubHeader(1,"Content-Transfer-Encoding","binary")
$bSuccess = $oReq.AddSubHeader(1,"Content-ID","<IT04769180151_00044.zip>")
$bSuccess = $oReq.AddSubHeader(1,"Content-Disposition","attachment; name=""IT04769180151_00044.zip""; filename=""IT04769180151_00044.zip""")

; Keep a session log so we can examine the exact request/response.
; Remove this line when finished with debugging.
$oHttp.SessionLogFilename = "qa_output/mtom_sessionLog.txt"

Local $bUseTls = False
; Note: Please don't run this example without changing the domain to your own domain...
Local $oResp = $oHttp.SynchronousRequest("www.yourdomain.it",80,$bUseTls,$oReq)
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oXmlResponse = ObjCreate("Chilkat.Xml")
$bSuccess = $oXmlResponse.LoadXml($oResp.BodyStr)
; println xmlResponse.GetXml();

ConsoleWrite("OK." & @CRLF)