37.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

检测运程数据传送的断线

我使用MSCOMM1通过MODEM和远程传送数据,如何检测已经建立好联系呢?
如果意外或者远程断线,我又能如何检测到?使用此控件应注意什么问题?
请您赐教:-) - zxx

答复1:
如果MSCOMM1的INPUT域是“CONNECT”表示MODEM已经连上了，
其他如：“NO CARRIER”“NO DIAL TONE”等表示某种连接失败。
要定时检测MODEM要引入定时器控件，定时在线上传送一些填充信号，
如果过一定的时间未受到对方程序（也要相同处理）的应答信号，
就认为已断线了。
- linhang
答复2:
本人也正在编写一个用MODEM通讯的程序，同样面临相同的问题，现将
本人的解决办法介绍如下，希望有所帮助。
在通过MODEM建立好联系后，MODEM会返回“CONNECT 9600”消息，
其中9600表示所建立的波特率。如果没有建立好通讯MODEM会返回“BUSY”。
我们可通讯取得MSCOMM1.INPUT中的内容可检测是否已建立好联系。
建立好联系和中断联系MSCOMM1的ONCOMM事件会产生一个定义好的
MSCOMM_EV_CD消息，在对该消息的处理中也可检测通讯的好与坏。 

在模块定义中加入以下代码： 
Global Const MSCOMM_EV_SEND = 1
Global Const MSCOMM_EV_RECEIVE = 2
Global Const MSCOMM_EV_CTS = 3
Global Const MSCOMM_EV_DSR = 4
Global Const MSCOMM_EV_CD = 5
Global Const MSCOMM_EV_RING = 6
Global Const MSCOMM_EV_EOF = 7
Global Const MSCOMM_ER_BREAK = 1001
Global Const MSCOMM_ER_CTSTO = 1002
Global Const MSCOMM_ER_DSRTO = 1003
Global Const MSCOMM_ER_FRAME = 1004
Global Const MSCOMM_ER_OVERRUN = 1006
Global Const MSCOMM_ER_CDTO = 1007
Global Const MSCOMM_ER_RXOVER = 1008
Global Const MSCOMM_ER_RXPARITY = 1009
Global Const MSCOMM_ER_TXFULL = 1010 
在mscomm1_ONCOMM中加入
Select Case MSCOMM1.CommEvent 'i=1,2...
' 错误部分
Case MSCOMM_ER_BREAK '插入处理BREAK代码
Case MSCOMM_ER_CDTO '插入处理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_SEND

Case MSCOMM_EV_CD '插入处理CD信号改变代码
msgbox"CD_CHANGE" 
Case MSCOMM_EV_CTS '插入处理CTS信号改变代码
'MsgBox "EV_CTS"
Case MSCOMM_EV_DSR '插入处理DST信号改变代码
' MsgBox "EV_DSR"
Case MSCOMM_EV_EOF '插入处理收到一个文本文件结束字(26)代码
Case MSCOMM_EV_RING '插入处理检测到一个振铃信号代码

Case MSCOMM_EV_RECEIVE '插入接收到设定的字符数时产生该事件代码
'MsgBox "EV_RECEIVE"
Case MSCOMM_EV_SEND '插入处理发送缓冲器中的字符数低于设定的数值时产生该事件的代码
End Select 
所知有限，望共同探讨。
- [e-mail]