夏云

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