(Visual FoxPro) 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

LOCAL loHttp
LOCAL lnSuccess
LOCAL loXml
LOCAL loReq
LOCAL lnUseTls
LOCAL loResp
LOCAL loXmlResponse

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

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

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loXml.AddAttribute("xmlns:imp","http://www.yourdomain.it/ImportMultiploWorkflowPAWS/")
loXml.UpdateChildContent("soapenv:Header","")
loXml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|usernameEis","MyUsername")
loXml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|passwordEis","MyPassword")
loXml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|postazioneEis","COSO00")
loXml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|istitutoEis","COSO")
loXml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|codiceAzienda","COSO0000")
loXml.UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include",1,"href","cid:780931946797")
loXml.UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include",1,"xmlns:inc","http://www.w3.org/2004/08/xop/include")
loXml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZipName","IT04769180151_00044.zip")
loXml.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)

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

* Add the XML content for the 1st MIME sub-part.
loXml.EmitXmlDecl = 0
loXml.EmitCompact = 0
lnSuccess = loReq.AddStringForUpload2("","",loXml.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.
lnSuccess = loReq.AddSubHeader(0,"Content-Transfer-Encoding","8bit")
lnSuccess = loReq.AddSubHeader(0,"Content-ID","<rootpart@soapui.org>")

* Add a reference to the local file for the file data for the 2nd MIME sub-part.
lnSuccess = loReq.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.
lnSuccess = loReq.AddSubHeader(1,"Content-Transfer-Encoding","binary")
lnSuccess = loReq.AddSubHeader(1,"Content-ID","<IT04769180151_00044.zip>")
lnSuccess = loReq.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.
loHttp.SessionLogFilename = "qa_output/mtom_sessionLog.txt"

lnUseTls = 0
* Note: Please don't run this example without changing the domain to your own domain...
loResp = loHttp.SynchronousRequest("www.yourdomain.it",80,lnUseTls,loReq)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loXml
    RELEASE loReq
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXmlResponse = CreateObject('Chilkat.Xml')
lnSuccess = loXmlResponse.LoadXml(loResp.BodyStr)
* println xmlResponse.GetXml();
RELEASE loResp

? "OK."

RELEASE loHttp
RELEASE loXml
RELEASE loReq
RELEASE loXmlResponse