Delphi DLL

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 DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
imap: HCkImap;
caps: PWideChar;

begin
success := False;

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

imap := CkImap_Create();

// Use TLS
CkImap_putSsl(imap,True);
CkImap_putPort(imap,993);
success := CkImap_Connect(imap,'MY-IMAP-DOMAIN');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkImap__lastErrorText(imap));
    Exit;
  end;

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

// Get the list of capabilities:
caps := CkImap__capability(imap);
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 (CkImap_HasCapability(imap,'QUOTA',caps) = True) then
  begin
    Memo1.Lines.Add('IMAP server supports the QUOTA extension.');
  end;

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

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

CkImap_Dispose(imap);

end;