PowerBuilder

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. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Mime
integer li_NumParts
oleobject loo_SbFilename
string ls_Name
integer i
oleobject loo_Mp
integer li_NumReplaced

li_Success = 0

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

loo_Mime = create oleobject
li_rc = loo_Mime.ConnectToNewObject("Chilkat.Mime")
if li_rc < 0 then
    destroy loo_Mime
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

li_Success = loo_Mime.LoadMimeFile("qa_data/mime/headless_binary_soap_mtom_mime.mim")
if li_Success = 0 then
    Write-Debug loo_Mime.LastErrorText
    destroy loo_Mime
    return
end if

// 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.
li_NumParts = loo_Mime.NumParts

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

i = 1
loo_Mp = create oleobject
li_rc = loo_Mp.ConnectToNewObject("Chilkat.Mime")

do while i < li_NumParts

    loo_Mime.PartAt(i,loo_Mp)

    // 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..
    loo_SbFilename.Append("qa_output/")
    ls_Name = loo_Mp.GetHeaderFieldAttribute("Content-Disposition","name")
    loo_SbFilename.Append(ls_Name)
    loo_SbFilename.Append(".")
    loo_SbFilename.Append(loo_Mp.ContentType)
    li_NumReplaced = loo_SbFilename.Replace("image/","")
    loo_Mp.SaveBody(loo_SbFilename.GetAsString())
    Write-Debug "output file: " + loo_SbFilename.GetAsString()
    loo_SbFilename.Clear()
    i = i + 1
loop

Write-Debug "Success."


destroy loo_Mime
destroy loo_SbFilename
destroy loo_Mp