Class TServerForm (unit Srv1Tst1)

Inherits from

TForm

Constructors



Functions

procedure AppServer1ClientClosed(Sender: TObject; CliWSocket : TClientWSocket);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { A client has disconnected, update our user interface

procedure AppServer1ClientCommand(Sender: TObject; CliWSocket: TClientWSocket; CmdBuf: PChar; CmdLen: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by the AppServer component when a client } { request has been received.

procedure AppServer1ClientConnected(Sender: TObject; CliWSocket : TClientWSocket);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { A new client has connected, update our user interface

procedure AppServer1Display(Sender: TObject; Msg: String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when the AppServer component has some info } { to display.

procedure ClearButtonClick(Sender: TObject);

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

procedure DisconnectAllButtonClick(Sender: TObject);

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

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

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

procedure FormCreate(Sender: TObject);

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

procedure FormShow(Sender: TObject);

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

procedure FunctionsButtonClick(Sender: TObject);

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

procedure RequestBroker1ObjCreate(Sender: TObject; ServerObject: TServerObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when the object request broker has just } { instanciated a server object to execute a user request.

procedure RequestBroker1ObjDestroy(Sender: TObject; ServerObject: TServerObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called just before the object request broker } { destroy a server object after having executed a user request.

procedure TestButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { The TestButton just shows how to use various TRequestBuffer methods

function EnumServerFunctions(Sender: TObject; FunctionCode : String) : boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This function is called back by the request broker for each function code } { he knows about when we ask to enumerate functions.

procedure WMAppStartup(var msg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This message handler is triggered by the FormShow event.

Properties

Events

Variables

AppServer1 : TAppServer;


ClearButton : TButton;


ClientCountLabel : TLabel;


DisconnectAllButton : TButton;


DisplayMemo : TMemo;


FunctionsButton : TButton;


Label1 : TLabel;


Label2 : TLabel;


ObjectCountLabel : TLabel;


Panel1 : TPanel;


RequestBroker1 : TRequestBroker;


TestButton : TButton;


FIniFileName : String;


FInitialized : Boolean;

Déclarations privées

FPort : String;


FRequestBuffer : TMWBuffer;


FUserData : PUserDataRecord;



Constructors


Functions


procedure AppServer1ClientClosed(Sender: TObject; CliWSocket : TClientWSocket);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { A client has disconnected, update our user interface


procedure AppServer1ClientCommand(Sender: TObject; CliWSocket: TClientWSocket; CmdBuf: PChar; CmdLen: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by the AppServer component when a client } { request has been received. We just display it for this demo, but it is } { not a good idea for performance reasons.


procedure AppServer1ClientConnected(Sender: TObject; CliWSocket : TClientWSocket);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { A new client has connected, update our user interface


procedure AppServer1Display(Sender: TObject; Msg: String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when the AppServer component has some info } { to display. This info can comes from one of the server components also.


procedure ClearButtonClick(Sender: TObject);

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


procedure DisconnectAllButtonClick(Sender: TObject);

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


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

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


procedure FormCreate(Sender: TObject);

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


procedure FormShow(Sender: TObject);

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


procedure FunctionsButtonClick(Sender: TObject);

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


procedure RequestBroker1ObjCreate(Sender: TObject; ServerObject: TServerObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when the object request broker has just } { instanciated a server object to execute a user request.


procedure RequestBroker1ObjDestroy(Sender: TObject; ServerObject: TServerObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called just before the object request broker } { destroy a server object after having executed a user request.


procedure TestButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { The TestButton just shows how to use various TRequestBuffer methods


function EnumServerFunctions(Sender: TObject; FunctionCode : String) : boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This function is called back by the request broker for each function code } { he knows about when we ask to enumerate functions.


procedure WMAppStartup(var msg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This message handler is triggered by the FormShow event. We comes here } { only when the form is visible on screen.


Properties


Events


Variables


AppServer1 : TAppServer;


ClearButton : TButton;


ClientCountLabel : TLabel;


DisconnectAllButton : TButton;


DisplayMemo : TMemo;


FunctionsButton : TButton;


Label1 : TLabel;


Label2 : TLabel;


ObjectCountLabel : TLabel;


Panel1 : TPanel;


RequestBroker1 : TRequestBroker;


TestButton : TButton;


FIniFileName : String;


FInitialized : Boolean;

Déclarations privées


FPort : String;


FRequestBuffer : TMWBuffer;


FUserData : PUserDataRecord;