Delphi DLL

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 DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mime: HCkMime;
bd: HCkBinData;

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;

//  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 := CkBinData_Create();
success := CkMime_GetBodyBd(mime,bd);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;
Memo1.Lines.Add('Decoded body: ' + IntToStr(CkBinData_getNumBytes(bd)) + ' bytes.');

CkMime_Dispose(mime);
CkBinData_Dispose(bd);