Class TNMailBox (unit NMailBox)

Inherits from

TComponent

Constructors


constructor Create(Parent: TComponent);



Functions

procedure AddMail;


procedure Compress;


procedure CreateMailBox(name: string);


procedure DeleteMail;


procedure EmptyMailbox(num: integer);


procedure LoadMail;


function MailboxFile(i: integer): string;


function MailboxName(i: integer): string;


function RegisterNotify(Control: TMailboxViewerControl;MailboxName: MBName): Boolean;

notification functions.

procedure TransferTo(name: string);


procedure UnregisterNotify(Control: TMailboxViewerControl);


procedure UpdateFlag(c: char);


destructor Destroy;


procedure InitIndex;


procedure Notify(MB: MBName;Event: TMailboxNotification;Item: integer);


procedure SetCMBName(name: string);


procedure SetCMBNumber(number: integer);

msgcnt

procedure SetDirectory(directory: string);

End Notifications

procedure SetMail(s: TStrings);


procedure SetMailBoxes(s: TStrings);


procedure SetMsgNum(n: integer);


Properties

property CurrentMailBoxMessages : integer


property CurrentMailBoxName : string


property CurrentMailBoxNumber : integer


property CurrentNMailBoxSize : Longint


property CurrentNMailBoxTrash : Longint


property MailBoxDirectory : string


property MailBoxes : TStrings


property Msg_AttachEnd : LongInt


property Msg_AttachStart : LongInt


property Msg_Date : string


property Msg_Flag : char


property Msg_From : string


property Msg_Lines : LongInt


property Msg_Number : integer


property Msg_Part : integer


property Msg_Size : LongInt


property Msg_Subject : string


property Msg_Text : TStrings


property Msg_To : string


Events

Variables

a1 : LongInt;


a2 : LongInt;


CMBName : string;


CMBNum : integer;


DumInt : integer;


DumLint : LongInt;


FDate : string;


FDirectory : string;


FFlag : char;


FFrom : string;


FLines : LongInt;


FMail : TStrings;


FMailBoxes : TStrings;


FMBSize : LongInt;


FMBtrsize : LongInt;


FMsgCnt : integer;


FMsgNum : integer;


FPart : integer;


Fsize : LongInt;


FSub : string;


Fto : string;


Notifications : array[1..256] of TMBVNotifications;

Notifications


Constructors


constructor Create(Parent: TComponent);


Functions


procedure AddMail;


procedure Compress;


procedure CreateMailBox(name: string);


procedure DeleteMail;


procedure EmptyMailbox(num: integer);


procedure LoadMail;


function MailboxFile(i: integer): string;


function MailboxName(i: integer): string;


function RegisterNotify(Control: TMailboxViewerControl;MailboxName: MBName): Boolean;

notification functions. use at your own risk, intended for NMailboxViewer component

MailboxViewerControl notification functions


procedure TransferTo(name: string);


procedure UnregisterNotify(Control: TMailboxViewerControl);


procedure UpdateFlag(c: char);


destructor Destroy;


procedure InitIndex;


procedure Notify(MB: MBName;Event: TMailboxNotification;Item: integer);


procedure SetCMBName(name: string);


procedure SetCMBNumber(number: integer);

msgcnt


procedure SetDirectory(directory: string);

End Notifications


procedure SetMail(s: TStrings);


procedure SetMailBoxes(s: TStrings);


procedure SetMsgNum(n: integer);


Properties


property CurrentMailBoxMessages : integer


property CurrentMailBoxName : string


property CurrentMailBoxNumber : integer


property CurrentNMailBoxSize : Longint


property CurrentNMailBoxTrash : Longint


property MailBoxDirectory : string


property MailBoxes : TStrings


property Msg_AttachEnd : LongInt


property Msg_AttachStart : LongInt


property Msg_Date : string


property Msg_Flag : char


property Msg_From : string


property Msg_Lines : LongInt


property Msg_Number : integer


property Msg_Part : integer


property Msg_Size : LongInt


property Msg_Subject : string


property Msg_Text : TStrings


property Msg_To : string


Events


Variables


a1 : LongInt;


a2 : LongInt;


CMBName : string;


CMBNum : integer;


DumInt : integer;


DumLint : LongInt;


FDate : string;


FDirectory : string;


FFlag : char;


FFrom : string;


FLines : LongInt;


FMail : TStrings;


FMailBoxes : TStrings;


FMBSize : LongInt;


FMBtrsize : LongInt;


FMsgCnt : integer;


FMsgNum : integer;


FPart : integer;


Fsize : LongInt;


FSub : string;


Fto : string;


Notifications : array[1..256] of TMBVNotifications;

Notifications