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

DefaultDeviceName

Variables


Functions


function GetProviderSubTypeName(Id: Integer): string;

RaiseCommError} {GetProviderSubtypeName

procedure Register;


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

DefaultDeviceName = 'Com2'


Variables