Unit synaser

Descrição

 

Uses

Visão Geral

Classes, Interfaces, Objetos e Registros

Nome Descrição
Registro TDCB  
Classe ESynaSerError Exception type for SynaSer errors
Classe TBlockSerial Main class implementing all communication routines

Funções e Procedimentos

function GetSerialPortNames: string;

Tipos

PDCB = ˆTDCB;
THookSerialReason = (...);
THookSerialStatus = procedure(Sender: TObject; Reason: THookSerialReason; const Value: string) of object;

Constantes

CR = #$0d;
LF = #$0a;
CRLF = CR + LF;
cSerialChunk = 8192;
LockfileDirectory = '/var/lock';
PortIsClosed = -1;
ErrAccessDenied = 9990;
ErrAlreadyOwned = 9991;
ErrAlreadyInUse = 9992;
ErrWrongParameter = 9993;
ErrPortNotOpen = 9994;
ErrNoDeviceAnswer = 9995;
ErrMaxBuffer = 9996;
ErrTimeout = 9997;
ErrNotRead = 9998;
ErrFrame = 9999;
ErrOverrun = 10000;
ErrRxOver = 10001;
ErrRxParity = 10002;
ErrTxFull = 10003;
dcb_Binary = $00000001;
dcb_ParityCheck = $00000002;
dcb_OutxCtsFlow = $00000004;
dcb_OutxDsrFlow = $00000008;
dcb_DtrControlMask = $00000030;
dcb_DtrControlDisable = $00000000;
dcb_DtrControlEnable = $00000010;
dcb_DtrControlHandshake = $00000020;
dcb_DsrSensivity = $00000040;
dcb_TXContinueOnXoff = $00000080;
dcb_OutX = $00000100;
dcb_InX = $00000200;
dcb_ErrorChar = $00000400;
dcb_NullStrip = $00000800;
dcb_RtsControlMask = $00003000;
dcb_RtsControlDisable = $00000000;
dcb_RtsControlEnable = $00001000;
dcb_RtsControlHandshake = $00002000;
dcb_RtsControlToggle = $00003000;
dcb_AbortOnError = $00004000;
dcb_Reserveds = $FFFF8000;
SB1 = 0;
SB1andHalf = 1;
SB2 = 2;
INVALID_HANDLE_VALUE = THandle(-1);
CS7fix = $0000020;
MaxRates = 19;
Rates: array[0..MaxRates, 0..1] of cardinal = ( (0, B0), (50, B50), (75, B75), (110, B110), (134, B134), (150, B150), (200, B200), (300, B300), (600, B600), (1200, B1200), (1800, B1800), (2400, B2400), (4800, B4800), (9600, B9600), (19200, B19200), (38400, B38400), (57600, B57600), (115200, B115200), (230400, B230400) ,(460800, B460800) );
sOK = 0;
sErr = integer(-1);

Descrição

Funções e Procedimentos

function GetSerialPortNames: string;

Returns list of existing computer serial ports. Working properly only in Windows!

Tipos

PDCB = ˆTDCB;
 
THookSerialReason = (...);

Possible status event types for THookSerialStatus

Valores
  • HR_SerialClose
  • HR_Connect
  • HR_CanRead
  • HR_CanWrite
  • HR_ReadCount
  • HR_WriteCount
  • HR_Wait
THookSerialStatus = procedure(Sender: TObject; Reason: THookSerialReason; const Value: string) of object;

procedural prototype for status event hooking

Constantes

CR = #$0d;
 
LF = #$0a;
 
CRLF = CR + LF;
 
cSerialChunk = 8192;
 
LockfileDirectory = '/var/lock';
 
PortIsClosed = -1;
 
ErrAccessDenied = 9990;
 
ErrAlreadyOwned = 9991;
 
ErrAlreadyInUse = 9992;
 
ErrWrongParameter = 9993;
 
ErrPortNotOpen = 9994;
 
ErrNoDeviceAnswer = 9995;
 
ErrMaxBuffer = 9996;
 
ErrTimeout = 9997;
 
ErrNotRead = 9998;
 
ErrFrame = 9999;
 
ErrOverrun = 10000;
 
ErrRxOver = 10001;
 
ErrRxParity = 10002;
 
ErrTxFull = 10003;
 
dcb_Binary = $00000001;
 
dcb_ParityCheck = $00000002;
 
dcb_OutxCtsFlow = $00000004;
 
dcb_OutxDsrFlow = $00000008;
 
dcb_DtrControlMask = $00000030;
 
dcb_DtrControlDisable = $00000000;
 
dcb_DtrControlEnable = $00000010;
 
dcb_DtrControlHandshake = $00000020;
 
dcb_DsrSensivity = $00000040;
 
dcb_TXContinueOnXoff = $00000080;
 
dcb_OutX = $00000100;
 
dcb_InX = $00000200;
 
dcb_ErrorChar = $00000400;
 
dcb_NullStrip = $00000800;
 
dcb_RtsControlMask = $00003000;
 
dcb_RtsControlDisable = $00000000;
 
dcb_RtsControlEnable = $00001000;
 
dcb_RtsControlHandshake = $00002000;
 
dcb_RtsControlToggle = $00003000;
 
dcb_AbortOnError = $00004000;
 
dcb_Reserveds = $FFFF8000;
 
SB1 = 0;

stopbit value for 1 stopbit

SB1andHalf = 1;

stopbit value for 1.5 stopbit

SB2 = 2;

stopbit value for 2 stopbits

INVALID_HANDLE_VALUE = THandle(-1);
 
CS7fix = $0000020;
 
MaxRates = 19;
 
Rates: array[0..MaxRates, 0..1] of cardinal = ( (0, B0), (50, B50), (75, B75), (110, B110), (134, B134), (150, B150), (200, B200), (300, B300), (600, B600), (1200, B1200), (1800, B1800), (2400, B2400), (4800, B4800), (9600, B9600), (19200, B19200), (38400, B38400), (57600, B57600), (115200, B115200), (230400, B230400) ,(460800, B460800) );
 
sOK = 0;
 
sErr = integer(-1);
 

Gerado por PasDoc 0.16.0.