PureBasic 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. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkXml.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

    success.i = 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--

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkPath(req, "/FseInsServicesWeb/services/fseComunicazioneMetadati")

    ;  Chilkat will automatically generate and add a boundary string.
    CkHttpRequest::setCkContentType(req, "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))
    CkHttpRequest::ckAddHeader(req,"SOAPAction","some-SOAP-action")

    CkHttpRequest::ckAddHeader(req,"Connection","Keep-Alive")
    CkHttpRequest::ckAddHeader(req,"Accept-Encoding","gzip,deflate")
    CkHttpRequest::ckAddHeader(req,"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:
    CkHttp::setCkLogin(http, "...")
    CkHttp::setCkPassword(http, "...")
    CkHttp::setCkBasicAuth(http, 1)

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

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

    ;  Add the 2nd multipart/related sub-part, which is the signed XML
    xmlBody2.s = "<!-- INSERIRE IL RIFERIMENT ...."
    success = CkHttpRequest::ckAddStringForUpload2(req,"CDA2LAB_190_signed.xml","",xmlBody2,"Cp1252","text/xml; charset=Cp1252")

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

    CkHttp::setCkFollowRedirects(http, 1)

    useTls.i = 1
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpSReq(http,"fseservicetest.sanita.finanze.it",443,useTls,req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    xmlResponse.i = CkXml::ckCreate()
    If xmlResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkXml::ckLoadXml(xmlResponse,CkHttpResponse::ckBodyStr(resp))
    Debug CkXml::ckGetXml(xmlResponse)


    CkHttp::ckDispose(http)
    CkHttpRequest::ckDispose(req)
    CkHttpResponse::ckDispose(resp)
    CkXml::ckDispose(xmlResponse)


    ProcedureReturn
EndProcedure