Delphi ActiveX

IMAP Capability

Demonstrates how to send the CAPABILITY command to request a listing of capabilities that the IMAP server supports. A capability name which begins with "AUTH=" indicates that the server supports that particular authentication mechanism. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
imap: TChilkatImap;
caps: WideString;

begin
success := 0;

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

imap := TChilkatImap.Create(Self);

// Use TLS
imap.Ssl := 1;
imap.Port := 993;
success := imap.Connect('MY-IMAP-DOMAIN');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Authenticate
success := imap.Login('MY-IMAP-LOGIN','MY-IMAP-PASSWORD');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Get the list of capabilities:
caps := imap.Capability();
Memo1.Lines.Add('Capabilities: ' + caps);

// Here is an example of the string returned:
// * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN X-GM-EXT-1 
// UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT APPENDLIMIT=35882577
// LIST-EXTENDED LIST-STATUS

// Chilkat v9.5.0.58 introduces the HasCapability method to
// check to see if a particular capability exists:
if (imap.HasCapability('QUOTA',caps) = 1) then
  begin
    Memo1.Lines.Add('IMAP server supports the QUOTA extension.');
  end;

if (imap.HasCapability('IDLE',caps) = 1) then
  begin
    Memo1.Lines.Add('IMAP server supports IDLE.');
  end;

// Disconnect from the IMAP server.
success := imap.Disconnect();
end;