在VFP6.0中控制串行端口传输和接收

[摘要]本文详述ActiveX的MSComm控件在VFP6.0中实现控制串行端口操作方法,并提供具体实现的样本源程序。

[关键词] ActiveX 控件 MSComm OLE

1. 引言

VFP6.0提供了一个非常完整的OLE(对象链接嵌入)的环境,扩展了它与其他应用程序之间进行数据交换的手段和能力, 本文详述ActiveX的MSComm控件实现的串行端口传输和接收方法,同样也支持VB6.0和WEB程序。

2. 安装相应的ActiveX 控件

当您在平台上安装好VFP6.0时,就包含了本文的ActiveX控件,而且也注册(Register)在平台中,所以您可在VFP6.0环境中主菜单的工具(TOOL)栏,单击选项(O),找到控件项,在点击ActiveX控件,选择(Microsoft Communications Control) 后,按确定键返回。下图为设计的样本：

按钮对象 Click Event 事件过程的内容

ThisForm.Olecontrol2.portopen=.T.

通信控件Olecontrol2 的 OnComm事件过程的内容

*** ActiveX 控件事件 ***

ThisForm.Text1.value=ThisForm.Olecontrol2.input

三. 通信控件Olecontrol2(MSComm 控件)属性说明

MSComm控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。它提供下列两种处理通讯的方式：

事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。在许多情况下，在事件发生时需要得到通知，例如，在 Carrier Detect (CD) 或 Request To Send (RTS) 线上一个字符到达或一个变化发生时。在这些情况下，可以利用 MSComm 控件的 OnComm 事件捕获并处理这些通讯事件。OnComm 事件还可以检查和处理通讯错误。所有通讯事件和通讯错误的列表，参阅 CommEvent 属性。

在程序的每个关键功能之后，可以通过检查 CommEvent 属性的值来查询事件和错误。如果应用程序较小，并且是自保持的，这种方法可能是更可取的。例如，如果写一个简单的读写端口程序，则没有必要对每接收一个字符都产生事件

每个使用的 MSComm 控件对应着一个串行端口。如果应用程序需要访问多个串行端口，必须使用多个 MSComm 控件。可以在 Windows“控制面板”中改变端口地址和中断地址。

尽管 MSComm 控件有很多重要的属性，但首先必须熟悉几个属性。

属性	描述
CommPort	设置并返回通讯端口号。
Settings	以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。
PortOpen	设置并返回通讯端口的状态。也可以打开和关闭端口。
InputLen	设置并返回 Input 属性从接收缓冲区读取的字符数。
Input	从接收缓冲区返回和删除字符
Output	向传输缓冲区写一个字符串。

1. CommPort 属性(设置并返回通讯端口号。)

语法 : object.CommPort[ = value ]

CommPort 属性语法包括下列部分：

部 分	描 述
Value	一整型值，说明端口号。
Object	对象表达式，其值是“应用于”列表中的对象。

说明:

在设计时，value 可以设置成从 1 到 16 的任何数（缺省值为 1）。但是如果用

PortOpen 属性打开一个并不存在的端口时，MSComm 控件会产生错误 68（设备无效）。

警告: 必须在打开端口之前设置 CommPort 属性。

2. Settings 属性(设置并返回波特率、奇偶校验、数据位、停止位参数。)

语法 : object.Settings[ = value]

Settings 属性语法包括下列部分：

部 分 描 述

---

object 对象表达式，其值是“应用于”列表中的对象。

value 字符串表达式，说明通讯端口的设置值，如下所述。

Settings 示例

下面的例子设置控件端口通讯，波特率 9600，无奇偶校验检查，8 个数据位，1 个停止位：

MSComm1.Settings = "9600,N,8,1"

说明:

当端口打开时，如果 value 非法，则 MSComm 控件产生错误 380（非法属性值）。

Value 由四个设置值组成，有如下的格式："BBBB,P,D,S"

a)BBBB 为波特率，P 为奇偶校验，D 为数据位数，S 为停止位数。value 的缺省值是：

"9600,N,8,1"

合法的波特率：设置值 110,300,600,1200,2400,9600缺省,14400

19200 ,28800 ,38400 ,56000 ,128000 ,256000

b)合法的奇偶校验值。设置值 E 偶数(Even) ,M 标记(Mark) ,N 缺省(Default) None

O 奇数 (Odd) ,S 空格 (Space)

c)合法的数据位值。设置值 4 ,5 ,6 ,7 ,8（缺省）

d)合法的停止位值。设置值 1（缺省）, 1.5 ,2

3. PortOpen 属性:设置并返回通讯端口的状态（开或关）。在设计时无效。

语法 : object.PortOpen[ = value]

PortOpen 属性语法包括下列部分：

部 分 描 述

---

object 对象表达式，其值是“应用于”列表中的对象。

value 布尔表达式，说明通讯端口的状态。

value 设置值是：True 端口开,False 端口关

下例以波特率 9600 打开 1 号通讯端口，没有奇偶检查，8 个数据位，1 个停止位。

MSComm1.Settings = "9600,n,8,1"

MSComm1.CommPort = 1

MSComm1.PortOpen = True

说明

设置 PortOpen 属性为 True 打开端口。设置为 False 关闭端口并清除接收和传输

缓冲区。当应用程序终止时，MSComm 控件自动关闭串行端口。

在打开端口之前，确定 CommPort 属性设置为一个合法的端口号。如果 CommPort

属性设置为一个非法的端口号，则当打开该端口时，MSComm 控件产生错误 68（设

备无效）。

另外，串行端口设备必须支持 Settings 属性当前的设置值。如果 Settings 属性包含硬件不支持的通讯设置值，那么硬件可能不会正常工作。

如果在端口打开之前，DTREnable 或 RTSEnable 属性设置为 True，当关闭端口时，该属性设置为 False。否则，DTR 和 RTS 线保持其先前的状态。

4. InputLen 属性: 设置并返回 Input 属性从接收缓冲区读取的字符数。

语法 : object.InputLen [ = value]

InputLen 属性语法包括下列部分：

部 分 描 述

---

object 对象表达式，其值是“应用于”列表中的对象。

value 整型表达式，说明 Input 属性从接收缓冲区中读取的字符数。

说明:

InputLen 属性的缺省值是 0。设置 InputLen 为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。

若接收缓冲区中 InputLen 字符无效，Input 属性返回一个零长度字符串 ("")。在使用 Input 前，用户可以选择检查 InBufferCount 属性来确定缓冲区中是否已有需要数目的字符。

该属性在从输出格式为定长数据的机器读取数据时非常有用。

5. Output 属性:往传输缓冲区写数据流。该属性在设计时无效，在运行时为只读。

语法: object.Output [ = value ]

Output 属性语法包括下列部分：

部 分 描 述

---

object 对象表达式，其值是“应用于”列表中的对象。

value 要写到传输缓冲区中的一个字符串。

Output 属性示例

下面的例子说明如何将用户键入的每一个字符送到串行端口：

文本框对象 KeyPress Event 事件过程的内容

LPARAMETERS nKeyCode, nShiftAltCtrl

Buffer=’ ’

MSComm1.CommPort = 1

MSComm1.PortOpen = True

Buffer = Chr(nKeyCode)

MSComm1.Output = Buffer

说明

Output 属性可以传输文本数据或二进制数据。用 Output 属性传输文本数据，必须定义一个包含一个字符串。发送二进制数据，必须传递一个包含字节数组的 Variant 到 Output 属性。

正常情况下，如果发送一个 ANSI 字符串到应用程序，可以以文本数据的形式发送。如果发送包含嵌入控制字符、Null 字符等等的数据，要以二进制形式发送。

总之,OLE技术应用是Microsoft所强调和大力推广的技术.通过以上的介绍您可发现,将来在各种平台,各种开发工具,应用系统,Internet或Intranet等应用技术中,都可发现OLE技术的应用,它已经是达到”软件IC组件”境界的一条宽阔大道!

（作者：吕建锋责任编辑：）