(Visual FoxPro) Extract Files from Binary SOAP MTOM MIME

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

Note: This example requires Chilkat v11.0.0 or greater.

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

LOCAL lnSuccess
LOCAL loMime
LOCAL lnNumParts
LOCAL loSbFilename
LOCAL lcName
LOCAL i
LOCAL loMp
LOCAL lnNumReplaced

lnSuccess = 0

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

loMime = 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
* 

lnSuccess = loMime.LoadMimeFile("qa_data/mime/headless_binary_soap_mtom_mime.mim")
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
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.
lnNumParts = loMime.NumParts

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

i = 1
loMp = CreateObject('Chilkat.Mime')
DO WHILE i < lnNumParts

    loMime.PartAt(i,loMp)

    * 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..
    loSbFilename.Append("qa_output/")
    lcName = loMp.GetHeaderFieldAttribute("Content-Disposition","name")
    loSbFilename.Append(lcName)
    loSbFilename.Append(".")
    loSbFilename.Append(loMp.ContentType)
    lnNumReplaced = loSbFilename.Replace("image/","")
    loMp.SaveBody(loSbFilename.GetAsString())
    ? "output file: " + loSbFilename.GetAsString()
    loSbFilename.Clear()
    i = i + 1
ENDDO

? "Success."

RELEASE loMime
RELEASE loSbFilename
RELEASE loMp