一、前言

　　本文将以VB5.0所带的通信控件MSCOMM进行通信软件的开发，它有约30个属性和事件（可以从联机帮助中找到其使用资料）。本文简述它的主要属性及事件，并归类整理。

　　利用串行端口与调制解调器进行连接时，对于用MSCOMM控件编制通信软件来说，只需了解以下五根线的代号及作用。以下五根线的高电平/低电平状态分别对应MScomm控件的相应属性的True/False值。

　　(1)DTR线：PC发往MODEM，表示PC机是否已准备好。

　　(2)RTS线：PC发往MODEM，表示PC机是否允许modem发回数据.

　　(3)DSR线:MODEM发往PC,表示MODEM是否已做好操作准备

　　(4)CTS线:MODEM发往PC,表示MODEM是否允许发送数据

　　(5)CD线:MODEM发往PC,表示MOEDM已经与呼叫的远方MODEM处于连结状态

　　二、MSCOMM控件的属性

　　属性

　　值

　　作用

　　CommPort

　　用1,2,...表示串口COM1,COM2....

　　设置或返回联接MODEM的串口的编号

　　Settings

　　例用"19200,N,8,1"表示传输速率为19200bps,没有奇偶校验位，8位数据位，1位停止位。

　　设置或返回通信参数。

　　Handshaking

　　0没有握手协议，不考虑流量控制。

　　1XON/XOFF,即在数据流中嵌如控制苻来进行流控。

　　2RTS/CTS,既由信号线RTS/CTS自动进行流量控制（常用）。

　　3两者皆可。

　　设置或返回硬件握手协议，指的是PC机MODEM之间为了控制流速而约定的内部协议。

　　PortOpen

　　True/False可以打开/关闭端口。

　　打开或关闭端口。

　　OutBufferSize

　　传输缓冲区的字节数,如选1024。

　　设置或返回传输缓冲区大小。

　　OutPut

　　Variant型变量。

　　向传输缓冲区写数据流。

　　传输文本数据时,应将String型数据放入Variant变量，传输二进制数据(即按字节)时,应将Byte型数组数据放入Variant变量

　　InBufferSize

　　接收缓冲区的字节数,如选1024。

　　设置或返回接收缓冲区大小。

　　InputMode

　　0用Input属性接收文本型数据。

　　1用Input属性接收二进制数据。

　　设置或返回接收数据的数据类型。

　　InBufferCount

　　Integer型

　　返回接收缓冲区中已传到但还未取走的字符个数。

　　Input

　　当InputMode属性值为0（文本模式）时,变量中含String型数据。

　　当InputMode属性值为1（二进制模式）时,变量中含Byte型数组数据。

　　将接收缓冲区中收到的数据读入变量。

　　DTREnabled

　　RTSEnabled

　　DSRHolding

　　CTSHolding

　　CDHolding

　　均取值TRUE/FALSE

　　用于读取或控制pc机与modem之间的交互状态。需运用好。例如，应在读取到DSRHolding属性值为TRUE时再向MODEM发出命令。应当在载波检测到以后(CDHolding属性为TRUE)时再向MODEM发送数据。

　　MSCOMM控件只使用一个事件OnComm，用属性CommEvent的十七个值来区分不同的触发时机。主要有以下几个：

　　（1）CommEvent=1时：传输缓冲区中的字符个数已少于Sthreshold(可设置的属性值)个。

　　（2）CommEvent=2时：接收缓冲区中收到hreshold(可设置的属性值)个个字符，利用此事件可编写接收数据的过程。

　　（3）CommEvent=3时：CTS线发生变化。

　　（4）CommEvent=4时：DSR线发生变化。

　　（5）CommEvent=5时：CD线发生变化。

　　（6）CommEvent=6时：检测到振铃信号。

　　另外十种情况是通信错误时产生，即错误代码。

　　四、通信软件程序实现

　　１、首先是通信参数设置，主要就是可以设置端口号，波特率，数据位，停止位，奇偶校验位及设置硬件握手协议，这些设置较为简单。

　　２、向MODEM发出DTR(已准备好)信号，如下例程：

　　If MSComm1.PORTOPEN Then

　　MSComm1.DTREnable=True

　　Else

　　MSComm1.DTREnable=False

　　EndIf

　　３、打开时向MODEM发出一些命令来设置参数，其中S0=n(n>=1)自动应答.n为响铃次数；E0/E1关闭/打开命令字符回应；Q0/Q1modem返回/不返回结果码；M0/M1关闭/打开MODEM扬声器，例程如下：

　　If MSComm1.PORTOPEN Then

　　Do While not MSComm1.CTSHolding : loop

　　Outstring="ATS0=1E1Q0M0"+Chr(13)

　　MSComm1.Output=Outstring

　　End if

　　４、进行拨号设计，需向MODEM发出ATDT命令，如下语句：

　　MSComm1.Output="ATDT"+Trim(“电话号码”)+Chr(13)

　　５、拨号以后发送数据文件，程序要循环等待并随时判定是否接通。如果MODEM向PC的回应字符串中含有"Connect"或CDHolding属性值变为True(检测出载波)，则表示已与远方MODEM连机了，此时可以传输数据。

　　程序设计发送及接收程序时，需要以下定义：

　　S_FILENAME = "NAME" + Chr(5) + Chr(13) + Chr(10)

　　S_FILELEN = "LENTH" + Chr(5) + Chr(13) + Chr(10)

　　S_FILESEND = "BEGIN" + Chr(5) + Chr(13) + Chr(10)

　　Ｓub OpenFileToSend() ´打开一个欲发送的文件

　　HSend = FreeFile

　　Open SENDFN For Binary As hSend ´SENDFN中含有由用户选定的要传送的文件名。

　　LF&=LOF(hSend) ´文件长度为LF&

　　´开始发送文件名，文件长度,文件开始等信息字符串。

　　Dim Data as Vrait

　　Data = S_FILENAME

　　MSComm1.Output=Data ´发出"FILENAME"文件名字串的提示信息

　　Data = SENDFN +Chr(13)+Chr(10)

　　MSComm1.Output=Data ´发出文件名

　　Data = S_FILELEN

　　MSComm1.Output=DATA ´发出"FILELEN"提示字串

　　Data = Trim(Str(LF&))+Chr(13)+Chr(10)

　　MSComm1.Output=Data ´发出文件大小

　　Data = S_FILESTAR

　　MSComm1.Output=Data ´发出"FILESTART"提示信息,表示下面文件开始。

　　Dim Sendarr() as byte ´定义字节型数组

　　Sum=0 ´记录累计发送的字节数

　　BSIZE=MSComm1.OutBufferSize ´每次发送的块大小

　　ReDim Sendarr(1 To BSIZE) ´重新定义读取缓冲

　　Do While Sum<LF& ´循环发送

　　If LF&-Loc(hSend)<BSIZE Then

　　BSIZE=LF&-Loc(hSend)

　　ReDim Sendarr(1 To BSIZE)

　　End If

　　Get hSend ,, SENDARR ´从文件取字节放入字节数组

　　Sendvar=Sendarr ´转放到Variant型变量

　　´当CTS线及CD线为高电平时才可发送，否则需等待。

　　T=Timer+60

　　L:

　　If MSComm1.CTSHolding And MSComm1.CDHolding Then

　　MSComm1.Output=Sendvar ´发送

　　Sum = Sum + BSIZE´累加计数

　　Else

　　If Timer < T Then

　　Go To L ´循环等待

　　Else

　　Go To CLOSEFILE ´等待时间超过60秒则退出

　　End If

　　End If

　　´等待系统处理完

　　Do

　　RET = DoEvents()

　　Loop Until MSComm1.OutBufferCount = 0

　　Loop ´循环发送完毕。

　　Private Static Sub MSComm1_OnComm()

　　Select Case MSComm1.CommEvent

　　Case comEvReceive ´接收缓冲区收到Rthreshold个字符时触发

　　Dim DATA As Variant

　　Dim N As Long

　　Dim SJARR() As Byte

　　N=MSComm1.InBufferCount ´接收缓冲区字符总数

　　If MSComm1.InputMode=0 Then´文本模式时，将收到的数据放到字符串变量。

　　MSComm1.InputLen=0

　　DATA = Space(N)

　　DATA = MSComm1.Input

　　Else ´二进制模式时，将收到的数据放到字节数组。

　　ReDim S JARR(1ToN)

　　DATA=ARR

　　MSComm1.InputLen=N

　　DATA=MSComm1.Input

　　End If

　　´其它case情况略

　　End Select

　　End Sub

　　７、关于接收到的数据的处理例程：

　　Public Static Sub HandleData (Disp As Control，N As Long，DATA As Variant)

　　´参数：Disp(文本框，用于显示接受数据)

　　´N为本次接收到的字节数

　　´DATA(接收到的数据.Variant型)

　　If not mscomm1.InputMode=0 Then ´接收的是字符串

　　Go To L2

　　End If

　　Disp.SelStart = Len ( Disp.Text)

　　Disp.SelLength = 0

　　Disp.SelText = DATA ´显示字符数据

　　If InStr(1,Disp.Text,S_FILESTAR,0)=0 Then ´若没有开始标志就结束此过程

　　ExitSub

　　EndIf

　　V_FILENAME = InStr(1,Disp.Text,S_FILENAME,0) ´找文件名及文件长度

　　V_FILELEN = InStr(1,Disp.Text,S_FILELEN,0)

　　FN = Mid(Disp.Text,V_FILENAME+11,(V_FILELEN-V_FILENAME-13))

　　HJS = FreeFile´打开接收文件

　　JSFN = Pathc+"\SJFILE\S"+Trim(Str(NO))+"_"+FN

　　Open JSFN For Binary As HJS

　　V_FILENAME = InStr(1,Disp.Text,S_FILENAME,0)

　　V_FILELEN = InStr(1,Disp.Text,S_FILELEN,0)

　　FN = Mid(Disp.Text,V_FILENAME+11,(V_FILELEN-1)-(V_FILENAME+11))

　　FL = Mid(Disp.Text,V_FILELEN+11,V_FILESTAR-(V_FILELEN+10))

　　SENDLEN = Val(FL) ´应收总字节数SENDLEN

　　ReDim JSARR(0 To N-1)

　　JSARR=DATA ´将字节流放入字节型数组

　　Puth JS , , JSARR ´ 写入已打开的接收文件

　　JSLEN=JSLEN+N ´本次已累计收到的字节数

　　Close HJS

　　End Sub