在Delphi环境下使用PComm Pro通讯函数库必须先引入函数声明,将用到的3个单元文件分别是Global.pas、Mxtool.pas、PComm.pas,预先复制到工程目录中,在工程使用加入单元功能将这3个模块加入工程中即可。
数据的输入输出包括了串行数据的送出、读入、硬件线路的控制/检测及事件的引发与执行等函数;所有函数均有返回值,错误返回值均以常数定义在PComm.pas模块中,如下:(**********
PComm.pas
-- PComm Lib unit for Delphi (32 bit version).
History:  Date      Author        Comment
5/29/98    Casper        Wrote it.
12/11/98  Casper  Update
**********)
unit PComm;
interface
const
{ 波特率设置 baud rate setting }
B50 = $0;
B75 = $1;
B110 = $2;
B134 = $3;
B150 = $4;
B300 = $5;
B600 = $6;
B1200 = $7;
B1800 = $8;
B2400 = $9;
B4800 = $A;
B7200 = $B;
B9600 = $C;
B19200 = $D;
B38400 = $E;
B57600 = $F;
B115200 = $10;
B230400 = $11;
B460800 = $12;
B921600 = $13;
{ 数据位 data bit }
BIT_5 = $0;
BIT_6 = $1;
BIT_7 = $2;
BIT_8 = $3;
{ 停止位 stop bit }
STOP_1 = $0;
STOP_2 = $4;
{ 校验位 parity }
P_EVEN = $18;
P_ODD  = $8;
第 1 页
P_SPC  = $38;
P_MRK  = $28;
P_NONE = $0;
{ 调制解调器控制设置 modem control setting }
C_DTR = $1;
C_RTS = $2;
{ 调制解调器线路状态 modem line status }
S_CTS = $1;
S_DSR = $2;
S_RI  = $4;
write的返回值S_CD  = $8;
{ 错误代码 error code }
SIO_OK          = 0;    //正确
SIO_BADPORT      = -1;  { 没有此端口或端口未打开 No such port or port not opened }
SIO_OUTCONTROL  = -2;  { 无法控制此板 Can't control board }
SIO_NODATA      = -4;  { 没有数据供读取或没有缓冲区供写入 No data to read or no buffer to write }
SIO_OPENFAIL    = -5;  { 没有此端口或端口已打开 No such port or port has opened }
SIO_RTS_BY_HW    = -6;  { 因为H/W流量控制而不能设置RTS Can't set because H/W flowctrl }
SIO_BADPARM      = -7;  { 无效参数 Bad parameter }
SIO_WIN32FAIL    = -8;  (* 调用WIN32函数失败请调用GetLastError函数以获取错误代码 Call win32 function fail, please call }
GetLastError to get the error code *)
SIO_BOARDNOTSUPPORT  = -9;  { 此版不支持这个函数 Board does not support this function}
SIO_FAIL        = -10; {  PCOMM函数执运行结果失败 PComm function run result fail }
SIO_ABORT_WRITE  = -11; { 写入已被锁定,用户也放弃写入 Write has blocked, and user abort write }
SIO_WRITETIMEOUT = -12; { 已发生写入超时 Write timeout has happened }
{ 文件传输错误代码 file transfer error code }
SIOFT_OK          = 0;    //正确
SIOFT_BADPORT      = -1; { 通讯端口不存在或未打开 No such port or port not open }
SIOFT_TIMEOUT      = -2; { 协议超时 Protocol timeout }
SIOFT_ABORT        = -3; { 用户键入的放弃 User key abort }
SIOFT_FUNC        = -4; { 函数返回的放弃 Func return abort }
SIOFT_FOPEN        = -5; { 无法打开文件 Can not open files }
SIOFT_CANABORT    = -6; { YMODEM取消信号终止 Ymodem CAN signal abort }
SIOFT_PROTOCOL    = -7; { 协议错误检测终止 Protocol checking error abort }
SIOFT_SKIP        = -8; { ZMODEM远程忽略此文件 Zmodem remote skip this send file }
SIOFT_LACKRBUF    = -9; { ZMODEM接收缓冲区过小 Zmodem Recv-Buff size must >= 2K bytes }
SIOFT_WIN32FAIL    = -10; (* 操作系统失败 OS fail }
GetLastError to get the error code *) //调用GetLastError函数取得错误代码  SIOFT_BOARDNOTSUPPORT = -11; { 此版不支持这个函数 Board does not support this function}
第 2 页
type
IrqProc = procedure(port: Longint);stdcall;
CallBackProc = function(len: Longint; rlen: Longint; buf: PChar; flen: Longint): Longint;stdcall;
{Import routine from PComm.dll}
function sio_open(port: Longint): Longint; stdcall;  (*打开通讯端口。参数需给定通讯端口号码,}
例如使用COM1就将参数设为1;可设置的范围为1~256。*)
function sio_close(port: Longint): Longint; stdcall;  (*关闭通讯端口,此举会导致所有的传送机接收的动作
都停止。参数为通讯端口号码*)
function sio_ioctl(port, baud, mode: Longint): Longint; stdcall; (*设置传输的参数,需给定的参数有三个,
包括COM端口号、BaudRate、Mode(含Payity、DataBits、SotpBit三项)。
BaudRate设置以下不同的整数代表不同的设置,如下:
----------
| 整数|设置值(bps) ||整数|设置值(bps)| 整数|设置值(bps) ||整数|设置值(bps) |
——————————
|0    | 50          || 5  | 300        | 10  | 4800        || 15 | 57600        |
|1    | 75          || 6  | 600        | 11  | 7200        || 16 | 115200      |
|2    | 110          || 7  | 1200        | 12  | 9600        || 17 | 230400      |
|3    | 134.5        || 8  | 1800        | 13  | 9600        || 18 | 460800      |
|4    | 150          || 9  | 2400        | 14  | 38400        || 19 | 921600      |
----------
Mode参数含有三项,如下所示:
bit_cnt(bit 0,1):
0x00=bit_5
0x01=bit_6
0x02=bit_7
0x03=bit_8
stop_bit(bit 2):
0x00=stop_1
0x04=stop_2
parity(bit 3,4,5):
0x00=none
0x08=odd
0x18=even
0x28=mark
0x38=space
不同的参数使用到不同的位合成,已经都将可能的数值列出,由于有三个参数混在一起,设置前需将
每个所代表的数值先算出来,再用相加的运算加起来代入mode参数即可。*) function sio_flowctrl(port, mode: Longint): Longint; stdcall;  (* 设置软件或硬件流量控制。有两个参数,
第一个是通讯端口号码,第二个是流量控制的设置,如下:
第 3 页
mode=bit 0:CTS flow control
bit 1:RTS flow control
bit 2:Tx XON/XOFF flow control
bit 3:Rx XON/XOFF flow control(0=OFF,1=ON)  *)
function sio_flush(port, func: Longint): Longint; stdcall;    (*清空输入或输出缓冲区。有两个参数,
第一个是通讯端口号码,第二个是清空选项,如下:
func=flush function
0:flush input buffer
1:flush output buffer
2:flush input & output buffer  *)
function sio_DTR(port, mode: Longint): Longint; stdcall;  (* 设置DTR的线路状态。有两个参数,
第一个是通讯端口号码,第二个设0时降低DTR电压,设1时升高DTR电压 *) function sio_RTS(port, mode: Longint): Longint; stdcall;  (* 设置RTS的线路状态。*)
function sio_lctrl(port, mode: Longint): Longint; stdcall;  (* 同时设置DTR和RTS 的线路状态.有两个参数,
第一个是通讯端口号码,第二个是DTR和RTS的组合。*)
function sio_baud(port, speed: Longint): Longint; stdcall;
function sio_getch(port: Longint): Longint; stdcall;      (* 自输入缓冲区中读取一个字符(实际是一个字节)。
有一个参数,即通讯端口号。返回值介于0~255(ASCLL表上的最大数值)。*) function sio_read(port: Longint; buf: PChar; len: Longint): Longint; stdcall;  (* 读取字符串。有三个参数,
其中的一个是端口号;第二个是字节数组地址,用以存放接收到的字节数据;的三个是每一次所读取的数据
长度(字节数)。*)
function sio_linput(port: Longint; buf:PChar; len: Longint; term:Longint): Longint; stdcall;
function sio_putch(port, term: Longint): Longint; stdcall;  (*将一个字符写到输出缓冲区。有两个参数,其一是
端口号,第二是将传送出去的字节(数值0~255)。*)
function sio_putb(port: Longint; buf:PChar; len: Longint): Longint; stdcall; function sio_write(port: Longint; buf:PChar; len: Longint): Longint; stdcall; (*输出字符串。有三个参数,
第一个是端口号;第二是输出字符串的地址;第三是输出字符串的长度。*) function sio_putb_x(port: Longint; buf:PChar; len: Longint; tick:Longint): Longint; stdcall;
function sio_putb_x_ex(port: Longint; buf:PChar; len: Longint; tms:Longint): Longint; stdcall;
function sio_lstatus(port: Longint): Longint; stdcall;  (* 得到现在硬件线路的状
第 4 页
态(DCD、CTS、DSR、RI)。
参数只有一个,通讯端口号码;返回值由0位至第3位分别表示CTS、DSR、RI、CD 四条线的状态。*)
function sio_iqueue(port: Longint): Longint; stdcall;
function sio_oqueue(port: Longint): Longint; stdcall;
function sio_Tx_hold(port: Longint): Longint; stdcall;
function sio_getbaud(port: Longint): Longint; stdcall;
function sio_getmode(port: Longint): Longint; stdcall;
function sio_getflow(port: Longint): Longint; stdcall;
function sio_data_status(port: Longint): Longint; stdcall;
//事件触发函数
function sio_term_irq(port: Longint; func: IrqProc; code: Byte): Longint; stdcall; (*当收到终止字符串时触发事件程序。
有三个参数,1:端口号吗;2:函数地址;3:终止字符。*)
function sio_cnt_irq(port: Longint; func: IrqProc; count: Longint): Longint; stdcall; (* 接收到固定字符时
触发事件。使用手册特别说明必须将字符数设置为1,也就是一有字符进来就触发事件。有三个参数,
1:通讯端口号码;2:函数地址;3:字符数。*)
function sio_modem_irq(port: Longint; func: IrqProc): Longint; stdcall; (*当硬件线路的电压发生变化时
触发事件,硬件线路包括DCD、DSR、CTS、RI这四个引线。有两个参数,1:端口号码;2:函数地址
*)
function sio_break_irq(port: Longint; func: IrqProc): Longint; stdcall; (*当接收到中断信号时,触发事件。
有两个参数;1:端口号;2:函数地址。*)
function sio_Tx_empty_irq(port: Longint; func: IrqProc): Longint; stdcall;(*当传送缓冲区全空时触发事件。
有两个参数;1:端口号;2:函数地址。*)
{PComm针对事件的处理是采用回调函数的方式处理,与建立事件,需给定一个函数的地址,当事件发生时,
PComm变到该函数所在地址去执行该代码。}
{传送给中断服务例程的函数的写法必须依照PCommm Pro的格式,在上面所提到的这些需传送地址的函数中,其参数均是
通讯端口号码,而内容则由工程师自由发挥。 上述的事件中,最有用的是sio_cnt_irq及sio_modem_irq这两个中断
函数。}
function sio_break(port, time: Longint): Longint; stdcall;
function sio_view(port: Longint; buf: PChar; len: Longint): Longint; stdcall; function sio_TxLowWater(port, size: Longint): Longint; stdcall;
function sio_AbortWrite(port: Longint): Longint; stdcall; (*终止输出的动作。有一个参数,即通讯端口号码*)
function sio_AbortRead(port: Longint): Longint; stdcall; (*中断字符或字符串的读
第 5 页

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。