quickcomm.bas

串口原代码串口原代码串口原代码串口原代码

Attribute VB_Name = "Quickcomm"
'-----------------------------------------
'Quickcomm.bas
'
'-----------------------------------------




'波特率设置
Global Const B50 = &H0
Global Const B75 = &H1
Global Const B110 = &H2
Global Const B134 = &H3
Global Const B150 = &H4
Global Const B300 = &H5
Global Const B600 = &H6
Global Const B1200 = &H7
Global Const B1800 = &H8
Global Const B2400 = &H9
Global Const B4800 = &HA
Global Const B7200 = &HB
Global Const B9600 = &HC
Global Const B19200 = &HD
Global Const B38400 = &HE
Global Const B57600 = &HF
Global Const B115200 = &H10
Global Const B230400 = &H11
Global Const B460800 = &H12
Global Const B921600 = &H13

'数据位定义
Global Const BIT_5 = &H0
Global Const BIT_6 = &H1
Global Const BIT_7 = &H2
Global Const BIT_8 = &H3

'停止位定义
Global Const STOP_1 = &H0
Global Const STOP_2 = &H4

'奇偶校验定义
Global Const P_EVEN = &H18
Global Const P_ODD = &H8
Global Const P_SPC = &H38
Global Const P_MRK = &H28
Global Const P_NONE = &H0

' Modem 控制
Global Const C_DTR = &H1
Global Const C_RTS = &H2

' Modem 线路状态
Global Const S_CTS = &H1
Global Const S_DSR = &H2
Global Const S_RI = &H4
Global Const S_CD = &H8

' 错误返回代码
Global Const SIO_OK = 0
Global Const SIO_BADPORT = -1
Global Const SIO_OUTCONTROL = -2
Global Const SIO_NODATA = -4
Global Const SIO_OPENFAIL = -5
Global Const SIO_RTS_BY_HW = -6
Global Const SIO_BADPARM = -7
Global Const SIO_WIN32FAIL = -8
Global Const SIO_BOARDNOTSUPPORT = -9
Global Const SIO_FAIL = -10
Global Const SIO_ABORT_WRITE = -11
Global Const SIO_WRITETIMEOUT = -12

'文件传输的错误返回代码
Global Const SIOFT_OK = 0
Global Const SIOFT_BADPORT = -1
Global Const SIOFT_TIMEOUT = -2
Global Const SIOFT_ABORT = -3
Global Const SIOFT_FUNC = -4
Global Const SIOFT_FOPEN = -5
Global Const SIOFT_CANABORT = -6
Global Const SIOFT_PROTOCOL = -7
Global Const SIOFT_SKIP = -8
Global Const SIOFT_LACKRBUF = -9
Global Const SIOFT_WIN32FAIL = -10
Global Const SIOFT_BOARDNOTSUPPORT = -11

'如果Quickcomm.dll在Windows的system目录下，则使用"Quickcomm.dll"
'否则给出完整的路径，如"c:\Coin\Quickcomm.dll"
Declare Function sio_open Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_close Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_ioctl Lib "Quickcomm.dll" (ByVal Port As Long, ByVal baud As Long, ByVal mode As Long) As Long
Declare Function sio_flowctrl Lib "Quickcomm.dll" (ByVal Port As Long, ByVal mode As Long) As Long
Declare Function sio_flush Lib "Quickcomm.dll" (ByVal Port As Long, ByVal func As Long) As Long
Declare Function sio_DTR Lib "Quickcomm.dll" (ByVal Port As Long, ByVal mode As Long) As Long
Declare Function sio_RTS Lib "Quickcomm.dll" (ByVal Port As Long, ByVal mode As Long) As Long
Declare Function sio_lctrl Lib "Quickcomm.dll" (ByVal Port As Long, ByVal mode As Long) As Long
Declare Function sio_baud Lib "Quickcomm.dll" (ByVal Port As Long, ByVal speed As Long) As Long
Declare Function sio_getch Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_read Lib "Quickcomm.dll" (ByVal Port As Long, ByRef buf As Byte, ByVal length As Long) As Long
Declare Function sio_linput Lib "Quickcomm.dll" (ByVal Port As Long, ByRef buf As Byte, ByVal length As Long, ByVal Term As Long) As Long
Declare Function sio_putch Lib "Quickcomm.dll" (ByVal Port As Long, ByVal Term As Long) As Long
Declare Function sio_putb Lib "Quickcomm.dll" Alias "sio_write" (ByVal Port As Long, ByRef buf As Byte, ByVal length As Long) As Long
Declare Function sio_write Lib "Quickcomm.dll" (ByVal Port As Long, ByRef buf As Byte, ByVal length As Long) As Long
Declare Function sio_putb_x Lib "Quickcomm.dll" (ByVal Port As Long, ByRef buf As Byte, ByVal length As Long, ByVal tick As Long) As Long
Declare Function sio_putb_x_ex Lib "Quickcomm.dll" (ByVal Port As Long, ByRef buf As Byte, ByVal length As Long, ByVal tms As Long) As Long
Declare Function sio_lstatus Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_iqueue Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_oqueue Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_Tx_hold Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_getbaud Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_getmode Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_getflow Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_data_status Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_term_irq Lib "Quickcomm.dll" (ByVal Port As Long, ByVal func As Long, ByVal code As Byte) As Long
Declare Function sio_cnt_irq Lib "Quickcomm.dll" (ByVal Port As Long, ByVal func As Long, ByVal count As Long) As Long
Declare Function sio_modem_irq Lib "Quickcomm.dll" (ByVal Port As Long, ByVal func As Long) As Long
Declare Function sio_break_irq Lib "Quickcomm.dll" (ByVal Port As Long, ByVal func As Long) As Long
Declare Function sio_Tx_empty_irq Lib "Quickcomm.dll" (ByVal Port As Long, ByVal func As Long) As Long
Declare Function sio_break Lib "Quickcomm.dll" (ByVal Port As Long, ByVal time As Long) As Long
Declare Function sio_view Lib "Quickcomm.dll" (ByVal Port As Long, ByRef buf As Byte, ByVal length As Long) As Long
Declare Function sio_TxLowWater Lib "Quickcomm.dll" (ByVal Port As Long, ByVal size As Long) As Long
Declare Function sio_AbortWrite Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_AbortRead Lib "Quickcomm.dll" (ByVal Port As Long) As Long
Declare Function sio_SetWriteTimeouts Lib "Quickcomm.dll" (ByVal Port As Long, ByVal timeouts As Long) As Long
Declare Function sio_GetWriteTimeouts Lib "Quickcomm.dll" (ByVal Port As Long, ByRef TotalTimeouts As Long) As Long
Declare Function sio_SetReadTimeouts Lib "Quickcomm.dll" (ByVal Port As Long, ByVal TotalTimeouts As Long, ByVal IntervalTimeouts As Long) As Long
Declare Function sio_GetReadTimeouts Lib "Quickcomm.dll" (ByVal Port As Long, ByRef TotalTimeouts As Long, ByRef InterfalTimeouts As Long) As Long

Declare Function sio_FtASCIITx Lib "Quickcomm.dll" ( _
    ByVal Port As Long, ByVal fname As String, ByVal func As Long, ByVal key As Long _
) As Long

Declare Function sio_FtASCIIRx Lib "Quickcomm.dll" ( _
    ByVal Port As Long, ByVal fname As String, ByVal func As Long, ByVal key As Long, ByVal sec As Long _
) As Long

Declare Function sio_FtZmodemTx Lib "Quickcomm.dll" ( _
    ByVal Port As Long, ByVal fname As String, ByVal func As Long, ByVal key As Long _
) As Long

Declare Function sio_FtZmodemRx Lib "Quickcomm.dll" ( _
    ByVal Port As Long, ByRef fname As Long, ByVal fno As Long, ByVal func As Long, ByVal key As Long _
) As Long