Class TServerForm (unit SrvTst1) |
Inherits from
TForm
procedure AppServer1AfterSendReply(Sender: TObject;
CliWSocket: TClientWSocket);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppServer1BeforeProcessRequest(Sender: TObject;
CliWSocket: TClientWSocket; var CmdBuf: PChar; var CmdLen: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppServer1BeforeSendReply(Sender: TObject;
CliWSocket: TClientWSocket);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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 AppServer1ClientTimeout(Sender: TObject;
CliWSocket: TClientWSocket; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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 FormDestroy(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.
AppServer1 : TAppServer;
ClearButton : TButton;
ClientCountLabel : TLabel;
DisconnectAllButton : TButton;
DisplayMemo : TMemo;
FunctionsButton : TButton;
Label1 : TLabel;
Label2 : TLabel;
ObjectCountLabel : TLabel;
Panel1 : TPanel;
Query1 : TQuery;
RequestBroker1 : TRequestBroker;
Table1 : TTable;
TestButton : TButton;
FIniFileName : String;
FInitialized : Boolean;
Déclarations privées
FPort : String;
FRequestBuffer : TMWBuffer;
FUserData : PUserDataRecord;
procedure AppServer1AfterSendReply(Sender: TObject;
CliWSocket: TClientWSocket);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppServer1BeforeProcessRequest(Sender: TObject;
CliWSocket: TClientWSocket; var CmdBuf: PChar; var CmdLen: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppServer1BeforeSendReply(Sender: TObject;
CliWSocket: TClientWSocket);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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 AppServer1ClientTimeout(Sender: TObject;
CliWSocket: TClientWSocket; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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 FormDestroy(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.
AppServer1 : TAppServer;
ClearButton : TButton;
ClientCountLabel : TLabel;
DisconnectAllButton : TButton;
DisplayMemo : TMemo;
FunctionsButton : TButton;
Label1 : TLabel;
Label2 : TLabel;
ObjectCountLabel : TLabel;
Panel1 : TPanel;
Query1 : TQuery;
RequestBroker1 : TRequestBroker;
Table1 : TTable;
TestButton : TButton;
FIniFileName : String;
FInitialized : Boolean;
Déclarations privées
FPort : String;
FRequestBuffer : TMWBuffer;
FUserData : PUserDataRecord;