Xbase++ 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. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oReq
LOCAL cXmlBody
LOCAL cXmlBody2
LOCAL nUseTls
LOCAL oResp
LOCAL oXmlResponse

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")
oReq := CreateObject("Chilkat.HttpRequest")

oReq:HttpVerb := "POST"
oReq:Path := "/FseInsServicesWeb/services/fseComunicazioneMetadati"

//  Chilkat will automatically generate and add a boundary string.
oReq:ContentType := 'multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"'
oReq:AddHeader("SOAPAction", "some-SOAP-action")

oReq:AddHeader("Connection", "Keep-Alive")
oReq:AddHeader("Accept-Encoding", "gzip,deflate")
oReq: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:
oHttp:Login := "..."
oHttp:Password := "..."
oHttp:BasicAuth := 1

//  Add the 1st multipart/related sub-part, which is the SOAP envelope.
cXmlBody := "<soapenv:Envelope ...."
nSuccess := oReq:AddStringForUpload2("", "", cXmlBody, "utf-8", 'application/xop+xml; type="text/xml"; charset=utf-8')

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

//  Add the 2nd multipart/related sub-part, which is the signed XML
cXmlBody2 := "<!-- INSERIRE IL RIFERIMENT ...."
nSuccess := oReq:AddStringForUpload2("CDA2LAB_190_signed.xml", "", cXmlBody2, "Cp1252", "text/xml; charset=Cp1252")

//  Additional headers for the 2nd sub-part.
nSuccess := oReq:AddSubHeader(1, "Content-ID", "<CDA2LAB_190_signed.xml>")
nSuccess := oReq:AddSubHeader(1, "Content-Transfer-Encoding", "quoted-printable")
nSuccess := oReq:AddSubHeader(1, "Content-Disposition", 'attachment; name="CDA2LAB_190_signed.xml"')

oHttp:FollowRedirects := 1

nUseTls := 1
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("fseservicetest.sanita.finanze.it", 443, nUseTls, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oResp:destroy()
    RETURN
ENDIF

oXmlResponse := CreateObject("Chilkat.Xml")
nSuccess := oXmlResponse:LoadXml(oResp:BodyStr)
? oXmlResponse:GetXml()

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