(Delphi DLL) Extract Files from Binary SOAP MTOM MIME

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

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Mime, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mime: HCkMime;
success: Boolean;
numParts: Integer;
sbFilename: HCkStringBuilder;
name: PWideChar;
i: Integer;
mp: HCkMime;
numReplaced: Integer;

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

mime := CkMime_Create();

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

success := CkMime_LoadMimeFile(mime,'qa_data/mime/headless_binary_soap_mtom_mime.mim');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

// 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.
numParts := CkMime_getNumParts(mime);

// The 1st part at index 0 is the application/xop+xml.  We're just going to extract the JPG and GIF image files..
sbFilename := CkStringBuilder_Create();

i := 1;
while i < numParts do
  begin
    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/');
    name := CkMime__getHeaderFieldAttribute(mp,'Content-Disposition','name');
    CkStringBuilder_Append(sbFilename,name);
    CkStringBuilder_Append(sbFilename,'.');
    CkStringBuilder_Append(sbFilename,CkMime__contentType(mp));
    numReplaced := CkStringBuilder_Replace(sbFilename,'image/','');
    CkMime_SaveBody(mp,CkStringBuilder__getAsString(sbFilename));
    Memo1.Lines.Add('output file: ' + CkStringBuilder__getAsString(sbFilename));

    CkMime_Dispose(mp);
    CkStringBuilder_Clear(sbFilename);
    i := i + 1;
  end;

Memo1.Lines.Add('Success.');

CkMime_Dispose(mime);
CkStringBuilder_Dispose(sbFilename);

end;