TIMAPSend

type TIMAPSend = class(TSynaClient)

protected

  FSock: TTCPBlockSocket;

  FTagCommand: Integer;

  FResultString: String;

  FFullResult: TStringList;

  FIMAPcap: TStringList;

  FAuthDone: Boolean;

  FSelectedFolder: String;

  FSelectedCount: Integer;

  FSelectedRecent: Integer;

  FSelectedUIDvalidity: Integer;

  FUID: Boolean;

  FAutoTLS: Boolean;

  FFullSSL: Boolean;

  function ReadResult;

  function AuthLogin;

  function Connect;

  procedure ParseMess();

  procedure ParseFolderList();

  procedure ParseSelect;

  procedure ParseSearch();

  procedure ProcessLiterals;

public

  constructor Create;

  destructor Destroy; override;

  function IMAPcommand();

  function IMAPuploadCommand();

  function Capability;

  function Login;

  function Logout;

  function NoOp;

  function List();

  function ListSearch();

  function ListSubscribed();

  function ListSearchSubscribed();

  function CreateFolder();

  function DeleteFolder();

  function RenameFolder();

  function SubscribeFolder();

  function UnsubscribeFolder();

  function SelectFolder();

  function SelectROFolder();

  function CloseFolder;

  function StatusFolder();

  function ExpungeFolder;

  function CheckFolder;

  function AppendMess();

  function DeleteMess();

  function FetchMess();

  function FetchHeader();

  function MessageSize();

  function CopyMess();

  function SearchMess();

  function SetFlagsMess();

  function GetFlagsMess();

  function AddFlagsMess();

  function DelFlagsMess();

  function StartTLS;

  function GetUID();

  function FindCap();

published

  property ResultString: String; [r]

  property FullResult: TStringList; [r]

  property IMAPcap: TStringList; [r]

  property AuthDone: Boolean; [r]

  property UID: Boolean; [rw]

  property SelectedFolder: String; [r]

  property SelectedCount: Integer; [r]

  property SelectedRecent: Integer; [r]

  property SelectedUIDvalidity: Integer; [r]

  property AutoTLS: Boolean; [rw]

  property FullSSL: Boolean; [rw]

  property Sock: TTCPBlockSocket; [r]

end;

TIMAPSend

TSynaClient

TObject