(Tcl) Extract Files from Binary SOAP MTOM MIME

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set mime [new_CkMime]

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

set success [CkMime_LoadMimeFile $mime "qa_data/mime/headless_binary_soap_mtom_mime.mim"]
if {$success != 1} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

# 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.
set numParts [CkMime_get_NumParts $mime]

# The 1st part at index 0 is the application/xop+xml.  We're just going to extract the JPG and GIF image files..
set sbFilename [new_CkStringBuilder]

set i 1
while {$i < $numParts} {
    # mp is a CkMime
    set mp [CkMime_GetPart $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_Append $sbFilename "qa_output/"
    set name [CkMime_getHeaderFieldAttribute $mp "Content-Disposition" "name"]
    CkStringBuilder_Append $sbFilename $name
    CkStringBuilder_Append $sbFilename "."
    CkStringBuilder_Append $sbFilename [CkMime_contentType $mp]
    set numReplaced [CkStringBuilder_Replace $sbFilename "image/" ""]
    CkMime_SaveBody $mp [CkStringBuilder_getAsString $sbFilename]
    puts "output file: [CkStringBuilder_getAsString $sbFilename]"

    delete_CkMime $mp

    CkStringBuilder_Clear $sbFilename
    set i [expr $i + 1]
}

puts "Success."

delete_CkMime $mime
delete_CkStringBuilder $sbFilename