Xbase++ Requires Chilkat v11.0.0+

Extract Files from Binary SOAP MTOM MIME

See more MIME Examples

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

LOCAL nSuccess
LOCAL oMime
LOCAL nNumParts
LOCAL oSbFilename
LOCAL cName
LOCAL i
LOCAL oMp
LOCAL nNumReplaced

nSuccess := 0

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

oMime := CreateObject("Chilkat.Mime")

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

nSuccess := oMime:LoadMimeFile("qa_data/mime/headless_binary_soap_mtom_mime.mim")
IF (nSuccess == 0)
    ? oMime:LastErrorText
    oMime:destroy()
    RETURN
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.
nNumParts := oMime:NumParts

//  The 1st part at index 0 is the application/xop+xml.  We're just going to extract the JPG and GIF image files..
oSbFilename := CreateObject("Chilkat.StringBuilder")

i := 1
oMp := CreateObject("Chilkat.Mime")
DO WHILE i < nNumParts

    oMime:PartAt(i, oMp)

    //  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..
    oSbFilename:Append("qa_output/")
    cName := oMp:GetHeaderFieldAttribute("Content-Disposition", "name")
    oSbFilename:Append(cName)
    oSbFilename:Append(".")
    oSbFilename:Append(oMp:ContentType)
    nNumReplaced := oSbFilename:Replace("image/", "")
    oMp:SaveBody(oSbFilename:GetAsString())
    ? "output file: " + oSbFilename:GetAsString()
    oSbFilename:Clear()
    i := i + 1
ENDDO

? "Success."

oMime:destroy()
oSbFilename:destroy()
oMp:destroy()