Delphi DLL

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

Download Chilkat for Delphi DLL

Delphi DLL

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

begin
success := False;

//  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 := CkBinData_Create();
success := CkBinData_LoadFile(bd,'qa_data/photo.jpg');
if (success = False) then
  begin
    Memo1.Lines.Add(CkBinData__lastErrorText(bd));
    Exit;
  end;

mime := CkMime_Create();

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

success := CkMime_SetBodyBd(mime,bd);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

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

CkBinData_Dispose(bd);
CkMime_Dispose(mime);