B4X
B4X
Yet Another SOAP MTOM POST Example
See more HTTP Misc Examples
Demonstrates how to sending a SOAP request with an MTOM/XOP attachment...Chilkat B4X Downloads
Dim success As Boolean = False
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As ChilkatHttp
http.Initialize("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>
Dim xml As ChilkatXml
xml.Initialize
xml.Tag = "soapenv:Envelope"
xml.AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
xml.AddAttribute("xmlns:imp", "http://www.yourdomain.it/ImportMultiploWorkflowPAWS/")
xml.UpdateChildContent("soapenv:Header", "")
xml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|usernameEis", "MyUsername")
xml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|passwordEis", "MyPassword")
xml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|postazioneEis", "COSO00")
xml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|istitutoEis", "COSO")
xml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|codiceAzienda", "COSO0000")
xml.UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include", True, "href", "cid:780931946797")
xml.UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include", True, "xmlns:inc", "http://www.w3.org/2004/08/xop/include")
xml.UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZipName", "IT04769180151_00044.zip")
xml.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)
Dim req As ChilkatHttpRequest
req.Initialize
req.HttpVerb = "POST"
req.Path = "/http-router-softwarehubsystem/webservices/importMultiploWorkflowPA"
req.ContentType = "multipart/related; type=" & Chr(34) & "application/xop+xml" & Chr(34) & "; start=" & Chr(34) & "<rootpart@soapui.org>" & Chr(34) & "; start-info=" & Chr(34) & "text/xml" & Chr(34)
req.AddHeader("SOAPAction", Chr(34) & "http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA" & Chr(34))
req.AddHeader("Accept-Encoding", "gzip,deflate")
req.AddHeader("Mime-Version", "1.0")
req.AddHeader("Connection", "Keep-Alive")
req.AddHeader("User-Agent", "Apache-HttpClient/4.1.1 (java 1.5)")
' Add the XML content for the 1st MIME sub-part.
xml.EmitXmlDecl = False
xml.EmitCompact = False
success = req.AddStringForUpload2("", "", xml.GetXml, "utf-8", "application/xop+xml; charset=UTF-8; type=" & Chr(34) & "text/xml" & Chr(34))
' 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.
success = req.AddSubHeader(0, "Content-Transfer-Encoding", "8bit")
success = req.AddSubHeader(0, "Content-ID", "<rootpart@soapui.org>")
' Add a reference to the local file for the file data for the 2nd MIME sub-part.
success = req.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.
success = req.AddSubHeader(1, "Content-Transfer-Encoding", "binary")
success = req.AddSubHeader(1, "Content-ID", "<IT04769180151_00044.zip>")
success = req.AddSubHeader(1, "Content-Disposition", "attachment; name=" & Chr(34) & "IT04769180151_00044.zip" & Chr(34) & "; filename=" & Chr(34) & "IT04769180151_00044.zip" & Chr(34))
' Keep a session log so we can examine the exact request/response.
' Remove this line when finished with debugging.
http.SessionLogFilename = "qa_output/mtom_sessionLog.txt"
Dim useTls As Boolean = False
' Note: Please don't run this example without changing the domain to your own domain...
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSReq("www.yourdomain.it", 80, useTls, req, resp)
If success = False Then
Log(http.LastErrorText)
Return
End If
Dim xmlResponse As ChilkatXml
xmlResponse.Initialize
success = xmlResponse.LoadXml(resp.BodyStr)
' println xmlResponse.GetXml();
Log("OK.")