| Class TMainMessenger (unit Messenger) |
TComponent
| Constructors |
Constructor Create(AOwner : TComponent);| Functions |
Procedure Activate;
Procedure Broadcast(text : string);
Procedure DeActivate;
Destructor Destroy;
procedure DoTimer;
Procedure ProcessCommand;
Procedure ReadMessage;
Procedure SendLine(Recipient,Text : string);
Procedure SendMemo(Recipient : string;Lines : TStrings);
Procedure SetBoxName(NewName : string);
Procedure SetInterval(time : word);
Procedure SetName(const NewName : TComponentName);
Procedure DoErrorReport(const Error : string);
Procedure DoLineArrival(Const FMSender,FMTime,FMText : string);
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);| 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;