Delphi DLL

Save a MIME Body (Attachment) to a File

Demonstrates the Chilkat Mime.SaveBody method, which writes the decoded body bytes of the current part to a file. The only argument is the file path. Base64 and quoted-printable are decoded; MIME headers and multipart framing are not written.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This is the direct way to extract a part's content to disk — saving an attachment or the payload of a part as its real, decoded bytes. Chilkat reverses the transfer encoding so the file contains the actual content, not its Base64 form. To reach a specific attachment in a multipart message, navigate to that part (for example with PartAt) before calling this.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mime: HCkMime;

begin
success := False;

mime := CkMime_Create();
success := CkMime_LoadMimeFile(mime,'qa_data/message.eml');
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

//  Write the decoded body bytes of the current part to a file.  Base64 and quoted-printable are
//  decoded; MIME headers and multipart framing are not written.  This is how you save an
//  attachment or the raw content of a part.
success := CkMime_SaveBody(mime,'qa_output/body_content.dat');
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;
Memo1.Lines.Add('Body saved.');

CkMime_Dispose(mime);