(AutoIt) Extract Files from Binary SOAP MTOM MIME

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

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

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

$oMime = ObjCreate("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
; 

Local $bSuccess = $oMime.LoadMimeFile("qa_data/mime/headless_binary_soap_mtom_mime.mim")
If ($bSuccess <> True) Then
    ConsoleWrite($oMime.LastErrorText & @CRLF)
    Exit
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.
Local $iNumParts = $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 = ObjCreate("Chilkat.StringBuilder")
Local $sName
Local $i = 1
While $i < $iNumParts
Local $oMp = $oMime.GetPart($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..
    $oSbFilename.Append("qa_output/")
    $sName = $oMp.GetHeaderFieldAttribute("Content-Disposition","name")
    $oSbFilename.Append($sName)
    $oSbFilename.Append(".")
    $oSbFilename.Append($oMp.ContentType)
Local $iNumReplaced = $oSbFilename.Replace("image/","")
    $oMp.SaveBody($oSbFilename.GetAsString())
    ConsoleWrite("output file: " & $oSbFilename.GetAsString() & @CRLF)

    $oSbFilename.Clear 
    $i = $i + 1
Wend

ConsoleWrite("Success." & @CRLF)