1. 引　言

　　FAX／MODEM首先用于傳真業(yè)務(wù)，近幾年發(fā)展極為迅速，取得了極大成功。隨著技術(shù)的發(fā)展和人們認識的提高，人們拓寬了FAX／MODEM的功能，把它用于廣域網(wǎng)絡(luò)通信中，F(xiàn)AX／MODEM能從微機接受串行數(shù)據(jù)，直接傳給另一端的FAX機或另一臺FAX／MODEM，所以使用微機通過程控電話網(wǎng)和FAX／MODEM互聯(lián)起來可以組成一個廣域網(wǎng)絡(luò)系統(tǒng)，當兩臺微機撥號聯(lián)上后，它們就獨占了一條電話線路，它們之間就像本地通信一樣(光電傳輸速度108米／秒)方便[1]。

2. Windows事件驅(qū)動編程原理

　　采用OWL開發(fā)應(yīng)用程序。
2.1 WM_COMMNOTIFY消息
　　WM_COMMNOTIFY是窗口管理類型消息，當COM端口有事件發(fā)生時Windows就向窗口發(fā)送這條消息。該消息指出了WINDOWS發(fā)送接收隊列的狀態(tài)，如果通告狀態(tài)是CN_EVENT，表明COM端口有通信事件發(fā)生，其消息TMessage結(jié)構(gòu)的成員wParam標志發(fā)生事件的COM端口[2]。
2.2 對消息的響應(yīng)
　　定義一個窗口及一個消息響應(yīng)成員函數(shù)如下：
　　class TMonitorWindow:public Twindow
　　{／／私有成員
　　public;
　?。谐蓡T
　　virtual void WMCommnotify(RTMessage Msg)
　　=［WM_FIRST:WM_COMMNOTIFY];};
　　在此例中，當TMonitorWindow對象接到一個WM_COMMNOTIFY消息，就立即自動喚起WMCOmmnotify成員函數(shù)，處理端口事件。其中Msg是消息RTMessage類型的變量，RTMessage是TMessage的引用。從WINDOWS發(fā)送的消息信息存放于Msg中。
　　如果表達式(((Msg.LP.Lo＆ CN_EVENT)==CN_EVENT)＆＆(Msg.WParam==comm2))為真，則表明端口comm2有通信事件發(fā)生，可以從comm2中讀取接收報文。

3. FAX／MODEM的控制

3.1 命令模式和在線模式
　　FAX／MODEM工作時處在本地命令狀態(tài)或在線狀態(tài)。處在本地命令時，用戶能夠通過計算機的串行接口向它發(fā)送命令，完成一定功能，F(xiàn)AX／MODEM不傳送這些命令；一旦與遠程FAX／MODEM建立連接后，F(xiàn)AX／MODEM就進入在線狀態(tài)，這時它將直接傳送計算機發(fā)送的命令[1]。
3.2 命令和結(jié)果碼
　　所有HayesFAX／MODEM控制命令毫無例外一律使用AT開頭。當FAX／MODEM接受一個命令，它就返回一個結(jié)果，這個結(jié)果可以是一個字符串或結(jié)果碼。因此可以編程與FAX／MODEM交互，實現(xiàn)用軟件來控制FAX／MODEM。

4.遠程監(jiān)視編程

　　假設(shè)2臺微機(稱A和B)通過電話網(wǎng)、FAX／MODEM連接，用A機監(jiān)視B機，實時接收B機發(fā)送的狀態(tài)報文(B機的發(fā)送是隨機的)，那么A機的監(jiān)視軟件模塊主要包括：定義監(jiān)視窗口；初始化并建立與B機的連接；監(jiān)視B機；掛斷關(guān)閉通信口結(jié)束程序運行。這里介紹功能模塊編程方法如下：
4.1 定義監(jiān)視窗口
　　class TMonitorWindow: public TWindow
　　{　COMSTAT comstat;
　　　　char buffer[1024]; ∥緩沖區(qū)
　　　　int bufnum;　　　∥緩沖區(qū)實際字節(jié)數(shù)
　　　　int comdev;　　　∥串行口設(shè)備號
　　　　int status;　　　 ∥當前通信狀態(tài)
　　　　void InitComm(); ∥初始化串行口
　　　　void InitFAX／MODEM();∥初始化FAX／MODEM
　　　　void Dial(char＊);　　 ∥撥號
　　　　void Connect();　　　 ∥接聽電話
　　　　void HangUp();　 　∥掛斷電話
　　　　void EndFAX／MODEM(); ∥掛斷FAX／MODEM
　　　　void EndComm();　　　 ∥結(jié)束通信
　　　　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;∥通信消息函數(shù)
　　};
4.2 初始化并建立與B機的連接
4.2.1 計算機串口初始化
　　串行口的初始化必須完成三項任務(wù)：一調(diào)用OpenComm函數(shù)打開串行口。一個重要的工作是檢查返回值，如果小于或等于0，則打開操作失敗，這時必須采取容錯措施；二調(diào)用SetCommState設(shè)置通信參數(shù)；三是調(diào)用函數(shù)setCommEventMask設(shè)定窗口只收CN_EVENT通告；調(diào)用函數(shù)
　　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初始化
　　作如下工作：關(guān)掉屏幕回顯，設(shè)置數(shù)字顯示結(jié)果碼，打開載波信號，設(shè)置揚聲器值，打開結(jié)果碼，設(shè)置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 撥號
　　如果用音頻撥號方式撥電話號碼1234567，撥號命令為：
　　“ATDT 1234567\r”；
　　如果用脈沖撥號方式撥電話號碼1234567，撥號命令為：
　　“ATDP 1234567\r”；
　　如果電話號碼暫存到字符串DialStr中，用Dial函數(shù)撥號，參考代碼如下：
　　void TMonitorWindow::Dial(char ＊telphone)
　　{char DialStr[50];
　　sprintf(DialStr,″ATDP％s\r″,telphone);
　　if(WriteComm(comdev,DialStr,strlen(DialStr))<0)
　　
　　}
4.2.4 連接
　　發(fā)送″ATA\r″命令可以實現(xiàn)連接。
　　參考代碼如下：
　　void TMonitorWindow::Conncct()
　　{ char＊ connstr=″ATA\r″;
　　if(WriteComm(comdev,connstr,strlen(connstr))<0)
　　
　　}
4.3 監(jiān)視B機
4.3.1 讀FAX／MODEM返回碼
　　計算機向FAX／MODEM發(fā)送命令后，立即讀通信口的接送隊列，將讀出的字符串轉(zhuǎn)換成整數(shù)即得到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 監(jiān)控FAX／MODEM
　　WM_COMMNOTIFY消息響應(yīng)函數(shù)參考代碼如下，其中必須調(diào)用函數(shù)GetCommEventMask將標志復位以便能繼續(xù)收到通知，調(diào)用ReadComm讀接收字符串，并將收到的字符串組合起來，以字符′\0′為結(jié)束符。
　　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:　∥字符串發(fā)送撥號
　　　　　　result=ReadFAX／MODEMCode();
　　　　if (result==10)
　　　　
　　　　else
　　　　{
　　　　if (result)
　　　　
　　 }
　　　break;
　　　case strconnecting;　∥字符串電話接聽
　　　　　result=ReadFAX／MODEMCode();
　　　　if (result==1)status=strconnecting;
　　　else
　　　
　　　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();