Delphi ActiveX

Set a MIME Body from a File

Demonstrates the Chilkat Mime.SetBodyFromFile method, which reads a local file and sets it as the body, choosing content headers from the filename extension. The only argument is the file path.

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 one-call way to turn a file into a MIME part: Chilkat reads the bytes and infers the Content-Type and transfer encoding from the extension — .jpg becomes image/jpeg with base64, .txt a text type, and so on. It is the natural building block for adding an attachment, usually followed by setting a Content-Disposition and filename.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
mime: TChilkatMime;

begin
success := 0;

//  Demonstrates the Mime.SetBodyFromFile method, which reads a local file and sets it as the body,
//  choosing content headers based on the filename extension.  The only argument is the file path.

mime := TChilkatMime.Create(Self);

//  The Content-Type and encoding are set from the ".jpg" extension (image/jpeg, base64).
success := mime.SetBodyFromFile('qa_data/photo.jpg');
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Content-Type: ' + mime.ContentType);
Memo1.Lines.Add('Encoding: ' + mime.Encoding);