3.怎样合理使用FlushComm与GetCommError函数?
FlushComm函数的功能是清除指定设备接收或发送队列。GetCommError函数的功能是返回指定设备最近错误码和当前状态,更重要的是"解锁"功能:当出现通信错误时,Windows会锁死通信端口直到调用GetCommError。
调用FlushComm的时机很重要,如果通信端口发生错误,不调用该函数就有可能会使接收队列包含不期望的数据;若随便调用该函数,也有可能造成尚未读入或发出的数据丢失。总之,调用该函数要做到"心中有数"。
为了合理调用FlushComm和GetCommError函数,建议在事件掩码中包含EV_ERR与EV_BREAK。
4.Windows多串口通信
Windows最多可支持四个串口的通信,但对于ISA总线的PC,由于其COM1与COM3、COM2与COM4分别共用IRQ3和IRQ4,所以只能同时使用两个串口。MCA、EISA总线系统没有此限制。
如果需要使用的端口不止四个,可以在PC护展槽中加插多用户卡,如美国的Comtrol、 台湾 的Moxa(摩莎)等,就可以支持几个到几十个串口,加上随卡提供的Windows驱动程序,就可以进行多串口通信。具体用法请参阅扩展卡说明书。
三、Windows通信实例
实例的通信环境为:本方COMPAQ 4/50微机,安装中文Windows3.2;对方为8031单片机。通信参数设置:波特率150bps,数据位8,停止位1,无校验。通信协议是:对方发FF,本方收到后回0F,对方收到0F后发一条十字节的消息,本方回0F,结束一次通信。
编程环境为中文Windows3
#include<windows.h>
#include<owl.h>
#include<window.h>
#include<string.h>
int COM=1;//串口号
unsigned char ReceiveBuff〔11〕;//接收数据缓存
_CLASSDEF(TCommApp)
class TCommApp: public Tapplication
{
public:
TCommApp(LPSTR AName, HINSTANCE hInstance, HINSTANCE
HPrevInstance, LPSTR 1p
CmdLine, int nCmdshow)
:TApplication(AName, hInstance, hPrevInstance, 1pCmd
Line, nCmdShow){};
virtual void InitMain Window();
};
_CLASSDEF(TCommWin)//主窗口类
class TComm Win: public TWindow
{
public:
TComm Win(PTWindowsObject AParent, LPSTR ATitle):
TWindow(AParent, Atitle){}
int InitCom();
void SetBaud();//设置Windows不支持的波特率
virtual BOOL WMCommNotify(TMessage & Mg)=〔WM_FIRST+
WM_COMMNOTIFY〕;
virtual void Setup Window();
};
//该函数设置串口2的波特率为150bps,若用Windows提//供的波特率通信,则无须该函数
Void TCommWin::SetBaud()
{
asm cli;
asm mov dx,2fbh;
asm mov al,80h;
asm out dx,al;
asm mov dx,2f8h;
asm mov al,00h;
asm out dx,al;
asm mov dx,2f9h;
asm mov al,3;
asm out dx,al;
asm mov dx,2fbh;
asm mov al,03;
asm out dx,al;
asm mov dx,2fch;
asm mov al,0bh;
asm out dx,al;
asm mov dx,2f9h;
asm mov al,0fh;
asm out dx,al;
asm mov al,20h;
asm out 21h,al;
asm sti;
}
int TComm Win::InitCom()
{
char str〔20〕,s〔2〕;
int COMid,err;
DCB dcb;//设备控制块
UINT Mask=EV_BREAK|EV_ERR|EV_RXFLAG;//事件掩码
strcpy(str,"COM");
strcat(str,itoa(COM+1,s,10));
COMid=OpenComm(str,128,1);
if(COMid<0) return COMid;
strcat(str,":300,n,8,1");
err=BuildCommDCB(str,&dcb);
dcb.EvtChar=-1;//事件字符0xff
err=SetCommState(&dcb);
SetBaud();
if(err>0) return err;
FlushComm(COMid,1);
if(!EnableComunNotification(COMid,HWindow,10,-1))
return -1;
SetCommEventMask(COMid,Mask);
return COMid;
}
void TCommWin::SetupWindow()
{
TWindow::SetupWindow();
InitCom();
}
BOOL TCommWin::WMCommNotify(TMessage &Mg)
{
UINT flag=0;
int id;
COMSTAT stat;
unsigned char SendChar;
static unsigned char
*p=ReceiveBuff;
static num=0;
int ret;
id=Mg.WParam;
switch(Mg.LP.Lo)
{
case CN_EVENT://有事件掩码中定义的事件发生
flag=GetCommEventMask(id,EV_BREAK);
if(flag & EV_BREAK)
FlushComm(id,1);
flag=GetCommEventMask(id,EV_RXFLAG);
if(flag & EV_ERR)
FlushComm(id,1);
flag=GetCommEventMask(id,EV_RXFLAG);
if(flag & EV_RXFLAG)//收到了事件字符0xff
{
SendChar=0x0f;
WriteComm(id,& SendChar,1);//向对方回0x0f
}
break;
case CN_RECEIVE://接收到了规定个字符或超时
do
{
ret=ReadComm(id,p,1);
if(ret>0)
{
p++;
num++;
}
}while((ret>0)&(num<10));
if(num>=10)//接收完一条消息
{
num=0;
//此处处理接收到的消息
p=ReceiveBuff;
SendChar=0x0f;
WriteComm(id,& SendChar,1);//向对方回0x0f
FlushComm(id,1);
}break;
}
flag=GetCommError(id,&stat);//消除错误(若有)
return 1;
}
void TCommApp::InitMainWindow()
{
MainWindow=new TCommWin(NULL, "Windows通信示例");
}
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevI
nstance,LPSTR 1pCmdLine,
int nCmdShow)
{
TCommApp CommApp("通信", hInstance,hPrevInstance,1pC
mdLine, nCmdShow);
CommApp.Run();
return CommApp.Status;
}
DOS用户界面的设计
全面了解ODBC技术