Delphi ActiveX

Fetch an IMAP Attachment into a BinData

Demonstrates the Chilkat Imap.FetchAttachmentBd method, which stores one attachment's bytes in a BinData object. The first argument is the Email, the second is the zero-based attachment index, and the third is the BinData, which is cleared before the operation. This example fetches the first attachment and prints its byte count.

Background: A BinData holds raw bytes, so it works for any attachment type — image, PDF, zip, and so on. From there you can save it, hash it, or hand it to another API expecting a byte buffer, all without touching the filesystem. Use the string/StringBuilder variants only when the attachment is known to be text.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
imap: TChilkatImap;
headersOnly: Integer;
useUid: Integer;
seqNum: Integer;
email: TChilkatEmail;
numAttach: Integer;
bd: TChilkatBinData;

begin
success := 0;

//  Demonstrates the Imap.FetchAttachmentBd method, which downloads one attachment's bytes into
//  a BinData object.  The 1st argument is the Email, the 2nd is the zero-based attachment
//  index, and the 3rd is the BinData (which is cleared first).
//  
//  The message is fetched headers-only, then the attachment is downloaded on demand.

imap := TChilkatImap.Create(Self);

imap.Ssl := 1;
imap.Port := 993;

success := imap.Connect('imap.example.com');
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;
success := imap.Login('user@example.com','myPassword');
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

success := imap.SelectMailbox('Inbox');
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

//  Fetch only the message headers.  Attachment bodies are NOT downloaded, but the ckx-imap-*
//  metadata describing the attachments is present, so the attachment info methods still work.
headersOnly := 1;
useUid := 0;
seqNum := 1;
email := TChilkatEmail.Create(Self);
success := imap.FetchEmail(headersOnly,seqNum,useUid,email.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

numAttach := imap.GetMailNumAttach(email.ControlInterface);
if (numAttach > 0) then
  begin
    //  Download just the first attachment's bytes from the server into a BinData.
    bd := TChilkatBinData.Create(Self);
    success := imap.FetchAttachmentBd(email.ControlInterface,0,bd.ControlInterface);
    if (success = 0) then
      begin
        Memo1.Lines.Add(imap.LastErrorText);
        Exit;
      end;
    Memo1.Lines.Add('Attachment size: ' + IntToStr(bd.NumBytes) + ' bytes');
  end;

success := imap.Disconnect();
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;