Unit ComDrv16

+----------------------------------------------------------------------------- | | ComDrv16.pas (see ComDrv32.pas for Delphi 2.0) | | TCommPortDriver component | COM Port Driver for Delphi 1.0 | v1.08/16 - November 19th, 1997 | | Written by Marco Cocco | Copyright (c) 1996-97 by Marco Cocco. All rights reseved. | Copyright (c) 1996-97 by d3k The Artisan Of Ware. All rights reseved. | | Please send comments to d3k@mdnet.it | URL: http://www.mdlive.com/d3k/ | +----------------------------------------------------------------------------- ****************************************************************************** * Permission to use, copy, modify, and distribute this software and its * * documentation without fee for any purpose is hereby granted, * * provided that the above copyright notice appears on all copies and that * * both that copyright notice and this permission notice appear in all * * supporting documentation. * * * * NO REPRESENTATIONS ARE MADE ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY * * PURPOSE. IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY. * * NEITHER MARCO COCCO OR D3K SHALL BE LIABLE FOR ANY DAMAGES SUFFERED BY * * THE USE OF THIS SOFTWARE. * ****************************************************************************** * d3k - The Artisan Of Ware - A Marco Cocco's Company * * Casella Postale 99 - 09047 Selargius (CA) - ITALY * * Tel. +39 70 846091 (Italian speaking) Fax +39 70 848331 * * E-mail: d3k@mdnet.it Home page: http://www.mdlive.com/d3k/ * ******************************************************************************

Classes

TCommPortDriver -

Functions

BaudRateOf -
DelayForRX - br38400 : Result := 38400;} {br56000 : Result := 56000;
Register - Let Windows handle other messages

Types

TComPortBaudRate
TComPortDataBits
TComPortHwHandshaking
TComPortLineStatus
TComPortLineStatusSet
TComPortNumber
TComPortParity
TComPortReceiveDataEvent
TComPortReceivePacketEvent
TComPortStopBits
TComPortSwHandshaking
TPacketMode

Constants

Variables


Functions


function BaudRateOf( bRate: TComPortBaudRate ): longint;


function DelayForRX( bRate: TComPortBaudRate; DataSize: word ): longint;

br38400 : Result := 38400;} {br56000 : Result := 56000;

procedure Register;

Let Windows handle other messages

Types


TComPortBaudRate = ( br110, br300, br600, br1200, br2400, br4800,
                       br9600, br14400, br19200, br38400,
                       br57600, br115200 );
COM Port Baud Rates
TComPortDataBits = ( db5BITS, db6BITS, db7BITS, db8BITS );
COM Port Data bits
TComPortHwHandshaking = ( hhNONE, hhNONERTSON, hhRTSCTS );
COM Port Hardware Handshaking
TComPortLineStatus = ( lsCTS, lsDSR, lsRING, lsRLSD{CD} );

TComPortLineStatusSet = set of TComPortLineStatus
CD
TComPortNumber = ( pnCOM1, pnCOM2, pnCOM3, pnCOM4, pnCOM5, pnCOM6, pnCOM7,
                     pnCOM8, pnCOM9, pnCOM10, pnCOM11, pnCOM12, pnCOM13,
                     pnCOM14, pnCOM15, pnCOM16 );
COM Port Numbers
TComPortParity = ( ptNONE, ptODD, ptEVEN, ptMARK, ptSPACE );
COM Port Parity
TComPortReceiveDataEvent = procedure( Sender: TObject; DataPtr: pointer; DataSize: word ) of object

TComPortReceivePacketEvent = procedure( Sender: TObject; Packet: pointer; DataSize: word ) of object

TComPortStopBits = ( sb1BITS, sb1HALFBITS, sb2BITS );
COM Port Stop bits
TComPortSwHandshaking = ( shNONE, shXONXOFF );
COM Port Software Handshaing
TPacketMode = ( pmDiscard, pmPass );
What to do with incomplete (incoming) packets

Constants


Variables