MSComm控件在中文Windows下的通信問題與處理方法

摘要VB5.0/6.0的MSComm通信控件提供了一系列標準通信命令的接口，它允許建立串口連接，但在實際通信軟件設計過程中，MSComm控件并非像想像中那樣完美和容易控制，特別是在中文Windows下通信時更會出現(xiàn)問題。本文就MSComm控件在實際應用中可能出現(xiàn)的問題以及編程技巧進行探討。關鍵詞MsComm控件串口通信

處理1.MSComm控件的基礎理論一般說來，計算機都有一個或多個串行端口，它們依次為Com1、Com2、...。這些串口還提供了外部設備與PC進行數(shù)據(jù)傳輸和通信的通道，這些串口在CPU和外設之間充當解釋器的角色。當字符數(shù)據(jù)從CPU發(fā)送給外設時，這些字符數(shù)據(jù)將被轉換成串行比特流數(shù)據(jù)；當接收數(shù)據(jù)時，比特流數(shù)據(jù)被轉換為字符數(shù)據(jù)傳遞給CPU。再進一步說，在操作系統(tǒng)方面，Windows用通信驅動程序(COMM.DRV)調用API函數(shù)發(fā)送和接收數(shù)據(jù)。當用通信控件或聲明調用API函數(shù)時，它們由COMM.DRV解釋并傳遞給設備驅動程序。作為一個VB程序員，要編寫通信程序，只需知道通信控件提供給Windows通信API函數(shù)的接口即可，換句話說，只需設定和監(jiān)視通信控件的屬性和事件即可。2.利用MSComm控件進行數(shù)據(jù)的接收和發(fā)送搞清楚以上基本屬性和事件后就可以開始編寫通信程序了：在VB5.0/6.0中新建一個工程文件，添加MicrosoftCommcontrol5.0組件，在窗體Form1中加入Command命令按鈕并取名為cmdTest，MSComm控件取名為MSComm1，寫入以下代碼：PrivateSubcmdTest_Click()MSComm1.CommPort=1'設定Com1口IfMSComm1.PortOpen=FalseThen

MSComm1.Settings="9600，N，8，1"

'9600波特率，無校驗，8位數(shù)據(jù)位，1位停止位

MSComm1.PortOpen=True

'打開串口EndIfMSComm1.OutBufferCount=0

'清空發(fā)送緩沖區(qū)MSComm1.InBufferCount=0

'清空接收緩沖區(qū)'發(fā)送字符數(shù)據(jù)，注意必須用回車符(vbCr)結束MSComm1.Output="Thisisagoodbook!"&vbCr'撥打電話號碼或發(fā)送AT命令MSComm1.Output="ATDT0294563622"&vbCr'發(fā)送字符數(shù)組數(shù)據(jù)，注意ByteArray必須事先定義賦值DimByteArrayasbyte()

'定義動態(tài)數(shù)組

ReDimByteArray(1)'重定義數(shù)組大小

ByteArray(0)=0

ByteArray(1)=1

MSComm1.Output=ByteArray'發(fā)送字符數(shù)組數(shù)據(jù)EndSubPrivateSubMSComm1_OnComm()SelectCaseMSComm1.CommEvent

CasecomEvReceive'接收字符數(shù)據(jù)DimBufferAsVariantMSComm1.InputLen=0'當InputMode屬性值為0（文本模式）時，變量中含String型數(shù)據(jù)。'當InputMode屬性值為1（二進制模式）時，變量中含Byte型數(shù)組數(shù)據(jù)。MSComm1.InputMode=comInputModeBinaryBuffer=MSComm1.Input

'接收二進制數(shù)據(jù)MSComm1.InputMode=comInputModeTextBuffer=MSComm1.Input

CaseelseEndSelectEndSub3.中文Windows下的通信問題與解決方法3.1接收的數(shù)據(jù)少于發(fā)送的數(shù)據(jù)如果通過MSComm控件一次性傳送較多的二進制數(shù)據(jù)，那么，很可能收到的數(shù)據(jù)不足。例如在設置為2400bps傳輸率的情況下，一次性可以傳輸2048個字符數(shù)據(jù)，那么在大多數(shù)情況下一次只能收到1200個字符左右，這是因為新版的MSComm32.OCX中存在一個影響傳輸二進制數(shù)據(jù)的Bug。32位WindowsAPI函數(shù)使用了幾個用COMMTIMEOUTS結構表示的限時變量，WriteTotalTimeOutConstant即是其中的一個，它被Windows內部設定為5000（即5秒），這個常量決定了在通信驅動程序停止傳輸之前花費在發(fā)送緩沖區(qū)中數(shù)據(jù)的時間的長短。5秒鐘意味著通信速度為1200bps情況下僅能發(fā)送600個字符，2400bps情況下僅能發(fā)送1200個左右的字符。事實上，在一個緩沖區(qū)內一次性發(fā)送更多的數(shù)據(jù)是非?？赡艿?。VB5.0/6.0版本的MSComm控件有一個新增的重要的屬性稱為CommID，CommID指的是當串口被打開時，被API所調用的串口句柄（或標志），這也意味著能利用API接口函數(shù)去修改這個常量。每次串口關閉后，Windows會自動將之恢復為5000，所以，每次打開串口后需要重新設定。以下是API聲明代碼：TypeCOMMTIMEOUTSReadIntervalTimeoutAsLongReadTotalTimeoutMultiplierAsLong

ReadTotalTimeoutConstantAsLong

WriteTotalTimeoutMultiplierAsLong

WriteTotalTimeoutConstantAsLongEndTypeDeclareFunctionSetCommTimeoutsLib"Kernel32"(ByValhFileAsLong，_lpCommTimeoutsAsCOMMTIMEOUTS)AsLongDeclareFunctionGetCommTimeoutsLib"Kernel32"(ByValhFileAsLong，_lpCommTimeoutsAsCOMMTIMEOUTS)AsLongDimtimeoutsAsCOMMTIMEOUTSDimRetAsLongIfComm1.PortOpen=FalseThen

Comm1.PortOpen=TrueEndIf'打開串口后重新設定串口句柄Ret=GetCommTimeouts(Comm1.CommID，timeouts)'Setsomedefaulttimeoutstimeouts.ReadIntervalTimeout=1timeouts.ReadTotalTimeoutMultiplier=1timeouts.ReadTotalTimeoutConstant=1timeouts.WriteTotalTimeoutMultiplier=1timeouts.WriteTotalTimeoutConstant=(Comm1.OutBufferSize\Val(Comm1.Settings))*10000+1000Ret=SetCommTimeouts(Comm1.CommID，timeouts)3.2如何發(fā)送大于128的字符數(shù)據(jù)在通信程序中，以單字符方式逐個發(fā)送數(shù)據(jù)時，每一個數(shù)據(jù)范圍為0-255（即十六進制的00-FF）。在單字符版本的英文Windows或DOS版的BASIC程序中，只需要將相應的數(shù)據(jù)轉換成相應的字符發(fā)送到通信端口即可。但在中文Windows下卻行不通，假設在中文Windows下運行以下程序：DimiasIntegerFori=0To255

MSComm1.Output=chr(i)Nexti希望在接收端得到預期的0-255之間的數(shù)據(jù)，結果卻是：前129個數(shù)據(jù)接收正確，為0-128，后面127個數(shù)據(jù)為126個0和一個255。造成這種結果的原因在于中文Windows使用的是雙字節(jié)字符集(DBCS)系統(tǒng)。DBCS系統(tǒng)使用0-128之間的數(shù)字表示ASCII字符，大于128的數(shù)字僅作為前導字符，它只是顯示是一個非拉丁語系的字符，而并不代表實際意義。上述程序在調用CHR()函數(shù)時用到了DBCS字符集，因此產(chǎn)生了此類錯誤。那么，如何發(fā)送大于128的數(shù)據(jù)呢？答案是使用字節(jié)數(shù)組，將以上程序改為：DimMyData(255)AsByteFori=0To255

MyData(i)=iNextiMSComm1.Output=MyDataDo

DoEventsLoopUntilMSComm1.OutBufferCount=0'接收過程PrivateSubMSComm1_OnComm()

SelectCaseMSComm1.CommEventCasecomEvReceive

DimBufferAsVariant

MSComm1.InputMode=comInputModeBinary

MSComm1.InputLen=0

Buffer=MSComm1.Input

Fori=LBound(Buffer)ToUBound(Buffer)Text1.Text=Buffer(i);NextiCaseElseEndSelectEndSub3.3如何發(fā)送中文字符串VB5.0/6.0中可以直接把中文字符等同于英文字符發(fā)送，如：MSComm1.output="現(xiàn)在發(fā)送中文數(shù)據(jù)！"，但這種方法發(fā)送的中文數(shù)據(jù)不能太長，發(fā)送緩沖區(qū)和接收緩沖區(qū)的大小需設定為中文字符的兩倍以上，而且發(fā)送與接收系統(tǒng)所處的操作系統(tǒng)版本最好要一致，否則會出現(xiàn)接收或發(fā)送緩沖區(qū)溢出之類的錯誤。這種方法可用于一般要求不太高的場合。除了上述方法外，還可以采用間接方式發(fā)送中文字符串。在發(fā)送端將漢字或字符轉換為機器內碼或區(qū)位碼數(shù)據(jù)數(shù)組，然后將轉換后的數(shù)據(jù)發(fā)送到串口，在接收端接收到數(shù)據(jù)后，按照相反的順序將得到的數(shù)據(jù)轉換為相應的漢字或字符。在轉換過程中，要用到位運算，如取得漢字的內碼后需要將高字節(jié)和低字節(jié)分開，而VB5.0/6.0中并沒有提供此類函數(shù)，以下是求整數(shù)高、低字節(jié)的函數(shù)。PublicFunctionHiByte(aAsInteger)

DimbAsInteger

b=aAnd&HFF00

b=b/256

Ifb<0Thenb=b+256

HiByte=bEndFunction

PublicFunctionLowByte(aAsInteger)

DimbAsInteger

b=aAnd&HFF

LowByte=bEndFunction3.4如何在通信過程中進行延時在某些通信過程中，常常需要在發(fā)送完一組數(shù)據(jù)后進行一段延時，以等待對方處理上組數(shù)據(jù)，以下是延時函數(shù)代碼。PublicSubDelay(PauseTimeAsSingle)

DimStartStart=Timer

'設定開始時間DoWhileTimer<Sta