Delphi ActiveX

Get the Decoded MIME Body Bytes (BinData)

Demonstrates the Chilkat Mime.GetBodyBd method, which replaces the contents of a BinData with the decoded body bytes of the current part. The only argument is the BinData. Base64 and quoted-printable are decoded; headers and boundaries are not included.

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 how you extract a part's actual content as bytes — the decoded payload of an attachment or an image, ready to hash, re-save, or hand to another API. Because it works in raw bytes it is the correct choice for binary parts, where a text decode would be wrong. Note it replaces the BinData contents rather than appending.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
mime: TChilkatMime;
bd: TChilkatBinData;

begin
success := 0;

mime := TChilkatMime.Create(Self);
success := mime.LoadMimeFile('qa_data/message.eml');
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

//  Replace the contents of a BinData with the decoded body bytes of the current part.  Base64 and
//  quoted-printable are decoded; MIME headers and multipart boundaries are not included.
bd := TChilkatBinData.Create(Self);
success := mime.GetBodyBd(bd.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('Decoded body: ' + IntToStr(bd.NumBytes) + ' bytes.');