摘要 在Win95中，串行通信的機制相對Windows 3.x已作了改進和標準化。本文結(jié)合一個實例從調(diào)用API接口的角度，具體闡述了一種用簡單的串口查詢法來實現(xiàn)串行通信的思路。

關鍵詞 API、串行通信、Visual Basic、多線程、Win95

Visual Basic是一個Windows系統(tǒng)下流行的應用程序開發(fā)平臺。其方便的界面設計使程序員能節(jié)省大量時間，并把最大的精力集中在應用程序核心代碼的編寫上。VB4目前已成為Win95系統(tǒng)下一種最高效靈活的主流開發(fā)工具之一，而調(diào)用API應用程序接口則正是對VB4功能的強有力擴充，它使得VB4能夠直接控制和處理PC硬件資源，而不必依賴于MS-DOS系統(tǒng)服務�？梢哉f，正是借助于API使得VB即能隱藏大部分Windows編程的難點，同時又提供了使用Windows環(huán)境的靈活性。

因而在串行通信中使用調(diào)用API接口的方法是實現(xiàn)在VB中直接控制串行口硬件的簡便可行的解決方案。

一、關于Win95的多線程及32位API的描述

微軟于95年推出的Win95操作系統(tǒng)是對其舊版本W(wǎng)indows性能的一次全面提升。它率先提出并實現(xiàn)了應用程序多線程的編程思想，這是Win95系統(tǒng)區(qū)別于其他系統(tǒng)最顯著和最重要的特征之一。進程是應用程序的執(zhí)行實例，而線程則是進程內(nèi)部執(zhí)行的路徑，從根本上說，線程是可由系統(tǒng)調(diào)度的一個最簡單的代碼單元，每個線程有自己的一組CPU寄存器和堆棧。Win95為每個獨立的線程安排一些CPU時間，操作系統(tǒng)以輪轉(zhuǎn)方式向線程提供時間片，這樣每個線程從外觀上看就象都在同時運行一樣。一個多線程的應用程序?qū)嶋H上在其內(nèi)部實現(xiàn)了多任務擴展，為代碼賦予了并行執(zhí)行的特性。

多線程應用程序的主要優(yōu)勢就是可以用盡量少的時間對用戶的要求作出響應。多線程并不代表代碼會運行得更快，準確地說，它僅僅意味著應用程序可以更好地利用系統(tǒng)資源（調(diào)度機制、內(nèi)存和物理設備）。從而能建立一個非常靈活的應用程序，它能隨時接收用戶輸入，并得到滿意的效果。

因此為了在32位的Win95系統(tǒng)中建立更快速、可靠和健壯的代碼，多線程技術是必須掌握的關鍵技術之一。

API（即應用編程接口）是附帶在Win95內(nèi)部的一個極其重要的組成部分。Win95的32位API主要是一系列很復雜的函數(shù)、消息的集合。它可以看作是Win95系統(tǒng)為在其下運行的各種開發(fā)系統(tǒng)提供的開放式通用功能增強接口。它使編程人員可以更容易地用不同類型的語言編制出運行在Win95系統(tǒng)上的應用程序。

與Windows 3.x的16位API相比，附帶在Win95中的Win32 API是API質(zhì)量最顯著的一次提升。它正逐漸成為應用廣泛的一種目標平臺。Win32 API包括了1000多個API調(diào)用，加上API附帶的幾百種Windows常量、消息和數(shù)據(jù)類型結(jié)構，使用戶擁有了一系列用于Win95編程的復雜的而又有效的工具。

API接口是對VB功能的最重要的擴充。幾乎所有用VB的標準功能不能處理的問題都可以用調(diào)用API接口函數(shù)的方法來解決。API接口調(diào)用不僅給VB提供了大量可擴充的功能強勁的函數(shù)。更為重要的是，它提供了一種最切實地擴充VB功能的思路和方法。尤其在一些直接和硬件交互的低級操作中，調(diào)用API接口函數(shù)往往是唯一的可行辦法。

總之，調(diào)用API接口并結(jié)合多線程的編程技術已成了Win95環(huán)境下最流行的一種高級技術。大多數(shù)應用程序的代碼都不得不涉及到這個高級專題。

二、Win95串行通信的工作機理

常用的DOS系統(tǒng)主要是工作在響應中斷方式。PC機串行通信程序大多利用其BIOS塊的INT14H中斷，以查詢串口的方式完成異步串行通信。

與DOS響應中斷的工作方式不同，Windows是一個事件驅(qū)動的，并與設備無關的多用戶操作系統(tǒng)。同時Windows禁止應用程序直接和硬件交互，程序員只能通過Windows提供的各類驅(qū)動程序來管理硬件。在這種情況下，Windows系統(tǒng)充當了應用程序與硬件之間的中介。

Windows系統(tǒng)函數(shù)即包含了通信支持中斷功能。Win95系統(tǒng)為每個通信設備開辟了用戶定義的輸入輸出緩沖區(qū)（即讀/寫緩沖區(qū)），數(shù)據(jù)進出通信口均由系統(tǒng)后臺來完成。應用程序只需完成對輸入輸出緩沖區(qū)操作就可以了。實際過程是每接收一個字符就產(chǎn)生一個低級硬件中斷，Win95系統(tǒng)中的串行驅(qū)動程序就取得了控制權，并將接收到的字符放入輸入數(shù)據(jù)緩沖區(qū)。然后將控制權返還正在運行的應用程序。如果輸入緩沖區(qū)數(shù)據(jù)已滿，串行驅(qū)動程序用當前定義的流控制機制通知發(fā)送方停止發(fā)送數(shù)據(jù)。隊列中的數(shù)據(jù)按“先進先出”的次序處理。

Windows 3.x提供了COMM.DRV驅(qū)動程序以支持串行通信，而Win95已對這些串行通信的標準函數(shù)作了改進和標準化，并把對串口的支持與基本輸入輸出驅(qū)動程序集成為一體。Win95像對文件操作一樣來實現(xiàn)對串口的操作，兩者使用相同的打開、關閉及讀寫函數(shù)。

16位的API只提供了16個與通信相關的函數(shù)。與這些16位的通信函數(shù)相比，Win95提供的通信函數(shù)更為豐富，功能更為強大。

在Win95系統(tǒng)中，串行口和串行通信驅(qū)動程序是通過一個數(shù)據(jù)結(jié)構進行配置的，這個數(shù)據(jù)結(jié)構被稱為設備控制塊( Device Control Block )，簡稱DCB。Win95的DCB比Windows 3.x的DCB更復雜，對數(shù)據(jù)結(jié)構的定義更完善。

下面是Win95中設備控制塊數(shù)據(jù)結(jié)構的定義：

Type DCB ’在Win95 API中有詳細定義，可從VB4的API Text Viewer中得到
DCBlength As Long
BaudRate As Long
fBinary As Long
fParity As Long
……
EvtChar As Byte
End Type
Win95為獲取通訊端口的狀態(tài)提供了重要的GetCommState函數(shù)。函數(shù)把端口的配置信息裝入一個設備控制塊DCB，從而獲得端口的配置情況。

另一個重要的COMSTAT結(jié)構則通常被用來描述串口當前的狀態(tài)。其定義如下：

Type COMSTAT ’在Win95 API中有詳細定義，可從VB4的API Text Viewer中得到
fCtsHold As Long
fDsrHold As Long
……
cbInQue As Long
cbOutQue As Long
End Type
通常可按以下四步實現(xiàn)串行通信：

(1) 按協(xié)議的設置初始化并打開串行口，這樣做就是通知Windows本應用程序需要這個串口，
并封鎖其他應用程序使它們不能使用此串口。
(2) 配置這個串行口。
(3) 在串口上往返地傳輸數(shù)據(jù)，并在傳輸過程中進行校驗。
(4) 不需要此串口時，關閉串口。即釋放串口以供其它應用程序使用。
在這四個步驟中，主要的程序代碼集中在第（3）步。

三、VB串口查詢法的實現(xiàn)方法

（1）串口查詢法的機理

VB的串口查詢法是一種主要工作在查詢方式下的實現(xiàn)方法。當通信程序工作在“查詢”方式時，可以不考慮Win95的進程和線程的問題。僅在串口有數(shù)據(jù)時，去讀串口緩沖區(qū)就可以了。這種方法下確定串口讀取的時機、握手協(xié)議及軟件糾錯的實現(xiàn)是程序員應考慮的主要問題。

由于這種方法主要工作在查詢方式。程序員必須完成相當一部分通信狀態(tài)的檢測工作，許多細節(jié)（甚至包括通信過程中的字符屬性的轉(zhuǎn)換）也必須通過程序代碼完成。因而相比較通信控件方法而言，這種查詢方法對通信雙方協(xié)議的依賴性尤其大。雙方通信協(xié)議的約定對程序?qū)崿F(xiàn)的難易程度影響很大。

值得注意的一點是，此方法下協(xié)議的約定必須滿足以下條件：即甲方發(fā)送時，乙方必須在甲方發(fā)送動作之前進入循環(huán)接收狀態(tài)，直到接收到字符后通過對串口讀取函數(shù)ReadFile返回值的判斷跳出循環(huán)狀態(tài)。

同時，一般為了不使系統(tǒng)因循環(huán)等待接收而進入“死循環(huán)”狀態(tài)，可以人為設置讀取串口的循環(huán)次數(shù)，一般1000～10000次即可。

VB4是一種極為靈活的高級語言，因而在這種方法下可以方便地引入?yún)R編語言的思維，利用其GoTo轉(zhuǎn)向語句方便地控制程序的流程。非常靈活方便。

（2）與通信線程法的比較

通信線程法通過在應用程序的主線程外再創(chuàng)建一個通信線程來監(jiān)視通信設備，其最大優(yōu)點是程序?qū)�接收�?shù)據(jù)具有自主覺察能力。一旦通信線程查詢到數(shù)據(jù)已發(fā)送到串口上，線程自動向應用程序發(fā)送一個數(shù)據(jù)接收到的消息，應用程序可用該消息來讀取通信設備傳來的數(shù)據(jù)。并且使用通信線程還不占用CPU時間。這樣系統(tǒng)實際上具有了同時控制多個通信設備（如MODEM）的能力。

通信線程法在C++的開發(fā)系統(tǒng)中用得較多，這與C++的特點和優(yōu)勢密切相關。

由于VB自身的特點，創(chuàng)建通信線程的方法對VB而言，實現(xiàn)上有相當?shù)碾y度。而且這樣做，也無異于犧牲VB的簡單方便性而去遷就程序的復雜性，很不經(jīng)濟。串口查詢法容易地引入了匯編語言的一些思維，實現(xiàn)了最精簡的程序代碼。它不一定是最完善，但對一般VB程序員來說，這種方法確實達到了簡化思路和降低難度的目的。因而實現(xiàn)簡單。

四、串口查詢法的程序?qū)嵗?

現(xiàn)約定甲方是PC機，乙方是單片機系統(tǒng)（如電卡電度表系統(tǒng)的讀卡器）。通信格式設置為2400波特率，8位數(shù)據(jù)位，1位停止位，無奇偶校驗。

以下是甲方（PC機）的幾個子函數(shù)的程序?qū)嵗��?
Private Function OpenThePort（cPort as String，cBaud as String，cParity as String，cData as String，tStops as String）As Boolean
Dim lResult as Long
Dim lHandle as Long
Dim DCB_COMM as DCB
Dim cDCBConfig as String
lHandle = CreateFile（cPort，GENERIC_READ Or GENERIC_WRITE，0&，0&，OPEN_EXISTING，0&，0&）
If lHandle = -1 Then ’打開串口失敗
OpenThePort = False
MsgBox “串口可能正被其他應用程序占用！”
lResult = CloseHandle（lHandle） ’先關閉串口后再打開
If lResult = 0 Then
OpenThePort
Exit Function
End If
End If
cDCBConfig.band = 2400 ’設置DCB
cDCBConfig.parity = None
cDCBConfig.data = 8
cDCBConfig.stop = 1
lResult = BuildCommDCB（cDCBConfig，DCB_COMM） ’按用戶設定配置一個DCB結(jié)構
If lResult = 0 Then
OpenThePort = False
MsgBox “無法建立DCB設備控制塊”
Exit Function
End If
lResult = SetCommState（lHandle，DCB_Comm） ’實際設置一個串口的DCB
If lResult = 0 Then
OpenThePort = False
MsgBox “無法建立DCB設備控制塊”
Exit Function
End If
OpenThePort = True
End Function

Private Sub SendHand ( ) ’發(fā)送握手信號的子過程
Dim Nchars As Long
Static Readbuff As String * 1
Static Writebuff As String * 1
Dim lpDCB As DCB
Dim lRet As Long
Dim lHandle As Long
Dim lpOverlapped As OVERLAPPED
Dim RNum As Integer

MsgBox “請把電卡讀卡器插在串口2上！”，48，“提示窗口”
lHandle = OpenThePort（COMM1，2400，None，8，1）
lRet = PurgeComm( lHandle，1 ) ’清輸出緩沖區(qū)
lRet = PurgeComm( lHandle，0 ) ’清輸入緩沖區(qū)
lRet = GetCommState ( lHandle，lpDCB ) ’獲得通訊口的狀態(tài)
Shand：
Writebuff＄ = Chr＄(&H8F)
lRet = WriteFile ( lHandle，Writebuff＄，1，Nchars，lpOverlapped ) ’送握手信號入串口緩沖區(qū)
If lRet <= 0 Then
MsgBox “發(fā)送操作出錯,電卡握手信號未發(fā)送成功”， 16
GoTo Shand ’不成功則重發(fā)
Else
GoTo Qtest
End If
GoTo Shand
Qtest：
Readbuff$ =“ ” ’清除緩沖區(qū)為空
Do While lHandle ’循環(huán)查詢串口
RNum = 0 ’設置讀串口次數(shù)的指針為0
ReadAgain：
lRet = ReadFile( lHandle，Readbuff＄，1，Nchars，lpOverlapped )
If lRet < 0 Then
MsgBox “讀取應答信號時出錯”， 16
End If
If lRet = 0 Then
If RNum > 1000 Then ’只讀1000次串口，以免陷入死循環(huán)
MsgBox "電卡沒有插接好或電卡沒有接在串口上!"
GoTo CloseP
End If
RNum = RNum + 1
GoTo ReadAgain
End If
If Hex＄(Asc(Readbuff)) <> Hex＄(&HFF) Then
GoTo Shand ’回送碼不正確則返回繼續(xù)發(fā)送握手信號
Else
Label1.Caption = “握手信號是：”＋Hex＄(Asc(Readbuff＄))
Msgbox “握手信號正確，已正確聯(lián)機”
GoTo CloseP
End If
Loop
CloseP： lRet = CloseHandle( lHandle )
If lRet = 0 Then
MsgBox “串行通訊口關閉成功”，48，“提示窗口”
End If
End Sub

這里，要注意的是：當PC機與單片機系統(tǒng)通信時，單片機數(shù)據(jù)存儲區(qū)( RAM )內(nèi)的數(shù)據(jù)是十六進制，在信號線上傳輸?shù)氖鞘�六進制數(shù)的ASCII碼的二進制形式；而Windows系統(tǒng)下使用的是ANSI碼，ANSI碼僅在前126個與ASCII碼相同。即在Win95下接收到的是十六進制數(shù)的ASCII碼的字符串，可先轉(zhuǎn)換為ANSI碼后再在Win95下還原為十六進制數(shù)。

具體如下：Code$ = Hex＄( Asc ( Readbuff$ ) )

另外，由于32位API函數(shù)參數(shù)的數(shù)據(jù)類型的變化，所有整形參數(shù)都被換為長整型（Long）以支持32位的處理，這一點在設置返回值尤其如此。

同時，這些API函數(shù)、類型及常量在調(diào)用之前，必須先聲明再使用。

五、結(jié)束語

由上可見，調(diào)用API接口的VB串口查詢法具有實現(xiàn)簡便、難度低、代碼精簡的突出優(yōu)點。很適合一般VB程序員在編寫通信程序時使用。