基于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月第一版