VC语言

本类阅读TOP10

·VC++ 学习笔记(二)
·用Visual C++打造IE浏览器(1)
·每个开发人员现在应该下载的十种必备工具
·教你用VC6做QQ对对碰外挂程序
·Netmsg 局域网聊天程序
·Windows消息大全
·VC++下使用ADO编写数据库程序
·VC++学习笔记(四)
·非法探取密码的原理及其防范
·怎样在VC++中访问、修改注册表

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
vc6.0利用API实现串口通讯

作者:未知 来源:月光软件站 加入时间:2005-5-13 月光软件站

int Init_Comm()
{
 CHAR port_name[10];
 DCB  dcb;
 BOOL status;
 DWORD error_number;
 
 status = OK;
 memset(port_name,0,sizeof(port_name));
 memcpy(port_name,"COM1",4);

 handle_com = CreateFile(port_name,
    GENERIC_READ | GENERIC_WRITE,
    0,
    NULL,
    OPEN_EXISTING,
    NULL,
    NULL);

 if(handle_com == INVALID_HANDLE_VALUE)
  return(COMM_ERROR);

 if(!GetCommState(handle_com,&dcb))
  return(COMM_ERROR);

 dcb.BaudRate = 9600;
 dcb.ByteSize = 8;
 dcb.Parity  = NOPARITY;
 dcb.StopBits = ONESTOPBIT;
 dcb.fOutxCtsFlow = 0;
 dcb.fRtsControl = RTS_CONTROL_ENABLE ;

 if( !SetCommState(handle_com, &dcb) )
 {
  error_number = GetLastError();
  status = COMM_ERROR;
 }
 
 if(status != OK)
  CloseHandle(handle_com);

 return(status);     
}

....................................................................................................................................................

if( WriteFile(handle_com,buffer,length,&dwBytesWrite,NULL) == TRUE)
 {
  if(dwBytesWrite != length)
  {
   strMsg.Format("发送失败",NULL,NULL);
   AfxMessageBox(strMsg,MB_OK);  
  }
 }

......................................................................................................................................................

if(!(status=ReadFile(handle_com,&Recv_Buffer[i],1,&dwBytesRead,NULL)))
  {
   PurgeComm(handle_com,PURGE_RXCLEAR);
   return(ABANDON);
  }




相关文章

相关软件