1、 摘 要 该文详细讨论了 MSCOMM.VBX 通信控件在 Windows 平台下的通信软件设计方法,借 助于 Visual Basic 所附的通信控件能非常方便地开发出高级和专业性通信软件来满足不同 业务的需要。关键词 Windows Visual Basic 通信控件 通信软件 在 Windows 操作系统平台上开发通信软件时,虽然 Windows 3.1 SDK 提供了完备的 API 应 用程序接口函数和以中断方式驱动的通信设备驱动程序 COMM.DRV,从而可以用 C 或 C+来完成 这类应用程序的设计,但其复杂化和专业化程度仍然很高。所以,目前许多软件开发人员都 在使用 Micros
2、oft Visual Basic 来开发 Windows 应用程序。本文将详细叙述 VB 环境的通信软 件开发方法,通过对通信控件 MSCOMM.VBX 的分析,我们可以看到利用 VB 来开发 Windows 平台下 的通信软件非常简单。最后结合我们工作中的一个实例来完整地描述该类软件的设计方法 。 一、MSCOMM.VBX 的描述 VB 中的串行通信控件已全面提供了使用 RS-232 来进行数据通信软件开发设计的所有细 则,Microsoft Visual Basic 3.0 中的 MSCOMM.VBX(需要安装在 indowsystem目录下)是 199 2 年 Crescent soft
3、ware Inc. 公司专为 Microsoft 的 VB 平台设计的,它使用以下两种不同的 方式来处理和解决各类通信软件的开发和设计问题。 (1) 事件驱动,它和我们用 C/C+写 Windows 软件时的窗口回调函数类似,是一种功能强 大的处理问题的方法。在实际工作中,往往要求我们处理许多通信中的相关事件。例如:当 线路数据到达本端或 CD(Carrier Detect)和 RTS(Request To Send)信号线状态发生变化时 ,这就要求我们使用相应的事件来跟踪和处理。在该控件中,是使用 OnComm 来实现的,它也包 括检测和处理通信错误等方面的问题。以下是 MSCOMM 详细的
4、错误和事件列表(读者可参阅 S KD 或 MSC/C+ 7.0 等中的 Windows.h 有关的通信部分常数和函数原型): MSCOMM_ER_BREAKA 收到一个 Break signal. MSCOMM_ER_CDTOCD 信号超时 MSCOMM_ER_CTSTOCTS 信号超时 MSCOMM_ER_DSRTODSR 信号超时 MSCOMM_ER_FRAME 帧错误发生 MSCOMM_ER_OVERRUN 接收数据丢失 MSCOMM_ER_RXOVER 接收缓冲器溢出 MSCOMM_ER_RXPARITY 纠验错 MSCOMM_ER_TXFULL 发送缓冲器满 MSCOMM_EV_CD
5、CD 信号改变 MSCOMM_EV_CTSCTS 信号改变 MSCOMM_EV_DSRDSR 信号改变 MSCOMM_EV_EOF 收到一个文本文件结束字符(26) MSCOMM_EV_RING 检测到一个振铃信号 MSCOMM_EV_RECEIVE 接收到设定的字符数时产生该事件 MSCOMM_EV_SEND 发生缓冲器中的字符数低于设定的数值时产生该事件 以上常数定义在 CONSTANT.TXT 文件中。 (2) 查询方式,由程序设计者来负责读取 CommEvent 的值并处理所发生的错误或事件。 正在装载数据通常简单的应用程序设计可采用这种方法。 使用通信控件开发通信软件时,能非常简单地
6、设计出同时访问多个通信口的程序,这就 是 Windows 的好处。例如使用 Commi.OnComm,其中 1in(n:当前可用的通信口),就可以设 计多个通信串口处理程序。例如,一个基于电话网用来检索信息资料的小型服务器的后台软 件的设计应用就是一个很好的例子。MSCOMM.VBX 中提供了 27 个关于通信控件方面的属性,以 下列出最重要的几个: CommPort 设置和返回通信口的数目 Settings 设置和返回以字符串形式给出的数据通信格式:波特率,校验,数据位和停止 位 PortOpen 设置和返回通信口的状态(包括打开和关闭一个通信口) Input 读串行数据接收缓冲器 Outp
7、ut 发送一个串 在 MSCOMM.VBX 中,有两个与 Input 和 Output 性质相等同的函数; (1) 输入函数,从串行通信接收缓冲器中读取字符串,句型如下: Comlnput(By Val hWnd As Integer, lpData As Any,By Val cbData As Integer) A s Integer T8S14200.GIF;图 1 返回值:本次读操作实际读取的字符数 (2) 输出函数,向通信口发送一个字符串,句型如下:ComOutput(By Val hWnd As Inte ger, lpData As Any,By Val cbData As In
8、teger) As integer T8S14201.GIF;图 2 返回值:本次写操作实际发送的字符数 二、事件驱动和查询方式下的两种通信软件开发模板 这两种方式分别对应我们通常使用汇编或 C/C+来写通信程序中的中断和查询方法。 (1) 事件驱动 下例是一个使用事件驱动方式设计通信程序的模板,我们只需根据自己的实际情况来选 择在下列的 Case 语句中插入相应的代码即可。 Sub Comm_OnComm() Select Case Commi.CommEventi=1,2. 错误部分 Case MSCOMM-ER_BREAK插入处理 BREAK 代码 Case MSCOMM-ER_CDTO
9、插入处理 CD(RLSD)超时代码 Case MSCOMM-ER_CTSTO插入处理 CTS 超时代码 Case MSCOMM-ER_DSRTO插入处理 DSR 超时代码 Case MSCOMM-ER_FRAME插入处理帧错误代码 Case MSCOMM-ER_OVERRUN插入处理数据丢失代码 Case MSCOMM-ER_RXOVER插入处理接收缓冲器溢出代码 Case MSCOMM-ER_RXPARITY插入处理校验错误代码 Case MSCOMM-ER_TXFULL插入处理发送缓冲器满代码 事件部分 Case MSCOMM-EV_CD插入处理 CD 信号改变代码 Case MSCOMM
10、-EV_CTS插入处理 CTS 信号改变代码 Case MSCOMM-EV_DSR插入处理 DST 信号改变代码 Case MSCOMM-EV_EOF插入处理收到一个文本文件结束字(26)代码 Case MSCOMM-EV_RING插入处理检测到一个振铃信号代码 Case MSCOMM-EV_RECEIVE插入接收到设定的字符数时产生该事件代码 Case MSCOMM-EV_SEND插入处理发生缓冲器中的字符数低于设定的数值时产生该 事件的代码 End Select End Sub (2) 查询方式 查询方式,就是每个命令(含数据块)都要查询等待对它的回答。详细使用方法请见下文 的实例叙述。
11、三、一个完整例子 该程序的设计背景是全军医药信息网上电话拨号用户前台软件中的自动拨号部分,为节 省篇幅和说明问题,这里进行了重新编辑,但其本身是完整的。该程序帮助主人进行电话拨 号以呼通被叫。 调试环境:LEO 486/50,HiTec MODEM,院内电话脉冲拨号,使用串行口 1,PWIN 3.1 程序 Form 由下列部分组成:List1 电话号码显示列表;Label1 拨号状态显示;Dial,Canc el, Quit 三个按钮;MSCOMM.VBX 通信控件。 - Visual Basic 3.0 MSCOMM.VBX 程序设计:使用 MODEM 拨号,人工通话 程序名:MDIALER
12、.TXT 军事医学科学院计算中心 夏云,1995.2.12 运行:使用 VB FILE 中的 Load Text 项装入,按 F5 或生成.EXE 文件运行 - Option Explicit Dim PhoneNumbers$()电话号码存储变量 Dim CancelFlagCancel 按钮状态标志 Sub Dial(Number$)拨号例程 Dim DialString$,FromModem$,dummy 根据脉冲/双音多频拨号方式来选择 DT/DP; 所拨号码存放在变量 PhoneNumbers$(Index)中; 命令中的分号表示 MODEM 在拨号后重新回到命令状态; 每个命令由回
13、车符 Chr$(13)结束; DialString$=“ATDT“+Number$+“;“+Chr$(13) Commi.Settings=“2400,N,8,1“设置帧格式 On Error Resume Next错误恢复 Commi.PortOpen=True启动该口工作 If Err Then如果该口不可启动,则显示信息 MsgBox“当前串行通信端口不能工作,请选择使用另外端口。” Exit Sub End if Commi.InBufferCount=0清除接收缓冲器 Commi.Output=DialString$开始拨号 Do等待 MODEM 返回“OK”回答 dummy=DoE
14、vents()进入等待方式,将资源提交系统管理 If Commi.InBufferCount Then若接收缓冲器中有数据存在,则读 FromModem$=FromModem$+Commi.Input If InStr(FromModem$,“OK“)Then 是否接收到“OK” Beep已经接收到“OK”,发蜂呜声 MsgBox“对方电话已经拨通,请摘话机并按回车或 OK 钮” Exit Do End If End If If CancelFlag Then若 Cancel 钮按下则处理 CancelFlag=False Exit Do End If Loop Commi.Output=“A
15、TH“+Chr$(13)挂断命令 Commi.PortOpen=False关闭该口 End Sub Sub DialButton_Click()Dial 按钮处理程序 Dim Number$,Temp$ DialButton.Enabled=FalseDial,Quit 二个按钮同时无效 QuitButton.Enabled=False CancelButton.Enabled=True开放 Cancel 按钮 Number$=PhoneNumbers$(List1.ListIndex)获得一个电话号码 Temp$=Status保存状态 Status$=“正在拨号码:”+Number$ Dia
16、l Number$拨号例程执行 DialButton.Enabled=True拨号结束开放 Dail,Quit 按钮 DialButton.Enabled=True CancelButton.Enabled=False禁止 Cancel 按钮 Status=Temp$恢复状态 End Sub Sub Form_Load() Commi.InputLen=0设置 0 值:读全部接收缓冲器内容 MDialer.Show显示窗口 List1.AddItem“四环医学研究院计算中心” List1.AddItem“军事医学科学院情报所张华研究员” ReDim PhoneNumbers$(0 To Lis
17、t1.ListCount-1) PhoneNumbers$(0)=“1-8233296“ PhoneNumber$(1)=“1-8232255“ List1.ListIndex=0默认第一个号码 End Sub Sub List1-DblClick()列表框选择号码启动拨号 DialButton-Click End Sub Sub CancelButton-Click()Cancel 按钮处理程序 CancelFlag=True标识 Cancel 钮已按下 CancelButton.Enabled=False取消该钮继续活动 End Sub Sub QuitButton-Click()Quit
18、 按钮 End结束 End Sub MSCOMM.VBX 对开发 Windows 平台下的通信软件的确方便容易,使用事件驱动能设计良好 的后台通信程序、开发终端仿真软件和解决更复杂的实际问题。该通信控件不但包括了全 部 Windows API 中关于串行通信的 16 个函数所完成的功能,而且开拓了更多的使用户设计方 便的对象属性来满足不同用户不同业务的需求。因此我们可以应用上文讨论的内容和方法 ,利用 Windows 环境,使用 VB 工具来开发设计所有串行通信的软件。另外,MSCOMM 为了能在下 一个高速调制解调设备标准中直接使用,它提供了 14.4Kbps 一档的速率接口。 (作者地址:北京太平路 27 号计算中心,100039;收稿日期:1995 年 3 月)
