(PureBasic) Extract Files from Binary SOAP MTOM MIME

This example demonstrates how to extract files from a binary SOAP MTOM MIME document.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkStringBuilder.pb"
IncludeFile "CkMime.pb"

Procedure ChilkatExample()

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

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

    ; In this example, we have a MIME file containing 8bit (non-encoded) binary data,
    ; and it is what I call "headless".  MIME is headless when it omits
    ; the top-level header.  The file we have here begins with the first
    ; boundary string.

    ; The structure the MIME to be loaded is:

    ; multipart/mixed (inferred because it is headless)
    ;     application/xop+xml
    ;     image/jpeg
    ;     image/gif
    ;     image/gif
    ; 

    success.i = CkMime::ckLoadMimeFile(mime,"qa_data/mime/headless_binary_soap_mtom_mime.mim")
    If success <> 1
        Debug CkMime::ckLastErrorText(mime)
        CkMime::ckDispose(mime)
        ProcedureReturn
    EndIf

    ; The MIME file loaded in this example contains this:

    ; --uuid:e74486f4-52b0-44b6-b829-156810fae20d
    ; Content-Type: application/xop+xml; charset=UTF-8; type="application/soap+xml"
    ; Content-Transfer-Encoding: binary
    ; Content-ID: <root.message@cxf.apache.org>
    ; 
    ; <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope"><soap:Body> ... </soap:Body></soap:Envelope>
    ; --uuid:e74486f4-52b0-44b6-b829-156810fae20d
    ; Content-Type: image/jpeg
    ; Content-Transfer-Encoding: binary
    ; Content-ID: <beee83b7-166c-494c-890a-def990e9887b-1496@cxf.apache.org>
    ; Content-Disposition: attachment;name="-2049913191"
    ; 
    ; BINARY DATA HERE...
    ; 
    ; --uuid:e74486f4-52b0-44b6-b829-156810fae20d
    ; Content-Type: image/gif
    ; Content-Transfer-Encoding: binary
    ; Content-ID: <beee83b7-166c-494c-890a-def990e9887b-1497@cxf.apache.org>
    ; Content-Disposition: attachment;name="-2049913188"
    ; 
    ; BINARY DATA HERE...
    ; 
    ; --uuid:e74486f4-52b0-44b6-b829-156810fae20d
    ; Content-Type: image/gif
    ; Content-Transfer-Encoding: binary
    ; Content-ID: <beee83b7-166c-494c-890a-def990e9887b-1498@cxf.apache.org>
    ; Content-Disposition: attachment;name="-2049913185"
    ; 
    ; BINARY DATA HERE...
    ; 
    ; --uuid:e74486f4-52b0-44b6-b829-156810fae20d--

    ; Get the number of MIME sub-parts.
    numParts.i = CkMime::ckNumParts(mime)

    ; The 1st part at index 0 is the application/xop+xml.  We're just going to extract the JPG and GIF image files..
    sbFilename.i = CkStringBuilder::ckCreate()
    If sbFilename.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    name.s
    i.i = 1
    While i < numParts
        mp.i = CkMime::ckGetPart(mime,i)

        ; By looking at the MIME above, the "name" attribute of the Content-Disposition header field seems
        ; to be the only possible name we can use for each image..
        CkStringBuilder::ckAppend(sbFilename,"qa_output/")
        name = CkMime::ckGetHeaderFieldAttribute(mp,"Content-Disposition","name")
        CkStringBuilder::ckAppend(sbFilename,name)
        CkStringBuilder::ckAppend(sbFilename,".")
        CkStringBuilder::ckAppend(sbFilename,CkMime::ckContentType(mp))
        numReplaced.i = CkStringBuilder::ckReplace(sbFilename,"image/","")
        CkMime::ckSaveBody(mp,CkStringBuilder::ckGetAsString(sbFilename))
        Debug "output file: " + CkStringBuilder::ckGetAsString(sbFilename)

        CkMime::ckDispose(mp)

        CkStringBuilder::ckClear(sbFilename)
        i = i + 1
    Wend

    Debug "Success."


    CkMime::ckDispose(mime)
    CkStringBuilder::ckDispose(sbFilename)


    ProcedureReturn
EndProcedure