Class TServerForm (unit ServerDlg) |
Inherits from
TForm
procedure Client1Click(Sender: TObject);
procedure ClientButClick(Sender: TObject);
procedure DisconButClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure LogButClick(Sender: TObject);
procedure MinimizeButClick(Sender: TObject);
procedure RemoteControl1Click(Sender: TObject);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1Listen(Sender: TObject;
Socket: TCustomWinSocket);
procedure Shutdown1Click(Sender: TObject);
procedure StartButClick(Sender: TObject);
procedure EnableButs;
procedure ProcessMessage(const Msg: string; Socket: TCustomWinSocket);
procedure SendMsg(MsgNum: integer; const MsgData: string; Socket: TCustomWinSocket);
Start the hook playback
procedure ClearMsgList;
procedure CreateSleepThread;
procedure GetHostNameAddr;
MinimizeBut.
procedure Log(const s: string);
procedure ParseComLine;
procedure ProcessClick(const Data: string);
Wait for the window to process the message
procedure ProcessDrag(const Data: string);
Start the hook playback
procedure ProcessKeys(const Data: string);
Start the hook playback
procedure Send_Screen_Update(Socket: TCustomWinSocket);
procedure SleepDone(Sender: TObject);
SleepDone will be called when it is finished
procedure UnHook;
procedure UpdateStats;
procedure WaitForHandle(h: THandle);
This will eventually call SleepDone
Client1 : TMenuItem;
ClientBut : TButton;
ConLab : TLabel;
DisconBut : TButton;
FormSettings1 : TFormSettings;
Label1 : TLabel;
Label11 : TLabel;
Label13 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label9 : TLabel;
LastRecLab : TLabel;
LogBut : TButton;
LogList : TListBox;
MinimizeBut : TButton;
N1 : TMenuItem;
N2 : TMenuItem;
NameLabel : TLabel;
NumErrLab : TLabel;
NumRecLab : TLabel;
NumSendLab : TLabel;
Panel1 : TPanel;
Panel2 : TPanel;
PortEdit : TEdit;
RemoteControl1 : TMenuItem;
ServerPanel : TPanel;
ServerSocket1 : TServerSocket;
Shutdown1 : TMenuItem;
StartBut : TButton;
StartLab : TLabel;
TrayIcon1 : TTrayIcon;
TrayMenu : TPopupMenu;
CompMode : TCompressionLevel;
Cur : integer;
CurBmp : TBitmap;
CurHandle : THandle;
CurMsg : string;
CurSocket : TCustomWinSocket;
LoggedOn : boolean;
MsgList : TList;
NumCur : integer;
Journal Playback current message
NumError : integer;
NumRec : double;
NumSend : double;
play_hk : THandle;
SleepTime : integer;
ViewMode : TViewMode;
procedure Client1Click(Sender: TObject);
procedure ClientButClick(Sender: TObject);
procedure DisconButClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure LogButClick(Sender: TObject);
procedure MinimizeButClick(Sender: TObject);
procedure RemoteControl1Click(Sender: TObject);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1Listen(Sender: TObject;
Socket: TCustomWinSocket);
procedure Shutdown1Click(Sender: TObject);
procedure StartButClick(Sender: TObject);
procedure EnableButs;
procedure ProcessMessage(const Msg: string; Socket: TCustomWinSocket);
procedure SendMsg(MsgNum: integer; const MsgData: string; Socket: TCustomWinSocket);
Start the hook playback
procedure ClearMsgList;
procedure CreateSleepThread;
procedure GetHostNameAddr;
MinimizeBut.Enabled := b;
procedure Log(const s: string);
procedure ParseComLine;
procedure ProcessClick(const Data: string);
Wait for the window to process the message
procedure ProcessDrag(const Data: string);
Start the hook playback
procedure ProcessKeys(const Data: string);
Start the hook playback
procedure Send_Screen_Update(Socket: TCustomWinSocket);
procedure SleepDone(Sender: TObject);
SleepDone will be called when it is finished
procedure UnHook;
procedure UpdateStats;
procedure WaitForHandle(h: THandle);
This will eventually call SleepDone
Client1 : TMenuItem;
ClientBut : TButton;
ConLab : TLabel;
DisconBut : TButton;
FormSettings1 : TFormSettings;
Label1 : TLabel;
Label11 : TLabel;
Label13 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label9 : TLabel;
LastRecLab : TLabel;
LogBut : TButton;
LogList : TListBox;
MinimizeBut : TButton;
N1 : TMenuItem;
N2 : TMenuItem;
NameLabel : TLabel;
NumErrLab : TLabel;
NumRecLab : TLabel;
NumSendLab : TLabel;
Panel1 : TPanel;
Panel2 : TPanel;
PortEdit : TEdit;
RemoteControl1 : TMenuItem;
ServerPanel : TPanel;
ServerSocket1 : TServerSocket;
Shutdown1 : TMenuItem;
StartBut : TButton;
StartLab : TLabel;
TrayIcon1 : TTrayIcon;
TrayMenu : TPopupMenu;
CompMode : TCompressionLevel;
Cur : integer;
CurBmp : TBitmap;
CurHandle : THandle;
CurMsg : string;
CurSocket : TCustomWinSocket;
LoggedOn : boolean;
MsgList : TList;
NumCur : integer;
Journal Playback current message
NumError : integer;
NumRec : double;
NumSend : double;
play_hk : THandle;
SleepTime : integer;
ViewMode : TViewMode;