Delphi ActiveX

Set a MIME Body from Binary Bytes (BinData)

Demonstrates the Chilkat Mime.SetBodyBd method, which sets the decoded body bytes from a BinData, changes the transfer encoding to base64, and preserves the bytes exactly. The only argument is the BinData.

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 put arbitrary binary content into a part from memory — a generated image, a decrypted blob — without a temporary file. Chilkat base64-encodes it so the bytes survive text-based transports unchanged. Note it does not set a Content-Type or disposition, so assign those yourself to describe what the bytes are.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

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

begin
success := 0;

//  Demonstrates the Mime.SetBodyBd method, which sets the decoded body bytes from a BinData,
//  changes the transfer encoding to base64, and preserves the bytes exactly.  The only argument is
//  the BinData.

//  Put the binary body bytes into a BinData.
bd := TChilkatBinData.Create(Self);
success := bd.LoadFile('qa_data/photo.jpg');
if (success = 0) then
  begin
    Memo1.Lines.Add(bd.LastErrorText);
    Exit;
  end;

mime := TChilkatMime.Create(Self);

//  Set a Content-Type for the binary content (SetBodyBd does not set one itself).
mime.ContentType := 'image/jpeg';

success := mime.SetBodyBd(bd.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Body set from ' + IntToStr(bd.NumBytes) + ' bytes.');