Class TTestClientForm (unit CliTst1)

Inherits from

TForm

Constructors



Functions

procedure AppSrvClient1AfterSendRequest(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure AppSrvClient1BeforeProcessReply(Sender: TObject; var CmdBuf: PChar; var CmdLen: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure AppSrvClient1BeforeSendRequest(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure AppSrvClient1RequestDone(Sender: TObject; Error: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure AppSrvClient1SessionClosed(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure ClearButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DisconnectButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormCreate(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SendButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DisplayBmpFile;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure ImageFormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

Events

Variables

AppSrvClient1 : TAppSrvClient;


ClearButton : TButton;


DataEdit : TEdit;


DisconnectButton : TButton;


EncryptCheckBox : TCheckBox;


FunctionEdit : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Memo1 : TMemo;


MWBuffer1 : TMWBuffer;


Panel1 : TPanel;


PortEdit : TEdit;


SendButton : TButton;


ServerEdit : TEdit;


FIniFileName : String;


FInitialized : Boolean;


FPort : String;


FServer : String;



Constructors


Functions


procedure AppSrvClient1AfterSendRequest(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure AppSrvClient1BeforeProcessReply(Sender: TObject; var CmdBuf: PChar; var CmdLen: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure AppSrvClient1BeforeSendRequest(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure AppSrvClient1RequestDone(Sender: TObject; Error: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure AppSrvClient1SessionClosed(Sender: TObject; Error: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure ClearButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DisconnectButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormCreate(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SendButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DisplayBmpFile;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure ImageFormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


Events


Variables


AppSrvClient1 : TAppSrvClient;


ClearButton : TButton;


DataEdit : TEdit;


DisconnectButton : TButton;


EncryptCheckBox : TCheckBox;


FunctionEdit : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Memo1 : TMemo;


MWBuffer1 : TMWBuffer;


Panel1 : TPanel;


PortEdit : TEdit;


SendButton : TButton;


ServerEdit : TEdit;


FIniFileName : String;


FInitialized : Boolean;


FPort : String;


FServer : String;