|
夏云
摘 要 該文詳細(xì)討論了MSCOMM.VBX通信控件在Windows平臺(tái)下的通信軟件設(shè)計(jì)方法,借
助于Visual Basic所附的通信控件能非常方便地開(kāi)發(fā)出高級(jí)和專(zhuān)業(yè)性通信軟件來(lái)滿足不同
業(yè)務(wù)的需要。
關(guān)鍵詞 Windows Visual Basic 通信控件 通信軟件
在Windows操作系統(tǒng)平臺(tái)上開(kāi)發(fā)通信軟件時(shí),雖然Windows 3.1 SDK提供了完備的API應(yīng)
用程序接口函數(shù)和以中斷方式驅(qū)動(dòng)的通信設(shè)備驅(qū)動(dòng)程序COMM.DRV,從而可以用C或C++來(lái)完成
這類(lèi)應(yīng)用程序的設(shè)計(jì),但其復(fù)雜化和專(zhuān)業(yè)化程度仍然很高。所以,目前許多軟件開(kāi)發(fā)人員都
在使用Microsoft Visual Basic來(lái)開(kāi)發(fā)Windows應(yīng)用程序。本文將詳細(xì)敘述VB環(huán)境的通信軟
件開(kāi)發(fā)方法,通過(guò)對(duì)通信控件MSCOMM.VBX的分析,我們可以看到利用VB來(lái)開(kāi)發(fā)Windows平臺(tái)下
的通信軟件非常簡(jiǎn)單。最后結(jié)合我們工作中的一個(gè)實(shí)例來(lái)完整地描述該類(lèi)軟件的設(shè)計(jì)方法
。
一、MSCOMM.VBX的描述
VB中的串行通信控件已全面提供了使用RS-232來(lái)進(jìn)行數(shù)據(jù)通信軟件開(kāi)發(fā)設(shè)計(jì)的所有細(xì)
則,Microsoft Visual Basic 3.0中的MSCOMM.VBX(需要安裝在indowsystem\目錄下)是199
2年Crescent software Inc. 公司專(zhuān)為Microsoft的VB平臺(tái)設(shè)計(jì)的,它使用以下兩種不同的
方式來(lái)處理和解決各類(lèi)通信軟件的開(kāi)發(fā)和設(shè)計(jì)問(wèn)題。
(1) 事件驅(qū)動(dòng),它和我們用C/C++寫(xiě)Windows軟件時(shí)的窗口回調(diào)函數(shù)類(lèi)似,是一種功能強(qiáng)
大的處理問(wèn)題的方法。在實(shí)際工作中,往往要求我們處理許多通信中的相關(guān)事件。例如:當(dāng)
線路數(shù)據(jù)到達(dá)本端或CD(Carrier Detect)和RTS(Request To Send)信號(hào)線狀態(tài)發(fā)生變化時(shí)
,這就要求我們使用相應(yīng)的事件來(lái)跟蹤和處理。在該控件中,是使用OnComm來(lái)實(shí)現(xiàn)的,它也包
括檢測(cè)和處理通信錯(cuò)誤等方面的問(wèn)題。以下是MSCOMM詳細(xì)的錯(cuò)誤和事件列表(讀者可參閱S
KD或MSC/C++ 7.0等中的Windows.h有關(guān)的通信部分常數(shù)和函數(shù)原型):
MSCOMM_ER_BREAKA收到一個(gè)Break signal.
MSCOMM_ER_CDTOCD信號(hào)超時(shí)
MSCOMM_ER_CTSTOCTS信號(hào)超時(shí)
MSCOMM_ER_DSRTODSR信號(hào)超時(shí)
MSCOMM_ER_FRAME幀錯(cuò)誤發(fā)生
MSCOMM_ER_OVERRUN接收數(shù)據(jù)丟失
MSCOMM_ER_RXOVER接收緩沖器溢出
MSCOMM_ER_RXPARITY糾驗(yàn)錯(cuò)
MSCOMM_ER_TXFULL發(fā)送緩沖器滿
MSCOMM_EV_CDCD信號(hào)改變
MSCOMM_EV_CTSCTS信號(hào)改變
MSCOMM_EV_DSRDSR信號(hào)改變
MSCOMM_EV_EOF收到一個(gè)文本文件結(jié)束字符(26)
MSCOMM_EV_RING檢測(cè)到一個(gè)振鈴信號(hào)
MSCOMM_EV_RECEIVE接收到設(shè)定的字符數(shù)時(shí)產(chǎn)生該事件
MSCOMM_EV_SEND發(fā)生緩沖器中的字符數(shù)低于設(shè)定的數(shù)值時(shí)產(chǎn)生該事件
以上常數(shù)定義在CONSTANT.TXT文件中。
(2) 查詢方式,由程序設(shè)計(jì)者來(lái)負(fù)責(zé)讀取CommEvent的值并處理所發(fā)生的錯(cuò)誤或事件。
通常簡(jiǎn)單的應(yīng)用程序設(shè)計(jì)可采用這種方法。
使用通信控件開(kāi)發(fā)通信軟件時(shí),能非常簡(jiǎn)單地設(shè)計(jì)出同時(shí)訪問(wèn)多個(gè)通信口的程序,這就
是Windows的好處。例如使用Commi.OnComm,其中1≤i≤n(n:當(dāng)前可用的通信口),就可以設(shè)
計(jì)多個(gè)通信串口處理程序。例如,一個(gè)基于電話網(wǎng)用來(lái)檢索信息資料的小型服務(wù)器的后臺(tái)軟
件的設(shè)計(jì)應(yīng)用就是一個(gè)很好的例子。MSCOMM.VBX中提供了27個(gè)關(guān)于通信控件方面的屬性,以
下列出最重要的幾個(gè):
CommPort設(shè)置和返回通信口的數(shù)目
Settings設(shè)置和返回以字符串形式給出的數(shù)據(jù)通信格式:波特率,校驗(yàn),數(shù)據(jù)位和停止
位
PortOpen設(shè)置和返回通信口的狀態(tài)(包括打開(kāi)和關(guān)閉一個(gè)通信口)
Input讀串行數(shù)據(jù)接收緩沖器
Output發(fā)送一個(gè)串
在MSCOMM.VBX中,有兩個(gè)與Input和Output性質(zhì)相等同的函數(shù);
(1) 輸入函數(shù),從串行通信接收緩沖器中讀取字符串,句型如下:
Comlnput(By Val hWnd As Integer, lpData As Any,By Val cbData As Integer) A
s Integer
@@T8S14200.GIF;圖1@@
返回值:本次讀操作實(shí)際讀取的字符數(shù)
(2) 輸出函數(shù),向通信口發(fā)送一個(gè)字符串,句型如下:ComOutput(By Val hWnd As Inte
ger, lpData As Any,By Val cbData As Integer) As integer
@@T8S14201.GIF;圖2@@
返回值:本次寫(xiě)操作實(shí)際發(fā)送的字符數(shù)
二、事件驅(qū)動(dòng)和查詢方式下的兩種通信軟件開(kāi)發(fā)模板
這兩種方式分別對(duì)應(yīng)我們通常使用匯編或C/C++來(lái)寫(xiě)通信程序中的中斷和查詢方法。
(1) 事件驅(qū)動(dòng)
下例是一個(gè)使用事件驅(qū)動(dòng)方式設(shè)計(jì)通信程序的模板,我們只需根據(jù)自己的實(shí)際情況來(lái)選
擇在下列的Case語(yǔ)句中插入相應(yīng)的代碼即可。
Sub Comm_OnComm()
Select Case Commi.CommEvent'i=1,2...
' 錯(cuò)誤部分
Case MSCOMM-ER_BREAK'插入處理BREAK代碼
Case MSCOMM-ER_CDTO'插入處理CD(RLSD)超時(shí)代碼
Case MSCOMM-ER_CTSTO'插入處理CTS超時(shí)代碼
Case MSCOMM-ER_DSRTO'插入處理DSR超時(shí)代碼
Case MSCOMM-ER_FRAME'插入處理幀錯(cuò)誤代碼
Case MSCOMM-ER_OVERRUN'插入處理數(shù)據(jù)丟失代碼
Case MSCOMM-ER_RXOVER'插入處理接收緩沖器溢出代碼
Case MSCOMM-ER_RXPARITY'插入處理校驗(yàn)錯(cuò)誤代碼
Case MSCOMM-ER_TXFULL'插入處理發(fā)送緩沖器滿代碼
'事件部分
Case MSCOMM-EV_CD'插入處理CD信號(hào)改變代碼
Case MSCOMM-EV_CTS'插入處理CTS信號(hào)改變代碼
Case MSCOMM-EV_DSR'插入處理DST信號(hào)改變代碼
Case MSCOMM-EV_EOF'插入處理收到一個(gè)文本文件結(jié)束字(26)代碼
Case MSCOMM-EV_RING'插入處理檢測(cè)到一個(gè)振鈴信號(hào)代碼
Case MSCOMM-EV_RECEIVE'插入接收到設(shè)定的字符數(shù)時(shí)產(chǎn)生該事件代碼
Case MSCOMM-EV_SEND'插入處理發(fā)生緩沖器中的字符數(shù)低于設(shè)定的數(shù)值時(shí)產(chǎn)生該
事件的代碼
End Select
End Sub
(2) 查詢方式
查詢方式,就是每個(gè)命令(含數(shù)據(jù)塊)都要查詢等待對(duì)它的回答。詳細(xì)使用方法請(qǐng)見(jiàn)下文
的實(shí)例敘述。
三、一個(gè)完整例子
該程序的設(shè)計(jì)背景是全軍醫(yī)藥信息網(wǎng)上電話撥號(hào)用戶前臺(tái)軟件中的自動(dòng)撥號(hào)部分,為節(jié)
省篇幅和說(shuō)明問(wèn)題,這里進(jìn)行了重新編輯,但其本身是完整的。該程序幫助主人進(jìn)行電話撥
號(hào)以呼通被叫。
調(diào)試環(huán)境:LEO 486/50,HiTec MODEM,院內(nèi)電話脈沖撥號(hào),使用串行口1,PWIN 3.1
程序Form由下列部分組成:List1電話號(hào)碼顯示列表;Label1撥號(hào)狀態(tài)顯示;Dial,Canc
el,
Quit三個(gè)按鈕;MSCOMM.VBX通信控件。
' ------------
' Visual Basic 3.0 MSCOMM.VBX程序設(shè)計(jì):使用MODEM撥號(hào),人工通話
' 程序名:MDIALER.TXT
' 軍事醫(yī)學(xué)科學(xué)院計(jì)算中心 夏云,1995.2.12
' 運(yùn)行:使用VB FILE中的Load Text項(xiàng)裝入,按F5或生成.EXE文件運(yùn)行
' ------------
Option Explicit
Dim PhoneNumbers$()'電話號(hào)碼存儲(chǔ)變量
Dim CancelFlag'Cancel按鈕狀態(tài)標(biāo)志
Sub Dial(Number$)'撥號(hào)例程
Dim DialString$,FromModem$,dummy
'根據(jù)脈沖/雙音多頻撥號(hào)方式來(lái)選擇DT/DP;
'所撥號(hào)碼存放在變量PhoneNumbers$(Index)中;
'命令中的分號(hào)表示MODEM在撥號(hào)后重新回到命令狀態(tài);
'每個(gè)命令由回車(chē)符Chr$(13)結(jié)束;
DialString$="ATDT"+Number$+";"+Chr$(13)
Commi.Settings="2400,N,8,1"'設(shè)置幀格式
On Error Resume Next'錯(cuò)誤恢復(fù)
Commi.PortOpen=True'啟動(dòng)該口工作
If Err Then'如果該口不可啟動(dòng),則顯示信息
MsgBox"當(dāng)前串行通信端口不能工作,請(qǐng)選擇使用另外端口。”
Exit Sub
End if
Commi.InBufferCount=0'清除接收緩沖器
Commi.Output=DialString$'開(kāi)始撥號(hào)
Do'等待MODEM返回“OK”回答
dummy=DoEvents()'進(jìn)入等待方式,將資源提交系統(tǒng)管理
If Commi.InBufferCount Then'若接收緩沖器中有數(shù)據(jù)存在,則讀
FromModem$=FromModem$+Commi.Input
If InStr(FromModem$,"OK")Then '是否接收到“OK”
Beep'已經(jīng)接收到“OK”,發(fā)蜂嗚聲
MsgBox"對(duì)方電話已經(jīng)撥通,請(qǐng)摘話機(jī)并按回車(chē)或OK鈕”
Exit Do
End If
End If
If CancelFlag Then'若Cancel鈕按下則處理
CancelFlag=False
Exit Do
End If
Loop
Commi.Output="ATH"+Chr$(13)'掛斷命令
Commi.PortOpen=False'關(guān)閉該口
End Sub
Sub DialButton_Click()'Dial按鈕處理程序
Dim Number$,Temp$
DialButton.Enabled=False'Dial,Quit二個(gè)按鈕同時(shí)無(wú)效
QuitButton.Enabled=False
CancelButton.Enabled=True'開(kāi)放Cancel按鈕
Number$=PhoneNumbers$(List1.ListIndex))'獲得一個(gè)電話號(hào)碼
Temp$=Status'保存狀態(tài)
Status$=“正在撥號(hào)碼:”+Number$
Dial Number$'撥號(hào)例程執(zhí)行
DialButton.Enabled=True'撥號(hào)結(jié)束開(kāi)放Dail,Quit按鈕
DialButton.Enabled=True
CancelButton.Enabled=False'禁止Cancel按鈕
Status=Temp$'恢復(fù)狀態(tài)
End Sub
Sub Form_Load()
Commi.InputLen=0'設(shè)置0值:讀全部接收緩沖器內(nèi)容
MDialer.Show'顯示窗口
List1.AddItem“四環(huán)醫(yī)學(xué)研究院計(jì)算中心”
List1.AddItem“軍事醫(yī)學(xué)科學(xué)院情報(bào)所張華研究員”
ReDim PhoneNumbers$(0 To List1.ListCount-1)
PhoneNumbers$(0)="1-8233296"
PhoneNumber$(1)="1-8232255"
List1.ListIndex=0'默認(rèn)第一個(gè)號(hào)碼
End Sub
Sub List1-DblClick()'列表框選擇號(hào)碼啟動(dòng)撥號(hào)
DialButton-Click
End Sub
Sub CancelButton-Click()'Cancel按鈕處理程序
CancelFlag=True'標(biāo)識(shí)Cancel鈕已按下
CancelButton.Enabled=False'取消該鈕繼續(xù)活動(dòng)
End Sub
Sub QuitButton-Click()'Quit按鈕
End'結(jié)束
End Sub
MSCOMM.VBX對(duì)開(kāi)發(fā)Windows平臺(tái)下的通信軟件的確方便容易,使用事件驅(qū)動(dòng)能設(shè)計(jì)良好
的后臺(tái)通信程序、開(kāi)發(fā)終端仿真軟件和解決更復(fù)雜的實(shí)際問(wèn)題。該通信控件不但包括了全
部Windows API中關(guān)于串行通信的16個(gè)函數(shù)所完成的功能,而且開(kāi)拓了更多的使用戶設(shè)計(jì)方
便的對(duì)象屬性來(lái)滿足不同用戶不同業(yè)務(wù)的需求。因此我們可以應(yīng)用上文討論的內(nèi)容和方法
,利用Windows環(huán)境,使用VB工具來(lái)開(kāi)發(fā)設(shè)計(jì)所有串行通信的軟件。另外,MSCOMM為了能在下
一個(gè)高速調(diào)制解調(diào)設(shè)備標(biāo)準(zhǔn)中直接使用,它提供了14.4Kbps一檔的速率接口。
(作者地址:北京太平路27號(hào)計(jì)算中心,100039;收稿日期:1995年3月)
|
