基于FAX MODEM远程通信程序设计

　　摘要：文首先介绍了开发Windows事件驱动的串行通信编程原理及方法，然后简述了FAX MODEM的控制方式，接着详细论述了一个远程监视系统的编程例子。最后探讨了技术的应用途径。

　　1. 引言

　　FAX MODEM首先用于传真业务，近几年发展极为迅速，取得了极大成功。随着技术的发展和人们认识的提高，人们拓宽了FAX MODEM的功能，把它用于广域网络通信中，FAX MODEM能从微机接受串行数据，直接传给另一端的FAX机或另一台FAX MODEM，所以使用微机通过程控电话网和FAX MODEM互联起来可以组成一个广域网络系统，当两台微机拨号联上后，它们就独占了一条电话线路，它们之间就像本地通信一样(光电传输速度108米／秒)方便[1]。

　　2. Windows事件驱动编程原理

　　采用OWL开发应用程序。

　　2.1 WM_COMMNOTIFY消息

　　 WM_COMMNOTIFY是窗口管理类型消息，当COM端口有事件发生时Windows就向窗口发送这条消息。该消息指出了WINDOWS发送接收队列的状态，如果通告状态是CN_EVENT，表明COM端口有通信事件发生，其消息TMessage结构的成员wParam标志发生事件的COM端口[2]。

　　2.2 对消息的响应

　　 定义一个窗口及一个消息响应成员函数如下：

　　 class TMonitorWindow:public Twindow

　　 {／／私有成员

　　 public;

　　 ／／公有成员

　　 virtual void WMCommnotify(RTMessage Msg)

　　 =［WM_FIRST:WM_COMMNOTIFY];};

　　 在此例中，当TMonitorWindow对象接到一个WM_COMMNOTIFY消息，就立即自动唤起WMCOmmnotify成员函数，处理端口事件。其中Msg是消息RTMessage类型的变量，RTMessage是TMessage的引用。从WINDOWS发送的消息信息存放于Msg中。

　　 如果表达式(((Msg.LP.Lo＆ CN_EVENT)==CN_EVENT)＆＆(Msg.WParam==comm2))为真，则表明端口comm2有通信事件发生，可以从comm2中读取接收报文。

　　3. FAX MODEM的控制

　　3.1 命令模式和在线模式

　　 FAX MODEM工作时处在本地命令状态或在线状态。处在本地命令时，用户能够通过计算机的串行接口向它发送命令，完成一定功能，FAX MODEM不传送这些命令；一旦与远程FAX MODEM建立连接后，FAX MODEM就进入在线状态，这时它将直接传送计算机发送的命令[1]。

　　3.2 命令和结果码

　　 所有HayesFAX MODEM控制命令毫无例外一律使用AT开头。当FAX MODEM接受一个命令，它就返回一个结果，这个结果可以是一个字符串或结果码。因此可以编程与FAX MODEM交互，实现用软件来控制FAX MODEM。

　　4.远程监视编程

　　假设2台微机(称A和B)通过电话网、FAX MODEM连接，用A机监视B机，实时接收B机发送的状态报文(B机的发送是随机的)，那么A机的监视软件模块主要包括：定义监视窗口；初始化并建立与B机的连接；监视B机；挂断关闭通信口结束程序运行。这里介绍功能模块编程方法如下：

　　4.1 定义监视窗口

　　 class TMonitorWindow: public TWindow

　　 {COMSTAT comstat;

　　 char buffer[1024]; ∥缓冲区

　　 int bufnum;∥缓冲区实际字节数

　　 int comdev;∥串行口设备号

　　 int status; ∥当前通信状态

　　 void InitComm(); ∥初始化串行口

　　 void InitFAX MODEM();∥初始化FAX MODEM

　　 void Dial(char＊); ∥拨号

　　 void Connect(); ∥接听电话

　　 void HangUp(); ∥挂断电话

　　 void EndFAX MODEM(); ∥挂断FAX MODEM

　　 void EndComm(); ∥结束通信

　　 int ReadFAX MODEMCode();∥读取FAX MODEM返回码public:

　　 TMonitorWindow(PTWindowsObject AParent,

　　 LPSTR ATitle);

　　 virtual void CloseWindow();

　　 virtual void WMClose(RTMessage Msg)

　　 =［CM_FIRST+WM_CLOSE];∥终止程序运行

　　 virtual void CommMessage(RTMessage Msg)

　　 =［WM_FIRST+WM_COMMNOTIFY;∥通信消息函数

　　 };

　　4.2 初始化并建立与B机的连接

　　4.2.1 计算机串口初始化

　　 串行口的初始化必须完成三项任务：一调用OpenComm函数打开串行口。一个重要的工作是检查返回值，如果小于或等于0，则打开操作失败，这时必须采取容错措施；二调用SetCommState设置通信参数；三是调用函数setCommEventMask设定窗口只收CN_EVENT通告；调用函数

　　 EnableCommNotification屏蔽

　　 CN_RECEIVE和CN_TRANSMIT通告。参考代码如下：

　　 void TMonitorWindow::InitComm()

　　 { DCB dcb;

　　 comdev=OpenComm(″COM3″,1024.1024);

　　 if(comdev<=0)

　　 { MessageBox(HWindow,″串行口打开失败!″

　　 ，″出错″，MB_OK)；

　　 GetCommError(comdev,＆comstat);

　　 }

　　 else

　　 { GetCommState(comdev,＆dcb);

　　 dcb.BaudRate=4800;

　　 dcb.Parity=NOPARITY;

　　 dcb.ByteSize=8;

　　 dcb.StopBits=ONESTOPBIT;

　　 if (SetCommState(＆dcb)<0)

　　 {McssagcBox(HWindow,″串行口打开失败!″

　　 ，″出错″，MB_OK);

　　 GetCommError(comdev,＆comstat);

　　 return;

　　 }

　　 SetCommEventMask(comdev,EV_RXCHAR

　　 |EV_RING |EV_BREAK);

　　 EnableCommNotification(comdev,HWindow,－1,－1);

　　 }

　　 }

　　4.2.2 FAX MODEM初始化

　　 作如下工作：关掉屏幕回显，设置数字显示结果码，打开载波信号，设置扬声器值，打开结果码，设置FAX MODEM值。组合命令为：

　　 ″ATEOVO＆C1＆D2X4M1L1QOSO=OS7=10\r″;

　　 参考代码如下：

　　 void TMonitorWindow::InitFAX MODEM()

　　 { char ＊Str=″ATEOVO＆C1＆D2X4M1L1QOSO=OS7=10\r″;

　　 if (WriteComm(comdev,Str,strlen(Str))<0)

　　 { GetCommError(comdev,＆comstat);

　　 MessageBox(HWindow,″初使化FAX MODEM失败!″，″出错″，MB_OK)；

　　 }

　　 }

　　4.2.3 拨号

　　 如果用音频拨号方式拨电话号码88888888，拨号命令为：

　　 “ATDT 88888888\r”；

　　 如果用脉冲拨号方式拨电话号码88888888，拨号命令为：

　　 “ATDP 88888888\r”；

　　 如果电话号码暂存到字符串DialStr中，用Dial函数拨号，参考代码如下：

　　 void TMonitorWindow::Dial(char ＊telphone)

　　 {char DialStr[50];

　　 sprintf(DialStr,″ATDP％s\r″,telphone);

　　 if(WriteComm(comdev,DialStr,strlen(DialStr))<0)

　　 {MessageBox(HWindow,″拨号FAX MODEM失败!″，″出错″，MB_OK)；

　　 GetCommError(comdev,＆comstat);

　　 }

　　 }

　　4.2.4 连接

　　 发送″ATA\r″命令可以实现连接。

　　 参考代码如下：

　　 void TMonitorWindow::Conncct()

　　 { char＊ connstr=″ATA\r″;

　　 if(WriteComm(comdev,connstr,strlen(connstr))<0)

　　 {MessageBox(HWindow,″拨号FAX MODEM失败!″，″出错″，MB_OK)；

　　 GetCommError(comdev,＆comstat);

　　 }

　　 }

　　4.3 监视B机

　　4.3.1 读FAX MODEM返回码

　　 计算机向FAX MODEM发送命令后，立即读通信口的接送队列，将读出的字符串转换成整数即得到FAX MODEM返回码。参考代码如下：

　　 int TMonitorWindow::ReadFAX MODEMCode()

　　 { char tempbuf[20]

　　 int readno;

　　 readno=ReadComm(comdev，tempbuf，3)；

　　 if (readno<0)

　　 { MessageBox(HWindow,″Read FAX MODEM CodeError!″,″ERROR″,MB_OK)；

　　 GetCommError(comdev,＆comstat);

　　 return －1;

　　 }

　　 else

　　 { tempbuf[readno]=′\0′；

　　 return(atoi(tempbuf))；

　　 }

　　 }

　　4.3.2 监控FAX MODEM

　　 WM_COMMNOTIFY消息响应函数参考代码如下，其中必须调用函数GetCommEventMask将标志复位以便能继续收到通知，调用ReadComm读接收字符串，并将收到的字符串组合起来，以字符′\0′为结束符。

　　 void TMonitorWindow::CommMessage(RTMessage Msg)

　　 { int result;∥记录FAX MODEM返回码

　　 int event;

　　 HDC hdc;

　　 MSG msg;

　　 if ( ((Msg.LP.Lo ＆ CN_EVENT)==CN_EVENT)＆＆

　　 (Msg.WParam==comdev))∥是通信事件

　　 { event=GetCommEventMask(comdev,EV_RXCHAR);

　　 switch (status)

　　 {

　　 case strdialing:∥字符串发送拨号

　　 result=ReadFAX MODEMCode();

　　 if (result==10)

　　 {status=strsending;

　　 MessageBox(HWindow,″result=CONNECT″,″SEND″,MB_OK);

　　 writcComm(comdcv,buffor,bufnum);

　　 }

　　 else

　　 {

　　 if (result)

　　 {MessageBox(HWindow,Message[result],″出错″，MB_OK)；

　　 status=ready;

　　 }

　　 }

　　 break;

　　 case strconnecting;∥字符串电话接听

　　 result=ReadFAX MODEMCode();

　　 if (result==1)status=strconnecting;

　　 else

　　 {

　　 if(result)

　　 {MessageBox(HWindow,Message[result],″出错″，MB_OK

　　 status=ready;

　　 }

　　 else status=strreceiving;

　　 }

　　 break;

　　 case strsending:

　　 HangUp();

　　 break;

　　 case strreceiving;∥收到字符串

　　 bufnum=ReadComm(comdev,buffer,500);

　　 if(bufnum>0)

　　 {

　　 static int i=1;

　　 buffer[bufnum]=′\0′;

　　 hdc=GetDC(HWindow);

　　 TextOut(hdc,10,20＊i,buffer,bufnum);

　　 ReleaseDC(HWindow,hdc);

　　 i＋＋;

　　 }

　　else MessageBox(HWindow,″Receive Error″,″ERROR″,MB_OK);

　　 break;

　　 case ready:

　　 result=ReadFAX MODEMCode();

　　 status=strconnecting;

　　 Connect();

　　 break;

　　 default;

　　 result=ReadFAX MODEMCode();

　　 }∥switch

　　 }

　　 }

　　 }

　　 }

　　 }

　　4.4 中止程序运行

　　 按Alt＋F4，选择弹出菜单“关闭”项执行“中止程序运行”操作，具体完成“挂断”、“关闭MODEM”、“关闭串行口”和“关闭监视窗口”功能。

　　4.4.1 挂断

　　 发送“ATHO\r”命令可以实现连接。

　　 参考代码如下：

　　 void TMonitorWindow::HangUp()

　　 {

　　 char＊ HangUpstr=″ATHO\r″；

　　 WriteComm(comdev,HangUpstr,strlen(HangUpstr));

　　 }

　　参考文献

　　[1]王仲文，薛荣华，巴雪静译：《精通串行通信》，电子工业出版社，1995年2月第一版

　　[2]钟向群，龙旭东，薛安，陈钢译：《Borland C＋＋3.1开发Windows应用程序》，清华大学出版社，1993年10月第一版