Unit Async32 |
****************************************************************************** VARIAN ASYNC32 COMPONENT v1.25 (c) VARIAN SOFTWARE SERVICES NL 1996-1997 ALL RIGHTS RESERVED ****************************************************************************** Written by Varian Software Services NL, The Netherlands Subject: Async32 Component Version: 1.25 Platform: Delphi 3, Win95, NT Date: 2 June 1997 Last update: 8st December 1997 Release: Freeware, just let us know what you think of it.... if you make any modifications to the source, please send us a copy. We will verify your changes and give you proper credit when included. Please send any questions, remarks or suggestions to our following address: Varian@worldaccess.nl 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. **************************************************************************** Our thanks goes to all the people who helped creating and testing this component for their support and suggestions.
Classes |
ECommError -
TComm -
TCommEventChars -
TCommEventThread -
TCustomComm -
Functions |
GetProviderSubTypeName - RaiseCommError} {GetProviderSubtypeName
Register -
Types |
TBaudRate
TCommErrorEvent
TCommEvent
TCommEventState
TCommEventType
TCommOption
TCommOptions
TCommRxCharEvent
TDatabits
TFlowControl
TParity
TStopbits
Constants |
Variables |
Functions |
Types |
TBaudRate = (cbr110, cbr300, cbr600, cbr1200, cbr2400, cbr4800, cbr9600, cbr14400, cbr19200, cbr38400, cbr56000, cbr57600, cbr115200, cbr128000, cbr256000);
TCommErrorEvent = procedure(Sender: TObject; Errors: Integer) of object
TCommEvent = procedure(Sender: TObject; Status: dword) of object
TCommEventState = (evBreak, evCTS, evDSR, evError, evRing, evRlsd, evRxChar, evRxFlag, evTxEmpty);
TCommEventType = set of TCommEventState
TCommOption = (coParityCheck, coDsrSensitivity, coIgnoreXOff, coErrorChar, coNullStrip);
TCommOptions = set of TCommOption
TCommRxCharEvent = procedure(Sender: TObject; Count: Integer) of object
TDatabits=(da4, da5, da6, da7, da8);
TFlowControl = (fcNone, fcCTS, fcDTR, fcSoftware, fcDefault);
TParity = (paNone, paOdd, paEven, paMark, paSpace);
TStopbits = (sb10, sb15, sb20);
Constants |
Variables |