unit wsc32;

{wsc32.pas, Version 5.3.0, Win32 Delphi}

interface

const
   (* COMM Ports *)
   COM1 = 0;
   COM2 = 1;
   COM3 = 2;
   COM4 = 3;
   COM5 = 4;
   COM6 = 5;
   COM7 = 6;
   COM8 = 7;
   COM9 = 8;
   COM10 = 9;
   COM11 = 10;
   COM12 = 11;
   COM13 = 12;
   COM14 = 13;
   COM15 = 14;
   COM16 = 15;
   {COM17 thru COM256 are defined in the same pattern as above}
   COM256 = 255;
   (* Baud Rate Codes *)
   WSC_Baud110  = 0;
   WSC_Baud300  = 1;
   WSC_Baud1200 = 2;
   WSC_Baud2400 = 3;
   WSC_Baud4800 = 4;
   WSC_Baud9600 = 5;
   WSC_Baud19200  = 6;
   WSC_Baud38400  = 7;
   WSC_Baud57600  = 8;
   WSC_Baud115200 = 9;
   (* Parity Codes *)
   WSC_NoParity    = 0;
   WSC_OddParity   = 1;
   WSC_EvenParity  = 2;
   WSC_MarkParity  = 3;
   WSC_SpaceParity = 4;
   (* Stop Bit Codes *)
   WSC_OneStopBit   = 0;
   WSC_One5StopBits = 1;
   WSC_TwoStopBits  = 2;
   (* Word Length Codes *)
   WSC_WordLength5 = 5;
   WSC_WordLength6 = 6;
   WSC_WordLength7 = 7;
   WSC_WordLength8 = 8;
   (* WSC errors *)
   WSC_BUSY      = -100;
   WSC_NO_DATA   = -100;
   WSC_RANGE     = -101;
   WSC_ABORTED   = -102;
   WSC_WIN32ERR  = -103;
   WSC_EXPIRED   = -104;
   WSC_BUFFERS   = -105;
   WSC_THREAD    = -106;
   WSC_TIMEOUT   = -107;
   WSC_KEYCODE   = -108;
   (* Windows comm errors *)
   WSC_IE_BADID     = -1;
   WSC_IE_OPEN      = -2;
   WSC_IE_NOPEN     = -3;
   WSC_IE_MEMORY    = -4;
   WSC_IE_DEFAULT   = -5;
   WSC_IE_HARDWARE  = -10;
   WSC_IE_BYTESIZE  = -11;
   WSC_IE_BAUDRATE  = -12;
   WSC_IO_ERROR     = -13;
   (* SioGetError masks *)
   WSC_RXOVER   = $0001;
   WSC_OVERRUN  = $0002;
   WSC_PARITY   = $0004;
   WSC_FRAME    = $0008;
   WSC_BREAK    = $0010;
   WSC_TXFULL   = $0100;
   (* commands *)
   WSC_ASSERT_BREAK = 'A';
   WSC_CANCEL_BREAK = 'C';
   WSC_DETECT_BREAK = 'D';
   WSC_SET_LINE     = 'S';
   WSC_CLEAR_LINE   = 'C';
   WSC_READ_LINE    = 'R';
   (* flow control *)
   WSC_HARDWARE_FLOW_CONTROL = 'H';
   WSC_SOFTWARE_FLOW_CONTROL = 'S';
   WSC_NO_FLOW_CONTROL       = 'N';
   (* SioInfo commands *)
   WSC_GET_VERSION = 'V';
   WSC_GET_BUILD   = 'B';
   WSC_IS_32BITS   = '3';
   (* SioSetInteger commands *)
   WSC_WAIT_ON_PUTS = 'W';
   WSC_SIGNAL       = 'S';
   WSC_OVERLAPPED   = 'O';
   (* SioEvent, SioEventChar, and SioEventWait codes *)
   WSC_IO_PENDING   = 2; 
   WSC_IO_COMPLETE  = 3;

 function SioBaud(Port, BaudCode : Integer) : Integer; stdcall;
 function SioBrkSig(Port : Integer; Cmd : AnsiChar) : Integer; stdcall;
 function SioCTS(Port : Integer) : Integer; stdcall;
 function SioDCD(Port : Integer) : Integer; stdcall;
 function SioDebug(Cmd : Integer) : Integer; stdcall;
 function SioDone(Port : Integer) : Integer; stdcall;
 function SioDSR(Port : Integer) : Integer; stdcall;
 function SioDTR(Port : Integer; Cmd : AnsiChar) : Integer; stdcall;
 function SioEvent(Port : Integer; Mask : Word) : Integer; stdcall;
 function SioEventChar(Port : Integer; EvtChar: AnsiChar; Timeout : Word) : Integer; stdcall;
 function SioEventWait(Port : Integer; Mask : Word; Timeout : Word) : Integer; stdcall;
 function SioFlow(Port: Integer; Cmd : AnsiChar) : Integer; stdcall;
 function SioGetc(Port: Integer) : Integer; stdcall;
 function SioGetReg(Buffer : PAnsiChar; BufSize : Integer) : Integer; stdcall;
 function SioGets(Port: Integer; Buffer : PAnsiChar; Size : Word) : Integer; stdcall;
 function SioInfo(Cmd : AnsiChar) : Integer; stdcall;
 function SioKeyCode(KeyCode : Integer) : Integer; stdcall;
 function SioMessage(Port, Handle, MsgCode: Integer; Mask: LongInt) : Integer; stdcall;
 function SioParms(Port, ParityCode, StopBitsCode, DataBitsCode : Integer) : Integer; stdcall;
 function SioPutc(Port : Integer; Ch : AnsiChar) : Integer; stdcall;
 function SioPuts(Port : Integer; Buffer : PAnsiChar; Size : Word) : Integer; stdcall;
 function SioRead(Port : Integer; Reg : Integer) : Integer; stdcall;
 function SioReset(Port, RxQueSize, TxQueSize : Integer) : Integer; stdcall;
 function SioRI(Port : Integer) : Integer; stdcall;
 function SioRTS(Port : Integer; Cmd : AnsiChar) : Integer; stdcall;
 function SioRxClear(Port : Integer) : Integer; stdcall;
 function SioRxQue(Port : Integer) : Integer; stdcall;
 function SioSetInteger(Port : Integer; ParmName : AnsiChar; ParmValue : Integer) : Integer; stdcall;
 function SioStatus(Port : Integer; Mask : Word) : Integer; stdcall;
 function SioTimer : LongInt; stdcall;
 function SioTxClear(Port : Integer) : Integer; stdcall;
 function SioTxQue(Port : Integer) : Integer; stdcall;
 function SioUnGetc(Port : Integer; Ch : AnsiChar) : Integer; stdcall;
 function SioWinError(Buffer : PAnsiChar; Size : Word) : Integer; stdcall;
 function SioByteToShort(Buffer : PAnsiChar) : Integer; stdcall; 
 function SioShortToByte(Buffer : PAnsiChar) : Integer; stdcall; 
 function SioSetTimeouts(Port : Integer; ReadInterval,ReadMult,ReadCons,WriteMult,WriteCons : Integer) : Integer; stdcall; 
 function SioSleep(MilliSecs : Integer) : Integer; stdcall; 
 function SioHexView(Binary : PAnsiChar; ByteCount : Integer; Buffer : PAnsiChar;BufLen : Integer) : Integer; stdcall;
 function SioRxWait(Port, BytesWanted, Timeout : Integer): Integer; stdcall;
 function SioQuiet(Port, QuietTime, TimeOut : Integer): Integer; stdcall;
 function SioWaitFor(Port, TimeOut : Integer): Integer; stdcall;

implementation

 function SioBaud; external 'wsc32.dll';
 function SioBrkSig; external 'wsc32.dll';
 function SioCTS; external 'wsc32.dll';
 function SioDCD; external 'wsc32.dll';
 function SioDebug; external 'wsc32.dll';
 function SioDone; external 'wsc32.dll';
 function SioDSR; external 'wsc32.dll';
 function SioDTR; external 'wsc32.dll';
 function SioEvent; external 'wsc32.dll';
 function SioEventChar; external 'wsc32.dll';
 function SioEventWait; external 'wsc32.dll'; 
 function SioFlow; external 'wsc32.dll';
 function SioGetc; external 'wsc32.dll';
 function SioGetReg; external 'wsc32.dll';
 function SioGets; external 'wsc32.dll';
 function SioInfo; external 'wsc32.dll';
 function SioKeyCode; external 'wsc32.dll';
 function SioMessage; external 'wsc32.dll';
 function SioParms; external 'wsc32.dll';
 function SioPutc; external 'wsc32.dll';
 function SioPuts; external 'wsc32.dll';
 function SioRead; external 'wsc32.dll';
 function SioReset; external 'wsc32.dll';
 function SioRI; external 'wsc32.dll';
 function SioRTS; external 'wsc32.dll';
 function SioRxClear; external 'wsc32.dll';
 function SioRxQue; external 'wsc32.dll';
 function SioSetInteger; external 'wsc32.dll';
 function SioStatus; external 'wsc32.dll';
 function SioTimer; external 'wsc32.dll';
 function SioTxClear; external 'wsc32.dll';
 function SioTxQue; external 'wsc32.dll';
 function SioUnGetc; external 'wsc32.dll';
 function SioWinError; external 'wsc32.dll';
 function SioByteToShort; external 'wsc32.dll';
 function SioShortToByte; external 'wsc32.dll';
 function SioSetTimeouts; external 'wsc32.dll';
 function SioSleep; external 'wsc32.dll';
 function SioHexView; external 'wsc32.dll';
 function SioRxWait; external 'wsc32.dll';
 function SioQuiet; external 'wsc32.dll';
 function SioWaitFor; external 'wsc32.dll';

end.