Pcomm Pro (串口通讯库) Delphi 使用参考说明

在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;

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;

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}

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; (* 设置软件或硬件流量控制。有两个参数，

第一个是通讯端口号码，第二个是流量控制的设置，如下：

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; (* 得到现在硬件线路的状态（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; (*中断字符或字符串的读取。有一个参数，端口号*)

function sio_SetWriteTimeouts(port, timeouts: Longint): Longint; stdcall;

function sio_GetWriteTimeouts(port: Longint; var TotalTimeouts:Longint): Longint; stdcall;

function sio_SetReadTimeouts(port, TotalTimeouts, IntervalTimeouts: Longint): Longint; stdcall;

function sio_GetReadTimeouts(port: Longint; var TotalTimeouts, IntervalTimeouts: Longint): Longint; stdcall;

//文件传输函数

function sio_FtASCIITx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用ASCII协议传送文件。参数4个：第一个是端口号码；第二个是传送的文件名；第三个是回调函数，用来指明传输的

相关状态；第四个是用户定义的取消快速键}

function sio_FtASCIIRx(port:Longint; fname:PChar; func:CallBackProc; key:Longint; sec:Longint): Longint; stdcall;

{使用ASCII协议接收文件。参数5个，第一个是端口号码；第二个是文件名称；第三个是回调函数，用来指明传输的

相关状态；第四个是用户定义的取消快速键；第五个是以秒计的超时时间}

function sio_FtXmodemCheckSumTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用XMODEM，Checksum协议传送文件。有四个参数：第一个是端口号；第二个是文件名；第三个是回调函数；

第四个是用户定义的取消快速键}

function sio_FtXmodemCheckSumRx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用XMODEM，Checksum协议接收文件。有四个参数：第一个是端口号；第二个是文件名；第三个是回调函数；

第四个是用户定义的取消快速键}

function sio_FtXmodemCRCTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用XMODEM，CRC协议传送文件。有四个参数：第一个是端口号；第二个是文件名；第三个是回调函数；

第四个是用户定义的取消快速键}

function sio_FtXmodemCRCRx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用XMODEM，CRC协议接收文件。有四个参数：第一个是端口号；第二个是文件名；第三个是回调函数；

第四个是用户定义的取消快速键}

function sio_FtXmodem1KCRCTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用XMODEM，1K CRC协议传送文件。有四个参数：第一个是端口号；第二个是文件名；第三个是回调函数；

第四个是用户定义的取消快速键}

function sio_FtXmodem1KCRCRx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用XMODEM，1K CRC协议接收文件。有四个参数：第一个是端口号；第二个是文件名；第三个是回调函数；

第四个是用户定义的取消快速键}

function sio_FtYmodemTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用YXMODEM协议传送文件。有4个参数：第一个是端口号；第二个是文件名；第三个是回调函数；

第四个是用户定义的取消快速键}

function sio_FtYmodemRx(port:Longint; var fname:PChar;fno:LongInt;func:CallBackProc; key:Longint): Longint; stdcall;

{使用YXMODEM协议接收文件。有5个参数：第一个是端口号；第二个是文件数据数组地址；第三个是可接收的最多文件数；

第四个是回调函数；第五个是用户定义的取消快速键}

function sio_FtZmodemTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用ZXMODEM协议传送文件。有4个参数：第一个是端口号；第二个是文件名；第三个是回调函数；

第四个是用户定义的取消快速键}

function sio_FtZmodemRx(port:Longint; var fname:PChar;fno:LongInt;func:CallBackProc; key:Longint): Longint; stdcall;

{使用ZXMODEM协议接收文件。有5个参数：第一个是端口号；第二个是文件数据数组地址；第三个是可接收的最多文件数；

第四个是回调函数；第五个是用户定义的取消快速键}

function sio_FtKermitTx(port:Longint; fname:PChar; func:CallBackProc; key:Longint): Longint; stdcall;

{使用Kermit协议传送文件。有4个参数：第一个是端口号；第二个是文件名；第三个是回调函数；

第四个是用户定义的取消快速键}

function sio_FtKermitRx(port:Longint; var fname:PChar;fno:LongInt;func:CallBackProc; key:Longint): Longint; stdcall;

{使用Kermit协议接收文件。有5个参数：第一个是端口号；第二个是文件数据数组地址；第三个是可接收的最多文件数；

第四个是回调函数；第五个是用户定义的取消快速键}

implementation

function sio_open; external 'PComm.dll';

function sio_close; external 'PComm.dll';

function sio_ioctl; external 'PComm.dll';

function sio_flowctrl; external 'PComm.dll';

function sio_flush; external 'PComm.dll';

function sio_DTR; external 'PComm.dll';

function sio_RTS; external 'PComm.dll';

function sio_lctrl; external 'PComm.dll';

function sio_baud; external 'PComm.dll';

function sio_getch; external 'PComm.dll';

function sio_read; external 'PComm.dll';

function sio_linput; external 'PComm.dll';

function sio_putch; external 'PComm.dll';

function sio_putb; external 'PComm.dll';

function sio_write; external 'PComm.dll';

function sio_putb_x; external 'PComm.dll';

function sio_putb_x_ex; external 'PComm.dll';

function sio_lstatus; external 'PComm.dll';

function sio_iqueue; external 'PComm.dll';

function sio_oqueue; external 'PComm.dll';

function sio_Tx_hold; external 'PComm.dll';

function sio_getbaud; external 'PComm.dll';

function sio_getmode; external 'PComm.dll';

function sio_getflow; external 'PComm.dll';

function sio_data_status; external 'PComm.dll';

function sio_term_irq; external 'PComm.dll';

function sio_cnt_irq; external 'PComm.dll';

function sio_modem_irq; external 'PComm.dll';

function sio_break_irq; external 'PComm.dll';

function sio_Tx_empty_irq; external 'PComm.dll';

function sio_break; external 'PComm.dll';

function sio_view; external 'PComm.dll';

function sio_TxLowWater; external 'PComm.dll';

function sio_AbortWrite; external 'PComm.dll';

function sio_AbortRead; external 'PComm.dll';

function sio_SetWriteTimeouts; external 'PComm.dll';

function sio_GetWriteTimeouts; external 'PComm.dll';

function sio_SetReadTimeouts; external 'PComm.dll';

function sio_GetReadTimeouts; external 'PComm.dll';

function sio_FtASCIITx; external 'PComm.dll';

function sio_FtASCIIRx; external 'PComm.dll';

function sio_FtXmodemCheckSumTx; external 'PComm.dll';

function sio_FtXmodemCheckSumRx; external 'PComm.dll';

function sio_FtXmodemCRCTx; external 'PComm.dll';

function sio_FtXmodemCRCRx; external 'PComm.dll';

function sio_FtXmodem1KCRCTx; external 'PComm.dll';

function sio_FtXmodem1KCRCRx; external 'PComm.dll';

function sio_FtYmodemTx; external 'PComm.dll';

function sio_FtYmodemRx; external 'PComm.dll';

function sio_FtZmodemTx; external 'PComm.dll';

function sio_FtZmodemRx; external 'PComm.dll';

function sio_FtKermitTx; external 'PComm.dll';

function sio_FtKermitRx; external 'PComm.dll';

end.

；==========

数字输入/输出控制例程：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

rdCOM: TRadioGroup;

Label1: TLabel;

Label2: TLabel;

btnOpenPort: TButton;

btnEnd: TButton;

spCD: TShape;

spDSR: TShape;

spCTS: TShape;

Label3: TLabel;

Label4: TLabel;

spRI: TShape;

Timer1: TTimer;

spDTR: TShape;

Label5: TLabel;

Label6: TLabel;

spRTS: TShape;

btnDTR: TButton;

btnRTS: TButton;

procedure btnOpenPortClick(Sender: TObject);

procedure btnEndClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure btnDTRClick(Sender: TObject);

procedure btnRTSClick(Sender: TObject);

private

public

{ Public declarations }

end;

var

Form1: TForm1;

DTRMode,RTSMode,Port:Integer;

Function PortSet():Boolean;

implementation

uses PComm,MxTool,EXGLOBAL; //PCOmm引用声明放于此

{$R *.DFM}

//以下是打开通信端口的程序

procedure TForm1.btnOpenPortClick(Sender: TObject);

var

Ret:Integer;

begin

//打开通信端口

Port := rdCom.ItemIndex+1; //指定通信端口

Ret := sio_Open(Port);

If ret <> SIO_OK Then

begin

ShowMessage('打开通信端口错误');

sio_close (Port);

Exit;

end;

If Not PortSet() Then //参数设置

begin

sio_close(Port);

ShowMessage('通信端口参数设置发生错误');

Exit;

End;

//降低DTR及RTS的电压

ret := sio_DTR(Port, 0);

ret := sio_RTS(Port, 0);

//激活定时器

Timer1.Enabled := True;

end;

//以下是结束按钮的动作

procedure TForm1.btnEndClick(Sender: TObject);

begin

//关闭通信端口

sio_Close(Port);

//结束程序

close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

Ret:Integer;

begin

ret := sio_lstatus(Port);//读取状态

If ret < 0 Then

begin

ShowMessage('状态错误');

Timer1.Enabled := False;

end

Else

begin

//各线路状态检查

If (ret And S_DSR) > 0 Then

spDSR.Brush.Color := clRed

Else

spDSR.Brush.Color := clWhite;

If (ret And S_CD) > 0 Then

spCD.Brush.Color := clRed

Else

spCD.Brush.Color := clWhite;

If (ret And S_RI) > 0 Then

spRI.Brush.Color := clRed

Else

spRI.Brush.Color := clWhite;

If (ret And S_CTS) > 0 Then

spCTS.Brush.Color := clRed

Else

spCTS.Brush.Color := clWhite;

End;

end;

procedure TForm1.btnDTRClick(Sender: TObject);

var

ret:Integer;

begin

//计算DTR线路状态

DTRMode := (DTRMode + 1) Mod 2 ;

If DTRMode = 1 Then

spDTR.Brush.Color:=clRed

Else

spDTR.Brush.Color:=clWhite;

//控制DTR线路状态

ret := sio_DTR(Port, DTRMode);

If ret <> SIO_OK Then

begin

ShowMessage('DTR控制错误');

Exit;

end;

procedure TForm1.btnRTSClick(Sender: TObject);

var

ret:Integer;

begin

//计算RTS状态

RTSMode := (RTSMode + 1) Mod 2 ;

If RTSMode = 1 Then

spRTS.Brush.Color:=clRed

Else

spRTS.Brush.Color:=clWhite;

//控制RTS状态

ret := sio_RTS(Port, RTSMode);

If ret <> SIO_OK Then

begin

ShowMessage('RTS控制错误');

Exit;

end;

//以下是通信参数的函数实现

Function PortSet():Boolean;

var

mode,Hw,Sw,ret,tout:LongInt;

begin

//参数设置子程序

mode := P_NONE Or BIT_8 Or STOP_1;

Hw := 0 ; //没有硬件流量控制

Sw := 0 ; //没有软件流量控制

Result := False ;

ret := sio_ioctl(Port, B38400, mode); //Setting

If ret <> SIO_OK Then

begin

ShowMessage('设置时发生错误');

Exit;

end;

ret := sio_flowctrl(Port, Hw or Sw); //Flow Control

If ret <> SIO_OK Then

begin

ShowMessage('流量设置时发生错误');

Exit;

end;

Result := True;

End;

end.

；==========

数据的传送例程：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

rdCOM: TRadioGroup;

btnOpenPort: TButton;

btnEnd: TButton;

btnSend: TButton;

btnReceive: TButton;

mSend: TMemo;

mReceive: TMemo;

procedure btnOpenPortClick(Sender: TObject);

procedure btnEndClick(Sender: TObject);

procedure btnSendClick(Sender: TObject);

procedure btnReceiveClick(Sender: TObject);

private

public

{ Public declarations }

end;

var

Form1: TForm1;

DTRMode,RTSMode,Port:Integer;

Function PortSet():Boolean;

implementation

uses PComm,MxTool,EXGLOBAL; //PCOmm引用声明放于此

{$R *.DFM}

//以下是打开通信端口的程序

procedure TForm1.btnOpenPortClick(Sender: TObject);

var

Ret:Integer;

begin

//打开通信端口

Port := rdCom.ItemIndex+1; //指定通信端口

Ret := sio_Open(Port);

If ret <> SIO_OK Then

begin

ShowMessage('打开通信端口错误');

sio_close (Port);

Exit;

end;

If Not PortSet() Then //参数设置

begin

sio_close(Port);

ShowMessage('通信端口参数设置发生错误');

Exit;

End;

//降低DTR及RTS的电压

ret := sio_DTR(Port, 0);

ret := sio_RTS(Port, 0);

end;

//以下是结束按钮的动作

procedure TForm1.btnEndClick(Sender: TObject);

begin

//关闭通信端口

sio_Close(Port);

//结束程序

close;

end;

procedure TForm1.btnSendClick(Sender: TObject);

var

TxtStr:String;

begin

//输出字符串指定

TxtStr := mSend.Text;

//把Pascal字符串转成C字符串后送出

sio_write(Port, PChar(TxtStr), Length(TxtStr))

end;

procedure TForm1.btnReceiveClick(Sender: TObject);

var

rLen:LongInt;

PBuf:PChar;

Buf:String;

begin

//给一个空间存数据，一定要有

PBuf := PChar(StringOfChar(' ',1024));

rlen := sio_read(Port,PBuf , 1024); //读取数据

If rlen = 0 Then Exit; //若无数据则跳出

Buf := StrPas(PBuf);

Buf := Copy(Buf,1,rlen);

//将数据显示在Memo中

mReceive.Text := mReceive.Text + Buf;

mReceive.SelStart := Length(mReceive.Text);

mReceive.SelLength := 0;

end;

//以下是通信参数的函数实现

Function PortSet():Boolean;

var

mode,Hw,Sw,ret:LongInt;

begin

//参数设置子程序

mode := P_NONE Or BIT_8 Or STOP_1;

Hw := 0 ; //没有硬件流量控制

Sw := 0 ; //没有软件流量控制

Result := False ;

ret := sio_ioctl(Port, B38400, mode); //Setting

If ret <> SIO_OK Then

begin

ShowMessage('设置时发生错误');

Exit;

end;

ret := sio_flowctrl(Port, Hw or Sw); //Flow Control

If ret <> SIO_OK Then

begin

ShowMessage('流量设置时发生错误');

Exit;

end;

Result := True;

End;

end.

；==========

事件触发例程：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

rdCOM: TRadioGroup;

Label1: TLabel;

Label2: TLabel;

btnOpenPort: TButton;

btnEnd: TButton;

spCD: TShape;

spDSR: TShape;

spCTS: TShape;

Label3: TLabel;

Label4: TLabel;

spRI: TShape;

mSend: TMemo;

mReceive: TMemo;

Label5: TLabel;

Label6: TLabel;

procedure btnOpenPortClick(Sender: TObject);

procedure btnEndClick(Sender: TObject);

Function PortSet():Boolean;

Procedure ClearIrq();

Function InitIrq():Boolean;

procedure mSendKeyPress(Sender: TObject; var Key: Char);

private

public

{ Public declarations }

end;

var

Form1: TForm1;

DTRMode,RTSMode,Port:Integer;

Procedure CntIrq(iPort:LongInt);stdcall;

Procedure ModemIrq(iPort:LongInt);stdcall;

implementation

uses PComm,MxTool,EXGLOBAL; //PCOmm引用声明放于此

{$R *.DFM}

//以下是打开通信端口的程序

procedure TForm1.btnOpenPortClick(Sender: TObject);

var

Ret:Integer;

begin

//打开通信端口

Port := rdCom.ItemIndex+1; //指定通信端口

Ret := sio_Open(Port);

If ret <> SIO_OK Then

begin

ShowMessage('打开通信端口错误');

sio_close (Port);

Exit;

end;

If Not PortSet() Then //参数设置

begin

sio_close(Port);

ShowMessage('通信端口参数设置发生错误');

Exit;

End;

//降低DTR及RTS的电压

ret := sio_DTR(Port, 0);

ret := sio_RTS(Port, 0);

//设置中断

if not InitIrq then

begin

sio_close(Port);

ShowMessage('通信端口参数设置发生错误');

Exit;

end;

//以下是结束按钮的动作

procedure TForm1.btnEndClick(Sender: TObject);

begin

//关闭通信端口

ClearIrq;

sio_Close(Port);

//结束程序

close;

end;

//以下是通信参数的函数实现

Function TForm1.PortSet():Boolean;

var

mode,Hw,Sw,ret:LongInt;

begin

//参数设置子程序

mode := P_NONE Or BIT_8 Or STOP_1;

Hw := 0 ; //没有硬件流量控制

Sw := 0 ; //没有软件流量控制

Result := False ;

ret := sio_ioctl(Port, B38400, mode); //Setting

If ret <> SIO_OK Then

begin

ShowMessage('设置时发生错误');

Exit;

end;

//设置流量控制

ret := sio_flowctrl(Port, Hw or Sw); //Flow Control

If ret <> SIO_OK Then

begin

ShowMessage('流量设置时发生错误');

Exit;

end;

Result := True;

End;

//准备被调用的回调函数，此函数必须独立，不可放进窗体

//此函数用来接收它方所传送过来的数据

Procedure CntIrq(iPort:LongInt);stdcall;

var

rLen:LongInt;

PBuf:PChar;

Buf:String;

begin

//给一个空间存数据，一定要有

PBuf := PChar(StringOfChar(' ',1024));

rlen := sio_read(iPort,PBuf , 1024); //读取数据

If rlen = 0 Then Exit; //若无数据则跳出

Buf := StrPas(PBuf);

Buf := Copy(Buf,1,rlen);

//将数据显示在Memo中，并将光标拉至最低处

Form1.mReceive.Text := Form1.mReceive.Text + Buf;

Form1.mReceive.SelStart := Length(Form1.mReceive.Text);

Form1.mReceive.SelLength := 0;

end;

//准备被调用的回调函数，此函数必须独立，不可放进窗体

//此函数用来检测硬件线路状态

Procedure ModemIrq(iPort:LongInt);stdcall;

var

ret:integer;

begin

ret := sio_lstatus(iPort); //读取状态

If ret < 0 Then

ShowMessage('状态错误')

Else

//以下依状况改变灯号的颜色

begin

If (ret And S_DSR) > 0 Then

Form1.spDSR.Brush.Color := clRed

Else

Form1.spDSR.Brush.Color := clWhite;

If (ret And S_CD) > 0 Then

Form1.spCD.Brush.Color := clRed

Else

Form1.spCD.Brush.Color := clWhite;

If (ret And S_RI) > 0 Then

Form1.spRI.Brush.Color := clRed

Else

Form1.spRI.Brush.Color := clWhite;

If (ret And S_CTS) > 0 Then

Form1.spCTS.Brush.Color := clRed

Else

Form1.spCTS.Brush.Color := clWhite;

End ;

//中断的初始化函数

//在此指定了Count的中断及硬件线路的中断

Function TForm1.InitIrq():Boolean;

var

ret:LongInt;

begin

Result := False;

ret := sio_cnt_irq(Port, CntIrq, 1); //指定接收事件中断

If ret <> SIO_OK Then

begin

ShowMessage('事件设置时发生错误-cntIrq');

Exit;

End;

ret := sio_modem_irq(Port, ModemIrq); //指定硬件线路中断

If ret <> SIO_OK Then

begin

ShowMessage('事件设置时发生错误-ModemIrq');

Exit;

End;

Result := True

End ;

//中断的清除

//将原先设置的中断全部清除掉

Procedure TForm1.ClearIrq();

var

ret:LongInt;

begin

sio_cnt_irq(Port, nil, 0);

sio_modem_irq(Port,nil);

End;

//将输入的字符送出

procedure TForm1.mSendKeyPress(Sender: TObject; var Key: Char);

begin

//送出字符

sio_putch(Port,Ord(Key));

end;

end.