Unit ApsCli

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Author: François PIETTE Description: Application Server Client Component Do not confuse TClientWSocket with TAppSrvClient which is the client application side. TClientWSocket is used on the server side to handle client connections, TAppSrvClient is used on the client side to connect to the application server. Both components are talking to each other. Creation: March 3, 1998 Version: 1.04 EMail: francois.piette@pophost.eunet.be francois.piette@ping.be francois.piette@rtfm.be http://www.rtfm.be/fpiette Support: Use the mailing list midware@rtfm.be See website for details. Legal issues: Copyright (C) 1997, 1998 by François PIETTE Rue de Grady 24, 4053 Embourg, Belgium. Fax: +32-4-365.74.56 This software is provided 'as-is', without any express or implied warranty. In no event will the author be held liable for any damages arising from the use of this software. Permission is granted to anyone to use this software and or any derived or altered versions for any purpose, excluding commercial applications. You can use this software for personal or internal use only. You may distribute it freely untouched. The following restrictions applies: 1. The origin of this software must not be misrepresented, you must not claim that you wrote the original software. 2. If you use this software in a product, an acknowledgment in the product documentation and displayed on screen is required. The text must be: "This product is based on MidWare. Freeware source code is available at http://www.rtfm.be/fpiette." 3. Altered source versions must be plainly marked as such, and must not be misrepresented as being the original software. 4. This notice may not be removed or altered from any source distribution and must be added to the product documentation. Updates: Mar 02, 1998 V1.01 Added a RequestDone event when DnsLookup or connection fails. May 08, 1998 V1.02 Corrected a one byte error in the OnDataAvailable. Thanks to Miha Remec for finding the bug. May 24, 1998 V1.03 Added comments in the source code. Jun 01, 1998 V1.04 Removed beta status. Changed "legal stuff" to prohibe commercial applications whithout an agreement. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Classes

TAppSrvClient -

Functions

Register - * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Types

TClientState
TErrorEvent
TProcessReplyEvent
TRequestDone

Constants

AppSrvClientVersion
WM_REQUESTDONE

Variables


Functions


procedure Register;

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

Types


TClientState = (cstReady, cstDnsLookup, cstConnecting, cstWaitingResponse);

TErrorEvent = procedure (Sender : TObject; Error : Integer; Msg : String) of object

TProcessReplyEvent = procedure (Sender : TObject; var CmdBuf : PChar; var CmdLen : Integer) of object

TRequestDone = procedure (Sender : TObject; Error : Integer) of object

Constants

AppSrvClientVersion = 104

Enable partial boolean evaluation } {$T-} { Untyped pointers } {$J+} { Allow typed constant to be modified

WM_REQUESTDONE = WM_USER + 1


Variables