Visual FoxPro 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. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loReq
LOCAL lcXmlBody
LOCAL lcXmlBody2
LOCAL lnUseTls
LOCAL loResp
LOCAL loXmlResponse

lnSuccess = 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--

loHttp = CreateObject('Chilkat.Http')
loReq = CreateObject('Chilkat.HttpRequest')

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

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

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

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

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

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

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

loHttp.FollowRedirects = 1

lnUseTls = 1
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpSReq("fseservicetest.sanita.finanze.it",443,lnUseTls,loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loResp
    CANCEL
ENDIF

loXmlResponse = CreateObject('Chilkat.Xml')
lnSuccess = loXmlResponse.LoadXml(loResp.BodyStr)
? loXmlResponse.GetXml()

RELEASE loHttp
RELEASE loReq
RELEASE loResp
RELEASE loXmlResponse