Delphi ActiveX

Fetch a Single Message's MIME into a StringBuilder

Demonstrates the Chilkat Imap.FetchSingleAsMimeSb method, which downloads one message's MIME into a StringBuilder. The first argument is the message id, the second (bUid) selects UID vs sequence number, and the third is the StringBuilder, which is cleared first. This example downloads a message by UID and prints the MIME length.

Background: Chilkat interprets the received MIME as UTF-8. Messages using Base64 or quoted-printable transfer encoding are safe because their encoded bytes are ASCII. Raw 8bit or binary content, or unencoded text in a charset such as ISO-8859-1 or Shift_JIS, can be misinterpreted — in those cases use FetchSingleBd to get the exact bytes.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
imap: TChilkatImap;
wantUids: Integer;
msgSet: TMessageSet;
uid: Cardinal;
useUid: Integer;
sbMime: TChilkatStringBuilder;

begin
success := 0;

//  Demonstrates the Imap.FetchSingleAsMimeSb method, which downloads one message's MIME into a
//  StringBuilder.  The 1st argument is the message id, the 2nd (bUid) selects UID vs sequence
//  number, and the 3rd is the StringBuilder (cleared first).

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;

//  Search for the message ids to download, returning UIDs.
wantUids := 1;
msgSet := TMessageSet.Create(Self);
success := imap.QueryMbx('ALL',wantUids,msgSet.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

if (msgSet.Count > 0) then
  begin
    uid := msgSet.GetId(0);

    //  Download the message's MIME into a StringBuilder.  The id is a UID.
    useUid := 1;
    sbMime := TChilkatStringBuilder.Create(Self);
    success := imap.FetchSingleAsMimeSb(uid,useUid,sbMime.ControlInterface);
    if (success = 0) then
      begin
        Memo1.Lines.Add(imap.LastErrorText);
        Exit;
      end;
    Memo1.Lines.Add('MIME length: ' + IntToStr(sbMime.Length) + ' chars');
  end;

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