|
基于FAX／MODEM遠程通信程序設計
陳立新
摘 要 本文首先介紹了開發Windows事件驅動的串行通信編程原理及方法，然后簡述了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;
�。谐蓡T
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
撥號
如果用音頻撥號方式撥電話號碼1234567，撥號命令為：
“ATDT
1234567\r”；
如果用脈沖撥號方式撥電話號碼1234567，撥號命令為：
“ATDP
1234567\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));
}
5. 結束語
通過FAX／MODEM進行遠程信息傳輸有較廣闊的應用前景，比如：民航售票、遠程信息查詢等。FAX／MODEM在廣域網絡系統成為重要的組成部分。本文所述原理推廣到工廠遠距離監控上，可以大大減少工廠遠程維修和售后服務費用。
□
作者單位：陳立新(湖南高新實業股份有限公司 長沙410073)
參考文獻
[1]王仲文，薛榮華，巴雪靜譯：《精通串行通信》，電子工業出版社，1995年2月第一版
[2]鐘向群，龍旭東，薛安，陳鋼譯：《Borland
C＋＋3.1開發Windows應用程序》，清華大學出版社，1993年10月第一版 |