Class TMainMessenger (unit Messenger) |
Inherits from
TComponent
Constructor Create(AOwner : TComponent);
- ----------- Signaler StartUp/ShutDown -----------------------------------------
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 ------------------------------------
event OnError : TNEError
event OnNewLine : TNELineArrival
event OnNewMemo : TNEMemoArrival
event OnTimer : TNETimer
event OnUserListChange : TNEUserListChange
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;
Constructor Create(AOwner : TComponent);
----------- Signaler StartUp/ShutDown -----------------------------------------
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 ------------------------------------
event OnError : TNEError
event OnNewLine : TNELineArrival
event OnNewMemo : TNEMemoArrival
event OnTimer : TNETimer
event OnUserListChange : TNEUserListChange
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;