基于FAX／MODEM远程通信程序设计
中华工控网
|
|
基于FAX／MODEM远程通信程序设计</P><P> 陈立新</P><P> 摘 要 本文首先介绍了开发Windows事件驱动的串行通信编程原理及方法，然后简述了FAX／MODEM的控制方式，接着详细论述了一个远程监视系统的编程例子。最后探讨了技术的应用途径。<BR> 关键词 WINDOWS 事件驱动 串行通信 FAX／MODEM 远程监视</P><P> 1. 引 言</P><P> FAX／MODEM首先用于传真业务，近几年发展极为迅速，取得了极大成功。随着技术的发展和人们认识的提高，人们拓宽了FAX／MODEM的功能，把它用于广域网络通信中，FAX／MODEM能从微机接受串行数据，直接传给另一端的FAX机或另一台FAX／MODEM，所以使用微机通过程控电话网和FAX／MODEM互联起来可以组成一个广域网络系统，当两台微机拨号联上后，它们就独占了一条电话线路，它们之间就像本地通信一样(光电传输速度108米／秒)方便[1]。</P><P> 2. Windows事件驱动编程原理</P><P> 采用OWL开发应用程序。<BR> 2.1 WM_COMMNOTIFY消息<BR> WM_COMMNOTIFY是窗口管理类型消息，当COM端口有事件发生时Windows就向窗口发送这条消息。该消息指出了WINDOWS发送接收队列的状态，如果通告状态是CN_EVENT，表明COM端口有通信事件发生，其消息TMessage结构的成员wParam标志发生事件的COM端口[2]。<BR> 2.2 对消息的响应<BR> 定义一个窗口及一个消息响应成员函数如下：<BR> class TMonitorWindow:public Twindow<BR> {／／私有成员<BR> public;<BR> ／／公有成员<BR> virtual void WMCommnotify(RTMessage Msg)<BR> =［WM_FIRST:WM_COMMNOTIFY];};<BR> 在此例中，当TMonitorWindow对象接到一个WM_COMMNOTIFY消息，就立即自动唤起WMCOmmnotify成员函数，处理端口事件。其中Msg是消息RTMessage类型的变量，RTMessage是TMessage的引用。从WINDOWS发送的消息信息存放于Msg中。<BR> 如果表达式(((Msg.LP.Lo＆ CN_EVENT)==CN_EVENT)＆＆(Msg.WParam==comm2))为真，则表明端口comm2有通信事件发生，可以从comm2中读取接收报文。</P><P> 3. FAX／MODEM的控制</P><P> 3.1 命令模式和在线模式<BR> FAX／MODEM工作时处在本地命令状态或在线状态。处在本地命令时，用户能够通过计算机的串行接口向它发送命令，完成一定功能，FAX／MODEM不传送这些命令；一旦与远程FAX／MODEM建立连接后，FAX／MODEM就进入在线状态，这时它将直接传送计算机发送的命令[1]。<BR> 3.2 命令和结果码<BR> 所有HayesFAX／MODEM控制命令毫无例外一律使用AT开头。当FAX／MODEM接受一个命令，它就返回一个结果，这个结果可以是一个字符串或结果码。因此可以编程与FAX／MODEM交互，实现用软件来控制FAX／MODEM。</P><P> 4.远程监视编程</P><P> 假设2台微机(称A和B)通过电话网、FAX／MODEM连接，用A机监视B机，实时接收B机发送的状态报文(B机的发送是随机的)，那么A机的监视软件模块主要包括：定义监视窗口；初始化并建立与B机的连接；监视B机；挂断关闭通信口结束程序运行。这里介绍功能模块编程方法如下：<BR> 4.1 定义监视窗口<BR> class TMonitorWindow: public TWindow<BR> { COMSTAT comstat;<BR> char buffer[1024]; ∥缓冲区<BR> int bufnum; ∥缓冲区实际字节数<BR> int comdev; ∥串行口设备号<BR> int status; ∥当前通信状态<BR> void InitComm(); ∥初始化串行口<BR> void InitFAX／MODEM();∥初始化FAX／MODEM<BR> void Dial(char＊); ∥拨号<BR> void Connect(); ∥接听电话<BR> void HangUp(); ∥挂断电话<BR> void EndFAX／MODEM(); ∥挂断FAX／MODEM<BR> void EndComm(); ∥结束通信<BR> int ReadFAX／MODEMCode();∥读取FAX／MODEM返回码public:<BR> TMonitorWindow(PTWindowsObject AParent,<BR> LPSTR ATitle);<BR> virtual void CloseWindow();<BR> virtual void WMClose(RTMessage Msg)<BR> =［CM_FIRST+WM_CLOSE];∥终止程序运行<BR> virtual void CommMessage(RTMessage Msg)<BR> =［WM_FIRST+WM_COMMNOTIFY;∥通信消息函数<BR> };<BR> 4.2 初始化并建立与B机的连接<BR> 4.2.1 计算机串口初始化<BR> 串行口的初始化必须完成三项任务：一调用OpenComm函数打开串行口。一个重要的工作是检查返回值，如果小于或等于0，则打开操作失败，这时必须采取容错措施；二调用SetCommState设置通信参数；三是调用函数setCommEventMask设定窗口只收CN_EVENT通告；调用函数<BR> EnableCommNotification屏蔽<BR> CN_RECEIVE和CN_TRANSMIT通告。参考代码如下：<BR> void TMonitorWindow::InitComm()<BR> { DCB dcb;<BR> comdev=OpenComm(″COM3″,1024.1024);<BR> if(comdev<=0)<BR> { MessageBox(HWindow,″串行口打开失败!″<BR> ，″出错″，MB_OK)；<BR> GetCommError(comdev,＆comstat);<BR> }<BR> else<BR> { GetCommState(comdev,＆dcb);<BR> dcb.BaudRate=4800;<BR> dcb.Parity=NOPARITY;<BR> dcb.ByteSize=8;<BR> dcb.StopBits=ONESTOPBIT;<BR> if (SetCommState(＆dcb)<0)<BR> {McssagcBox(HWindow,″串行口打开失败!″<BR> ，″出错″，MB_OK);<BR> GetCommError(comdev,＆comstat);<BR> return;<BR> }<BR> SetCommEventMask(comdev,EV_RXCHAR<BR> |EV_RING |EV_BREAK);<BR> EnableCommNotification(comdev,HWindow,－1,－1);<BR> }<BR> }<BR> 4.2.2 FAX／MODEM初始化<BR> 作如下工作：关掉屏幕回显，设置数字显示结果码，打开载波信号，设置扬声器值，打开结果码，设置FAX／MODEM值。组合命令为：<BR> ″ATEOVO＆C1＆D2X4M1L1QOSO=OS7=10\r″;<BR> 参考代码如下：<BR> void TMonitorWindow::InitFAX／MODEM()<BR> { char ＊Str=″ATEOVO＆C1＆D2X4M1L1QOSO=OS7=10\r″;<BR> if (WriteComm(comdev,Str,strlen(Str))<0)<BR> { GetCommError(comdev,＆comstat);<BR> MessageBox(HWindow,″初使化FAX／MODEM失败!″，″出错″，MB_OK)；<BR> }<BR> }<BR> 4.2.3 拨号<BR> 如果用音频拨号方式拨电话号码1234567，拨号命令为：<BR> “ATDT 1234567\r”；<BR> 如果用脉冲拨号方式拨电话号码1234567，拨号命令为：<BR> “ATDP 1234567\r”；<BR> 如果电话号码暂存到字符串DialStr中，用Dial函数拨号，参考代码如下：<BR> void TMonitorWindow::Dial(char ＊telphone)<BR> {char DialStr[50];<BR> sprintf(DialStr,″ATDP％s\r″,telphone);<BR> if(WriteComm(comdev,DialStr,strlen(DialStr))<0)<BR> {MessageBox(HWindow,″拨号FAX／MODEM失败!″，″出错″，MB_OK)；<BR> GetCommError(comdev,＆comstat);<BR> }<BR> }<BR> 4.2.4 连接<BR> 发送″ATA\r″命令可以实现连接。<BR> 参考代码如下：<BR> void TMonitorWindow::Conncct()<BR> { char＊ connstr=″ATA\r″;<BR> if(WriteComm(comdev,connstr,strlen(connstr))<0)<BR> {MessageBox(HWindow,″拨号FAX／MODEM失败!″，″出错″，MB_OK)；<BR> GetCommError(comdev,＆comstat);<BR> }<BR> }<BR> 4.3 监视B机<BR> 4.3.1 读FAX／MODEM返回码<BR> 计算机向FAX／MODEM发送命令后，立即读通信口的接送队列，将读出的字符串转换成整数即得到FAX／MODEM返回码。参考代码如下：<BR> int TMonitorWindow::ReadFAX／MODEMCode()<BR> { char tempbuf[20]<BR> int readno;<BR> readno=ReadComm(comdev，tempbuf，3)；<BR> if (readno<0)<BR> { MessageBox(HWindow,″Read FAX／MODEM CodeError!″,″ERROR″,MB_OK)；<BR> GetCommError(comdev,＆comstat);<BR> return －1;<BR> }<BR> else<BR> { tempbuf[readno]=′\0′；<BR> return(atoi(tempbuf))；<BR> }<BR> }<BR> 4.3.2 监控FAX／MODEM<BR> WM_COMMNOTIFY消息响应函数参考代码如下，其中必须调用函数GetCommEventMask将标志复位以便能继续收到通知，调用ReadComm读接收字符串，并将收到的字符串组合起来，以字符′\0′为结束符。<BR> void TMonitorWindow::CommMessage(RTMessage Msg)<BR> { int result; ∥记录FAX／MODEM返回码<BR> int event;<BR> HDC hdc;<BR> MSG msg;<BR> if ( ((Msg.LP.Lo ＆ CN_EVENT)==CN_EVENT)＆＆<BR> (Msg.WParam==comdev))∥是通信事件<BR> { event=GetCommEventMask(comdev,EV_RXCHAR);<BR> switch (status)<BR> {<BR> case strdialing: ∥字符串发送拨号<BR> result=ReadFAX／MODEMCode();<BR> if (result==10)<BR> {status=strsending;<BR> MessageBox(HWindow,″result=CONNECT″,″SEND″,MB_OK);<BR> writcComm(comdcv,buffor,bufnum);<BR> }<BR> else<BR> {<BR> if (result)<BR> {MessageBox(HWindow,Message[result],″出错″，MB_OK)；<BR> status=ready;<BR> }<BR> }<BR> break;<BR> case strconnecting; ∥字符串电话接听<BR> result=ReadFAX／MODEMCode();<BR> if (result==1)status=strconnecting;<BR> else<BR> {<BR> if(result)<BR> {MessageBox(HWindow,Message[result],″出错″，MB_OK<BR> status=ready;<BR> }<BR> else status=strreceiving;<BR> }<BR> break;<BR> case strsending:<BR> HangUp();<BR> break;<BR> case strreceiving; ∥收到字符串<BR> bufnum=ReadComm(comdev,buffer,500);<BR> if(bufnum>0)<BR> {<BR> static int i=1;<BR> buffer[bufnum]=′\0′;<BR> hdc=GetDC(HWindow);<BR> TextOut(hdc,10,20＊i,buffer,bufnum);<BR> ReleaseDC(HWindow,hdc);<BR> i＋＋;<BR> }<BR> else MessageBox(HWindow,″Receive Error″,″ERROR″,MB_OK);<BR> break;<BR> case ready:<BR> result=ReadFAX／MODEMCode();<BR> status=strconnecting;<BR> Connect();<BR> break;<BR> default;<BR> result=ReadFAX／MODEMCode();<BR> }∥switch<BR> }<BR> }<BR> }<BR> }<BR> }<BR> 4.4 中止程序运行<BR> 按Alt＋F4，选择弹出菜单“关闭”项执行“中止程序运行”操作，具体完成“挂断”、“关闭MODEM”、“关闭串行口”和“关闭监视窗口”功能。<BR> 4.4.1 挂断<BR> 发送“ATHO\r”命令可以实现连接。<BR> 参考代码如下：<BR> void TMonitorWindow::HangUp()<BR> {<BR> char＊ HangUpstr=″ATHO\r″；<BR> WriteComm(comdev,HangUpstr,strlen(HangUpstr));<BR> }</P><P> 5. 结束语</P><P> 通过FAX／MODEM进行远程信息传输有较广阔的应用前景，比如：民航售票、远程信息查询等。FAX／MODEM在广域网络系统成为重要的组成部分。本文所述原理推广到工厂远距离监控上，可以大大减少工厂远程维修和售后服务费用。 □</P><P> 作者单位：陈立新(湖南高新实业股份有限公司 长沙410073)</P><P> 参考文献</P><P> [1]王仲文，薛荣华，巴雪静译：《精通串行通信》，电子工业出版社，1995年2月第一版<BR> [2]钟向群，龙旭东，薛安，陈钢译：《Borland C＋＋3.1开发Windows应用程序》，清华大学出版社，1993年10月第一版<BR> <BR>
|
|
状 态：
离线
公司简介
产品目录
|
|
|
公司名称：
|
中华工控网
|
| 联 系 人： |
客服中心
|
| 电 话： |
0755-26546361
|
| 传 真： |
0755-26585268 |
| 地 址： |
深圳市南山区创业路现代城华庭1栋6A |
| 邮 编： |
518054 |
| 主 页： |
|
|
|
|
|
