TIdIMAP4Server

type TIdIMAP4Server = class(TIdExplicitTLSServer)

protected

  FSaferMode: Boolean;

  FUseDefaultMechanismsForUnassignedCommands: Boolean;

  FRootPath: string;

  FDefaultPassword: string;

  FMailBoxSeparator: char;

  fOnDefMechDoesImapMailBoxExist: TIdIMAP4DefMech1;

  fOnDefMechCreateMailBox: TIdIMAP4DefMech1;

  fOnDefMechDeleteMailBox: TIdIMAP4DefMech1;

  fOnDefMechIsMailBoxOpen: TIdIMAP4DefMech1;

  fOnDefMechSetupMailbox: TIdIMAP4DefMech2;

  fOnDefMechNameAndMailBoxToPath: TIdIMAP4DefMech3;

  fOnDefMechGetNextFreeUID: TIdIMAP4DefMech3;

  fOnDefMechRenameMailBox: TIdIMAP4DefMech4;

  fOnDefMechListMailBox: TIdIMAP4DefMech5;

  fOnDefMechDeleteMessage: TIdIMAP4DefMech6;

  fOnDefMechCopyMessage: TIdIMAP4DefMech7;

  fOnDefMechGetMessageSize: TIdIMAP4DefMech8;

  fOnDefMechGetMessageHeader: TIdIMAP4DefMech9;

  fOnDefMechGetMessageRaw: TIdIMAP4DefMech10;

  fOnDefMechOpenMailBox: TIdIMAP4DefMech11;

  fOnDefMechReinterpretParamAsMailBox: TIdIMAP4DefMech12;

  fOnDefMechUpdateNextFreeUID: TIdIMAP4DefMech13;

  fOnDefMechGetFileNameToWriteAppendMessage: TIdIMAP4DefMech14;

  fOnBeforeCmd: TIdIMAP4CommandBeforeEvent;

  fOnBeforeSend: TIdIMAP4CommandBeforeSendEvent;

  fOnCommandCAPABILITY: TIMAP4CommandEvent;

  fONCommandNOOP: TIMAP4CommandEvent;

  fONCommandLOGOUT: TIMAP4CommandEvent;

  fONCommandAUTHENTICATE: TIMAP4CommandEvent;

  fONCommandLOGIN: TIMAP4CommandEvent;

  fONCommandSELECT: TIMAP4CommandEvent;

  fONCommandEXAMINE: TIMAP4CommandEvent;

  fONCommandCREATE: TIMAP4CommandEvent;

  fONCommandDELETE: TIMAP4CommandEvent;

  fONCommandRENAME: TIMAP4CommandEvent;

  fONCommandSUBSCRIBE: TIMAP4CommandEvent;

  fONCommandUNSUBSCRIBE: TIMAP4CommandEvent;

  fONCommandLIST: TIMAP4CommandEvent;

  fONCommandLSUB: TIMAP4CommandEvent;

  fONCommandSTATUS: TIMAP4CommandEvent;

  fONCommandAPPEND: TIMAP4CommandEvent;

  fONCommandCHECK: TIMAP4CommandEvent;

  fONCommandCLOSE: TIMAP4CommandEvent;

  fONCommandEXPUNGE: TIMAP4CommandEvent;

  fONCommandSEARCH: TIMAP4CommandEvent;

  fONCommandFETCH: TIMAP4CommandEvent;

  fONCommandSTORE: TIMAP4CommandEvent;

  fONCommandCOPY: TIMAP4CommandEvent;

  fONCommandUID: TIMAP4CommandEvent;

  fONCommandX: TIMAP4CommandEvent;

  fOnCommandError: TIMAP4CommandEvent;

  function CreateExceptionReply; override;

  function CreateGreeting; override;

  function CreateHelpReply; override;

  function CreateMaxConnectionReply; override;

  function CreateReplyUnknownCommand; override;

  procedure InitializeCommandHandlers; override;

  function GetReplyClass; override;

  function GetRepliesClass; override;

  procedure SendGreeting(); override;

  procedure SendWrongConnectionState();

  procedure SendUnsupportedCommand();

  procedure SendIncorrectNumberOfParameters();

  procedure SendUnassignedDefaultMechanism();

  procedure DoReplyUnknownCommand(); override;

  procedure SendErrorOpenedReadOnly();

  procedure SendOkReply();

  procedure SendBadReply();

  procedure SendNoReply();

  function ExpungeRecords();

  function MessageSetToMessageNumbers();

  function GetRecordForUID();

  procedure ProcessFetch();

  procedure ProcessCopy();

  function ProcessStore();

  procedure ProcessSearch();

  function FlagStringToFlagList();

  function StripQuotesIfNecessary();

  function ReassembleParams();

  function ReinterpretParamAsMailBox();

  function ReinterpretParamAsFlags();

  function ReinterpretParamAsQuotedStr();

  function ReinterpretParamAsDataItems();

  function MessageFlagSetToStr();

  procedure DoBeforeCmd();

  procedure DoSendReply();

  procedure DoCmdHandlersException();

  procedure DoCommandCAPABILITY();

  procedure DoCommandNOOP();

  procedure DoCommandLOGOUT();

  procedure DoCommandAUTHENTICATE();

  procedure DoCommandLOGIN();

  procedure DoCommandSELECT();

  procedure DoCommandEXAMINE();

  procedure DoCommandCREATE();

  procedure DoCommandDELETE();

  procedure DoCommandRENAME();

  procedure DoCommandSUBSCRIBE();

  procedure DoCommandUNSUBSCRIBE();

  procedure DoCommandLIST();

  procedure DoCommandLSUB();

  procedure DoCommandSTATUS();

  procedure DoCommandAPPEND();

  procedure DoCommandCHECK();

  procedure DoCommandCLOSE();

  procedure DoCommandEXPUNGE();

  procedure DoCommandSEARCH();

  procedure DoCommandFETCH();

  procedure DoCommandSTORE();

  procedure DoCommandCOPY();

  procedure DoCommandUID();

  procedure DoCommandX();

  procedure DoCommandSTARTTLS();

  procedure MustUseTLS();

  procedure InitComponent; override;

public

  destructor Destroy; override;

published

  property DefaultPort: TIdPort;

  property SaferMode: Boolean; [rw]

  property UseDefaultMechanismsForUnassignedCommands: Boolean; [rw]

  property RootPath: string; [rw]

  property DefaultPassword: string; [rw]

  property MailBoxSeparator: char; [r]

  property OnDefMechDoesImapMailBoxExist: TIdIMAP4DefMech1; [rw]

  property OnDefMechCreateMailBox: TIdIMAP4DefMech1; [rw]

  property OnDefMechDeleteMailBox: TIdIMAP4DefMech1; [rw]

  property OnDefMechIsMailBoxOpen: TIdIMAP4DefMech1; [rw]

  property OnDefMechSetupMailbox: TIdIMAP4DefMech2; [rw]

  property OnDefMechNameAndMailBoxToPath: TIdIMAP4DefMech3; [rw]

  property OnDefMechGetNextFreeUID: TIdIMAP4DefMech3; [rw]

  property OnDefMechRenameMailBox: TIdIMAP4DefMech4; [rw]

  property OnDefMechListMailBox: TIdIMAP4DefMech5; [rw]

  property OnDefMechDeleteMessage: TIdIMAP4DefMech6; [rw]

  property OnDefMechCopyMessage: TIdIMAP4DefMech7; [rw]

  property OnDefMechGetMessageSize: TIdIMAP4DefMech8; [rw]

  property OnDefMechGetMessageHeader: TIdIMAP4DefMech9; [rw]

  property OnDefMechGetMessageRaw: TIdIMAP4DefMech10; [rw]

  property OnDefMechOpenMailBox: TIdIMAP4DefMech11; [rw]

  property OnDefMechReinterpretParamAsMailBox: TIdIMAP4DefMech12; [rw]

  property OnDefMechUpdateNextFreeUID: TIdIMAP4DefMech13; [rw]

  property OnDefMechGetFileNameToWriteAppendMessage: TIdIMAP4DefMech14; [rw]

  property OnBeforeCmd: TIdIMAP4CommandBeforeEvent; [rw]

  property OnBeforeSend: TIdIMAP4CommandBeforeSendEvent; [rw]

  property OnCommandCAPABILITY: TIMAP4CommandEvent; [rw]

  property OnCommandNOOP: TIMAP4CommandEvent; [rw]

  property OnCommandLOGOUT: TIMAP4CommandEvent; [rw]

  property OnCommandAUTHENTICATE: TIMAP4CommandEvent; [rw]

  property OnCommandLOGIN: TIMAP4CommandEvent; [rw]

  property OnCommandSELECT: TIMAP4CommandEvent; [rw]

  property OnCommandEXAMINE: TIMAP4CommandEvent; [rw]

  property OnCommandCREATE: TIMAP4CommandEvent; [rw]

  property OnCommandDELETE: TIMAP4CommandEvent; [rw]

  property OnCommandRENAME: TIMAP4CommandEvent; [rw]

  property OnCommandSUBSCRIBE: TIMAP4CommandEvent; [rw]

  property OnCommandUNSUBSCRIBE: TIMAP4CommandEvent; [rw]

  property OnCommandLIST: TIMAP4CommandEvent; [rw]

  property OnCommandLSUB: TIMAP4CommandEvent; [rw]

  property OnCommandSTATUS: TIMAP4CommandEvent; [rw]

  property OnCommandAPPEND: TIMAP4CommandEvent; [rw]

  property OnCommandCHECK: TIMAP4CommandEvent; [rw]

  property OnCommandCLOSE: TIMAP4CommandEvent; [rw]

  property OnCommandEXPUNGE: TIMAP4CommandEvent; [rw]

  property OnCommandSEARCH: TIMAP4CommandEvent; [rw]

  property OnCommandFETCH: TIMAP4CommandEvent; [rw]

  property OnCommandSTORE: TIMAP4CommandEvent; [rw]

  property OnCommandCOPY: TIMAP4CommandEvent; [rw]

  property OnCommandUID: TIMAP4CommandEvent; [rw]

  property OnCommandX: TIMAP4CommandEvent; [rw]

  property OnCommandError: TIMAP4CommandEvent; [rw]

end;

TIdIMAP4Server

TIdExplicitTLSServer

TIdCmdTCPServer

TIdTCPServer

TIdCustomTCPServer

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject