B4X Requires Chilkat v11.0.0+

Another SOAP with MTOM XOP Attachment Example

See more HTTP Examples

Demonstrates another multipart/related MTOM SOAP request that adds additional headers in each MIME sub-part, and also specifies Content-Transfer-Encoding in the sub-parts. B4X

Dim success As Boolean = False

'  This example sends a request such as the following:

'  POST /FseInsServicesWeb/services/fseComunicazioneMetadati HTTP/1.1
'  Connection: Keep-Alive
'  Content-Length: 50649
'  Content-Type: multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"; boundary="----=_Part_0_355796458.1662133302632"
'  Accept-Encoding: gzip,deflate
'  Authorization: Basic xxxxx
'  Host: ...
'  SOAPAction: "http://comunicazionemetadati.wsdl.fse.ini.finanze.it/ComunicazioneMetadati"
'  MIME-Version: 1.0
'  
'  ------=_Part_0_355796458.1662133302632
'  Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
'  Content-Transfer-Encoding: 8bit
'  Content-ID: <rootpart@soapui.org>
'  
'  <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:com="http://comunicazionemetadatirichiesta.xsd.fse.ini.finanze.it" xmlns:tip="http://tipodaticomunicazionemetadati.xsd.fse.ini.finanze.it">
'  <soapenv:Header/>
'  ...
'  
'  ------=_Part_0_355796458.1662133302632
'  Content-Type: text/xml; charset=Cp1252
'  Content-Transfer-Encoding: quoted-printable
'  Content-ID: <CDA2LAB_190_signed.xml>
'  Content-Disposition: attachment; name="CDA2LAB_190_signed.xml"
'  
'  <!-- INSERIRE IL RIFERIMENTO AL FOGLIO DI STILE DI AGID OPPURE INSERIRNE UN=
'  ...
'  
'  ------=_Part_0_355796458.1662133302632--

Dim http As ChilkatHttp
http.Initialize("http")
Dim req As ChilkatHttpRequest
req.Initialize

req.HttpVerb = "POST"
req.Path = "/FseInsServicesWeb/services/fseComunicazioneMetadati"

'  Chilkat will automatically generate and add a boundary string.
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", "some-SOAP-action")

req.AddHeader("Connection", "Keep-Alive")
req.AddHeader("Accept-Encoding", "gzip,deflate")
req.AddHeader("MIME-Version", "1.0")

'  Chilkat will automatically add the Content-Length and Host headers.

'  The "Authorization: Basic ..."  header is added by setting the Login and Password and specifying Basic authentication:
http.Login = "..."
http.Password = "..."
http.BasicAuth = True

'  Add the 1st multipart/related sub-part, which is the SOAP envelope.
Dim xmlBody As String = "<soapenv:Envelope ...."
success = req.AddStringForUpload2("", "", xmlBody, "utf-8", "application/xop+xml; type=" & Chr(34) & "text/xml" & Chr(34) & "; charset=utf-8")

'  Additional headers for the 1st sub-part
success = req.AddSubHeader(0, "Content-ID", "<rootpart@soapui.org>")
success = req.AddSubHeader(0, "Content-Transfer-Encoding", "8bit")
success = req.AddSubHeader(0, "Content-Disposition", "")

'  Add the 2nd multipart/related sub-part, which is the signed XML
Dim xmlBody2 As String = "<!-- INSERIRE IL RIFERIMENT ...."
success = req.AddStringForUpload2("CDA2LAB_190_signed.xml", "", xmlBody2, "Cp1252", "text/xml; charset=Cp1252")

'  Additional headers for the 2nd sub-part.
success = req.AddSubHeader(1, "Content-ID", "<CDA2LAB_190_signed.xml>")
success = req.AddSubHeader(1, "Content-Transfer-Encoding", "quoted-printable")
success = req.AddSubHeader(1, "Content-Disposition", "attachment; name=" & Chr(34) & "CDA2LAB_190_signed.xml" & Chr(34))

http.FollowRedirects = True

Dim useTls As Boolean = True
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSReq("fseservicetest.sanita.finanze.it", 443, useTls, req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim xmlResponse As ChilkatXml
xmlResponse.Initialize
success = xmlResponse.LoadXml(resp.BodyStr)
Log(xmlResponse.GetXml)