Class TServerForm (unit ServerDlg)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;