Class TMainMessenger (unit Messenger)

Inherits from

TComponent

Constructors


Constructor Create(AOwner : TComponent);

----------- Signaler StartUp/ShutDown -----------------------------------------


Functions

Procedure Activate;


Procedure Broadcast(text : string);


Procedure DeActivate;


Destructor Destroy;


procedure DoTimer;


Procedure ProcessCommand;


Procedure ReadMessage;

------------- Message Retrieval Procedures ----------------------------------

Procedure SendLine(Recipient,Text : string);


Procedure SendMemo(Recipient : string;Lines : TStrings);


Procedure SetBoxName(NewName : string);


Procedure SetInterval(time : word);


Procedure SetName(const NewName : TComponentName);

-------------- Set Property Procedures --------------------------------------

Procedure DoErrorReport(const Error : string);


Procedure DoLineArrival(Const FMSender,FMTime,FMText : string);

----------- Event Handler Procedures ---------------------------------------

Procedure DoMemoArrival(const FMSender,FMTime : string;MLines : Tstrings);


Procedure DoUserListChange(Const CompList : TStringList);


Procedure AddUser(Name : string);


Procedure DeleteUser(Name : string);


Procedure SendCommand(Recipient,Command : string);


Procedure SendOutStrings(Recipient : string);

------------- Message Sending Procedures ------------------------------------

Properties

Events

event OnError : TNEError


event OnNewLine : TNELineArrival


event OnNewMemo : TNEMemoArrival


event OnTimer : TNETimer


event OnUserListChange : TNEUserListChange


Variables

ActiveFlag : Boolean;


FBoxName : string;


FComputer : string;


FError : TNEError;


FInterval : word;


FLineArrival : TNELineArrival;


FMemoArrival : TNEMemoArrival;


FTimer : TNETimer;


FTimerActive : boolean;


FTimerThread : TTimerThread;


FUser : string;


FUserListChange : TNEUserListChange;


FWaitThread : TSignalThread;


InStrings : TStringList;


LocalHandle : THandle;


LocalPath : string;


MaxMsgSize : DWORD;


MemoLines : TStringList;


MsgCount : DWORD;


MsgSender : string;


MsgSize : DWORD;


MsgText : string;


MsgTime : string;


MsgType : string;


NewLine : String;


NextMsgSize : DWORD;


OutStrings : TStringList;


RemoteHandle : THandle;


RemotePath : string;


Server : string;


UserList : TStringList;



Constructors


Constructor Create(AOwner : TComponent);

----------- Signaler StartUp/ShutDown -----------------------------------------


Functions


Procedure Activate;


Procedure Broadcast(text : string);


Procedure DeActivate;


Destructor Destroy;


procedure DoTimer;


Procedure ProcessCommand;


Procedure ReadMessage;

------------- Message Retrieval Procedures ----------------------------------


Procedure SendLine(Recipient,Text : string);


Procedure SendMemo(Recipient : string;Lines : TStrings);


Procedure SetBoxName(NewName : string);


Procedure SetInterval(time : word);


Procedure SetName(const NewName : TComponentName);

-------------- Set Property Procedures --------------------------------------


Procedure DoErrorReport(const Error : string);


Procedure DoLineArrival(Const FMSender,FMTime,FMText : string);

----------- Event Handler Procedures ---------------------------------------


Procedure DoMemoArrival(const FMSender,FMTime : string;MLines : Tstrings);


Procedure DoUserListChange(Const CompList : TStringList);


Procedure AddUser(Name : string);


Procedure DeleteUser(Name : string);


Procedure SendCommand(Recipient,Command : string);


Procedure SendOutStrings(Recipient : string);

------------- Message Sending Procedures ------------------------------------


Properties


Events


event OnError : TNEError


event OnNewLine : TNELineArrival


event OnNewMemo : TNEMemoArrival


event OnTimer : TNETimer


event OnUserListChange : TNEUserListChange


Variables


ActiveFlag : Boolean;


FBoxName : string;


FComputer : string;


FError : TNEError;


FInterval : word;


FLineArrival : TNELineArrival;


FMemoArrival : TNEMemoArrival;


FTimer : TNETimer;


FTimerActive : boolean;


FTimerThread : TTimerThread;


FUser : string;


FUserListChange : TNEUserListChange;


FWaitThread : TSignalThread;


InStrings : TStringList;


LocalHandle : THandle;


LocalPath : string;


MaxMsgSize : DWORD;


MemoLines : TStringList;


MsgCount : DWORD;


MsgSender : string;


MsgSize : DWORD;


MsgText : string;


MsgTime : string;


MsgType : string;


NewLine : String;


NextMsgSize : DWORD;


OutStrings : TStringList;


RemoteHandle : THandle;


RemotePath : string;


Server : string;


UserList : TStringList;