Decode Binary MIME Content

Download Chilkat MIME ActiveX

Decode the binary content in a MIME message.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMIMELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mime: CHILKATMIMELib_TLB.IChilkatMime;
success: Integer;
mimePart: CHILKATMIMELib_TLB.IChilkatMime;
jpgPart: CHILKATMIMELib_TLB.IChilkatMime;

begin
mime := CoChilkatMime.Create();

success := mime.UnlockComponent('Anything for 30-day trial');
if (success = 0) then
  begin
    ShowMessage('Failed to unlock component');

  end;

success := mime.LoadMimeFile('mm7.txt');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);

  end;

//  This particular MIME message has a top-level multipart/mixed
//  with 2 immediate children:
//  Content-Type: text/xml; charset=UTF-8
//  Content-Type: multipart/mixed;
//  within the multipart/mixed child, two additional children exist:
//  content-type: application/smil; name=main.smil; charset=utf-8
//  content-type: image/jpeg; name=kl20.jpg

//  This example will save the JPG sub-part:
//  (indexing begins at 0)
mimePart := mime.GetPart(1);
jpgPart := mimePart.GetPart(1);

//  Save the decoded body to a file.
//  The "Name" property contains "kl20.jpg"
success := jpgPart.SaveBody(jpgPart.Name);
if (success = 0) then
  begin
    ShowMessage(jpgPart.LastErrorText);

  end;

ShowMessage('Success!');


end;