Sample code for 30+ languages & platforms
Xbase++

Yet Another SOAP MTOM POST Example

See more HTTP Misc Examples

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

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oHttp
LOCAL oXml
LOCAL oReq
LOCAL nUseTls
LOCAL oResp
LOCAL oXmlResponse

nSuccess := 0

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

oHttp := 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>

oXml := CreateObject("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", 1, "href", "cid:780931946797")
oXml:UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include", 1, "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 := CreateObject("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 := 0
oXml:EmitCompact := 0
nSuccess := 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.
nSuccess := oReq:AddSubHeader(0, "Content-Transfer-Encoding", "8bit")
nSuccess := 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.
nSuccess := 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.
nSuccess := oReq:AddSubHeader(1, "Content-Transfer-Encoding", "binary")
nSuccess := oReq:AddSubHeader(1, "Content-ID", "<IT04769180151_00044.zip>")
nSuccess := 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"

nUseTls := 0
//  Note: Please don't run this example without changing the domain to your own domain...
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("www.yourdomain.it", 80, nUseTls, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oXml:destroy()
    oReq:destroy()
    oResp:destroy()
    RETURN
ENDIF

oXmlResponse := CreateObject("Chilkat.Xml")
nSuccess := oXmlResponse:LoadXml(oResp:BodyStr)
//  println xmlResponse.GetXml();

? "OK."

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