(DataFlex) 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.

Note: This example requires Chilkat v9.5.0.92 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoHttp
    Variant vReq
    Handle hoReq
    String sXmlBody
    Boolean iSuccess
    String sXmlBody2
    Boolean iUseTls
    Variant vResp
    Handle hoResp
    Handle hoXmlResponse
    String sTemp1
    Boolean bTemp1

    // Note: This example requires Chilkat v9.5.0.92 or greater.

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End
    Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
    If (Not(IsComObjectCreated(hoReq))) Begin
        Send CreateComObject of hoReq
    End

    Set ComHttpVerb Of hoReq To "POST"
    Set ComPath Of hoReq To "/FseInsServicesWeb/services/fseComunicazioneMetadati"

    // Chilkat will automatically generate and add a boundary string.
    Set ComContentType Of hoReq To 'multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"'
    Send ComAddHeader To hoReq "SOAPAction" "some-SOAP-action"

    Send ComAddHeader To hoReq "Connection" "Keep-Alive"
    Send ComAddHeader To hoReq "Accept-Encoding" "gzip,deflate"
    Send ComAddHeader To hoReq "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:
    Set ComLogin Of hoHttp To "..."
    Set ComPassword Of hoHttp To "..."
    Set ComBasicAuth Of hoHttp To True

    // Add the 1st multipart/related sub-part, which is the SOAP envelope.
    Move "<soapenv:Envelope ...." To sXmlBody
    Get ComAddStringForUpload2 Of hoReq "" "" sXmlBody "utf-8" 'application/xop+xml; type="text/xml"; charset=utf-8' To iSuccess

    // Additional headers for the 1st sub-part
    Get ComAddSubHeader Of hoReq 0 "Content-ID" "<rootpart@soapui.org>" To iSuccess
    Get ComAddSubHeader Of hoReq 0 "Content-Transfer-Encoding" "8bit" To iSuccess
    Get ComAddSubHeader Of hoReq 0 "Content-Disposition" "" To iSuccess

    // Add the 2nd multipart/related sub-part, which is the signed XML
    Move "<!-- INSERIRE IL RIFERIMENT ...." To sXmlBody2
    Get ComAddStringForUpload2 Of hoReq "CDA2LAB_190_signed.xml" "" sXmlBody2 "Cp1252" "text/xml; charset=Cp1252" To iSuccess

    // Additional headers for the 2nd sub-part.
    Get ComAddSubHeader Of hoReq 1 "Content-ID" "<CDA2LAB_190_signed.xml>" To iSuccess
    Get ComAddSubHeader Of hoReq 1 "Content-Transfer-Encoding" "quoted-printable" To iSuccess
    Get ComAddSubHeader Of hoReq 1 "Content-Disposition" 'attachment; name="CDA2LAB_190_signed.xml"' To iSuccess

    Set ComFollowRedirects Of hoHttp To True

    Move True To iUseTls
    Get pvComObject of hoReq to vReq
    Get ComSynchronousRequest Of hoHttp "fseservicetest.sanita.finanze.it" 443 iUseTls vReq To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatXml)) To hoXmlResponse
    If (Not(IsComObjectCreated(hoXmlResponse))) Begin
        Send CreateComObject of hoXmlResponse
    End
    Get ComBodyStr Of hoResp To sTemp1
    Get ComLoadXml Of hoXmlResponse sTemp1 To iSuccess
    Get ComGetXml Of hoXmlResponse To sTemp1
    Showln sTemp1
    Send Destroy of hoResp


End_Procedure