BCB6加Pcomm控件做串行通讯，接收到的数据不对，请大家帮忙！急！！MM先谢过大家----鞠躬-----（在线等！！）

2005-07-27 06:33:26 349 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

babyblue_crystal 墨衍会员 · AI 创作全网分发关注 + 加入社区

最近用BCB6加Pcomm控件做了一个串行通讯的程序，上位机是PC，下位机是单片机（C51），调试了好久，下面的电机也没反应，用串口调试工具试验下位机，没有问题，发送指令后电机运转正常。于是把PC的串口中发送脚和接收脚短接，用2个Memo控件试了字符串的发送，没有问题。在试着发送16进制数的时候，出现异常，发现的规律好像是每个字节的最高位和次高位不是被截掉了就是都被莫名其妙地置成了0，所以只有低6位的数据传输正确，也就是当发送小于0x3F的时候都正常，试验的程序段如下，请大家帮忙看看：
void __fastcall TForm1::PauseAAClick(TObject *Sender)///实现暂停功能
{
int ret,senddata=0xAA; ///0xAA=170
sio_open(1);
sio_ioctl(1,B9600,BIT_8||STOP_1||P_NONE);
sio_flush(1,2);
ret=sio_putch(1,senddata);//Pcomm中用于发送单个字节的函数，
//原形是int sio_putch(int port, int term)
//port = COM port number ；term = character (0 - 255)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RecAAClick(TObject *Sender)//发送后立即接收，是为了做试验
{
int ret,ret1,remainder;
char highdata;
char lowdata;
ret = sio_getch (1);//Pcomm中用于接收单个字节的函数，原形int sio_getch(int port)
//port = COM port number
//Return:0 ~ 255 The character received
ShowMessage(IntToStr(ret));//想把收到的数显示一下，结果显示的就是最高位和次高位为0的数
sio_close(1);
}
请大家帮帮我吧，看了好久，也没找出毛病，是不是BCB在做串口方面有什么特别的地方呢？
谢谢各位了！
我会在线等各位的回音，问题解决了立即给分，还请大家帮帮忙！

...全文

Zabbix-01简单导入MIB文件并测试这里写自定义目录标题安装 MIB文件启用MIB文件测试MIB文件 MIB文件 MIB代表管理信息库。 MIB文件允许您使用OID（对象标识符）的文本表示。 ##例如： ifHCOutOctets 是OID【1.3.6.1.2.1.31.1.1.1.10】的文本表示安装 MIB文件在基于Debian的系统上： # apt install snmp-mibs-downloader # download-mibs 在基于RedHat的系统上： # yum install net-snmp-libs 启用M 阅读详情

babyblue_crystal

网络及通讯开发 1,317 成员 8,874 内容

+ 关注 + 加入社区

切换为时间正序

chillming 2005-09-02

打赏
举报

c_Buf是什么类型的？

zcq129 2005-07-28

打赏
举报

你的波特率设置函数写错了，中间是单'|'，你写成双的了

babyblue_crystal 2005-07-28

打赏
举报

问题解决了，是sio_ioctl(1,B9600,BIT_8||STOP_1||P_NONE);中应该写成sio_ioctl(1,B9600,BIT_8|STOP_1|P_NONE);是偶粗心了，呵呵
谢谢大家

tanfire2003 2005-07-28

打赏
举报

如果不是非要用Pcomm的话，可参考用API函数。以下代码我一直用的

//---------------------延时程序-------------------------------
// 编写日期：2002。5。22
// 参数说明：iDelay -----延时时间，单位毫秒
// 更改日期：
// 更改缘由：
//----------------------------------------------------------------
void __fastcall Delay(DWORD iDelay)
{ DWORD dTimeMark;

dTimeMark=GetTickCount();
while (true)
{
if( ( GetTickCount()- dTimeMark)>=iDelay) break;
else Application->ProcessMessages();
}
}

//***** 串口读写基类 *************
//
// 编写日期： 2004。3。19
// 说明：基本的打开、关闭、清缓冲区、读数据、写数据
//
//*************************************************************************/

__fastcall ComPort::ComPort()
{
hdCom=(HANDLE)-1;
Comp="";
// c_Buf = NULL;
c_Buf=new cl_Dynamic_Buf();
dw_RDTM = 0 ;
dw_WTTM = 0 ;
}

__fastcall ComPort::~ComPort()
{
if(hdCom!=(HANDLE)-1) CloseComm();
if (c_Buf!=NULL) delete c_Buf;
}
//---------------------清理缓冲区-------------------------------
// 编写日期：2002。5。22
// 更改日期：
// 更改缘由：
//----------------------------------------------------------------
void __fastcall ComPort::ClearComBuf()
{
PurgeComm(hdCom,PURGE_RXCLEAR);
}

//---------------------初始化串口-------------------------------
// 编写日期：2002。5。22
// 更改日期：
// 更改缘由：
//----------------------------------------------------------------
bool __fastcall ComPort::InitComm()
{ bool bSuccess=false;
DCB tmpdcb;
COMMTIMEOUTS CommTimeOuts;

if(hdCom!=(HANDLE)-1) CloseComm();
char CommDev[10];
for(int iC=0;iC<10;iC++) CommDev[iC]=0;
strcpy(CommDev,Comp.c_str());

hdCom=CreateFile(CommDev,GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,
FILE_FLAG_OVERLAPPED,NULL);

if(hdCom!=(HANDLE)-1)
{
SetCommMask(hdCom,EV_RXFLAG);
SetupComm(hdCom,nGetBuf,nOutBuf);
bSuccess=GetCommState(hdCom,&tmpdcb);
if (bSuccess)
{
tmpdcb.BaudRate=dcb.BaudRate;
tmpdcb.ByteSize=dcb.ByteSize;
tmpdcb.StopBits=dcb.StopBits;
tmpdcb.Parity =dcb.Parity;
bSuccess=SetCommState(hdCom,&tmpdcb);
}
if (bSuccess) bSuccess=GetCommTimeouts(hdCom,&CommTimeOuts);
if (bSuccess)
{
CommTimeOuts.ReadIntervalTimeout=0;//=MAXDWORD;
CommTimeOuts.ReadTotalTimeoutMultiplier=1;
CommTimeOuts.ReadTotalTimeoutConstant=40;
CommTimeOuts.WriteTotalTimeoutMultiplier=0;
CommTimeOuts.WriteTotalTimeoutConstant=0;
bSuccess=SetCommTimeouts(hdCom,&CommTimeOuts);
}
if (bSuccess)
{
PurgeComm(hdCom,PURGE_TXCLEAR);
PurgeComm(hdCom,PURGE_RXCLEAR);
}
if(!bSuccess) CloseHandle(hdCom);
}
if(!bSuccess) hdCom=(HANDLE)-1;
return bSuccess ;
}

//------------- 关闭串口 -------------------------------
// 编写日期：2003。4。28
// 参数说明： HANDLE ------ 端口句柄
// 更改日期：
// 更改缘由：
//---------------------------------------------------------------
void __fastcall ComPort::CloseComm( )
{
if(hdCom != (HANDLE)-1)
{ CloseHandle(hdCom);
hdCom=(HANDLE)-1;
}
c_Buf->Clear();
}

//-------------- 串口发送数据 -------------------------------
// 编写日期：2002。5。22
// 参数说明： HANDLE --- 端口句柄
// OutData --- 发送数据区指针
// OntNum --- 发送数据个数
// 更改日期：
// 更改缘由：
//---------------------------------------------------------------
long int __fastcall ComPort::WriteComm(char *OutData,int OutNum)
{ DWORD BytesWritten,dwError;
bool b_Write=false;
if(hdCom!=(HANDLE)-1)
{
b_Write=WriteFile(hdCom,OutData,OutNum,&BytesWritten,&OverWrite);

if ((!b_Write)&&( GetLastError()==ERROR_IO_PENDING ))
{
b_Write=GetOverlappedResult(hdCom,&OverWrite,&BytesWritten,false);
if(!b_Write)
{ dwError=GetLastError();
if (dwError==ERROR_IO_INCOMPLETE) b_Write=true;
}

}
}
if(b_Write)
{ dw_WTTM = GetTickCount();
return OutNum;
}
else return -1;
}

//---------------------串口读取数据，-------------------------------
// 编写日期：2002。5。22
// 参数说明：char *pcComDat --- 读取到的数据存放位置
// DWORD dwNeedRead --- 读取的字符束
//
//
//----------------------------------------------------------------
long int __fastcall ComPort::ReadComm(char *pcComDat,DWORD dwNeedRead)
{
if(hdCom ==(HANDLE)-1) return 0;

DWORD dwErrorFlags,dwBytesRead=0;
bool bSuccess;
bSuccess=ReadFile(hdCom,pcComDat,dwNeedRead,&dwBytesRead,&OverRead);
if(!bSuccess)
{ dwErrorFlags=GetLastError();
dwBytesRead=0;
if (dwErrorFlags==ERROR_IO_PENDING)
{ while(!GetOverlappedResult(hdCom,
&OverRead,
& dwBytesRead,
TRUE ))
{ dwErrorFlags = GetLastError();
if(dwErrorFlags == ERROR_IO_INCOMPLETE) continue;
}
}
}
if( dwBytesRead >0 ) dw_RDTM = GetTickCount();
// else Delay(20);
*(pcComDat+dwBytesRead )=0;
return dwBytesRead;
}

//---------------------串口读取数据，-------------------------------
// 编写日期：2002。5。22
// 参数说明：char *pcComDat --- 读取到的数据存放位置.
// 说明：自动判断windows串口缓冲区中数据量，将串口缓冲区中全部数据读出
//
//
//----------------------------------------------------------------
long int __fastcall ComPort::ReadComm(char *pcComDat)
{
if(hdCom ==(HANDLE)-1) return 0;

DWORD dwErrorFlags;
long int dwBytesRead=0;

ClearCommError(hdCom, &dwErrorFlags, &ComStat );
if(ComStat.cbInQue>0)
dwBytesRead=ReadComm(pcComDat,ComStat.cbInQue);
else dwBytesRead=0;
return dwBytesRead;
}

//---------------------串口读取数据，-------------------------------
// 编写日期：2002。5。22
// 说明：自动判断windows串口缓冲区中数据量，
// 将缓冲区中全部数据读出存放在类自带的缓冲区中
//
//----------------------------------------------------------------
long int __fastcall ComPort::ReadComm()
{
if(hdCom ==(HANDLE)-1) return 0;

DWORD dwErrorFlags;
long int dwBytesRead=0;

ClearCommError(hdCom, &dwErrorFlags, &ComStat );
if(ComStat.cbInQue>0)
{ char *buf;
buf = new char [ComStat.cbInQue+1 ];
dwBytesRead=ReadComm(buf,ComStat.cbInQue);
buf[ComStat.cbInQue ]=0;
if(c_Buf ==NULL) c_Buf=new cl_Dynamic_Buf;
c_Buf->Append(buf,ComStat.cbInQue) ;
delete buf;
}
else dwBytesRead=0;
return dwBytesRead;

}

//--------------------- 判断串口是否正确被打开-------------------------------
// 编写日期：2002。5。22
//
//----------------------------------------------------------------
bool __fastcall ComPort::IsActived()
{
if(hdCom ==(HANDLE)-1) return false;
else return true;
}

babyblue_crystal 2005-07-28

打赏
举报

发送多个字节我还没试，因为发送一个字节得到的数据都不对，发送多个不是更不对了吗？只发送了一个0xAA，0xAA的二进制数是10101010，而接收到的是00101010。

zhuia 2005-07-27

打赏
举报

Pcomm我没有用过。
Byte就是unsigned char型。
你试过发送多个字节吗？
每个字节的最高位和次高位被截掉，这个是在发送多个0xAA的时候用串口调试软件接收到的数据吗？
检查一下波特率之类的参数，换一下操作系统。

babyblue_crystal 2005-07-27

打赏
举报

至于byte类型应该是delphi里的数据类型吧，在C++里，就是char阿

babyblue_crystal 2005-07-27

打赏
举报

unsigned char我也试过，数据就更不对了，大家可能误会了，term这个变量在函数原形里是int型，这一点毫无疑问,character(0-255)的意思就是这个整形数在0-255之间，不是代表它是char型变量的意思

zhuia 2005-07-27

打赏
举报

那你试试设成Byte型或unsigned char型吧。int在C++Builder是32位的。
另外term = character (0 - 255)；

babyblue_crystal 2005-07-27

打赏
举报

我设成unsigned int型也试过，效果一样的阿

zhuia 2005-07-27

打赏
举报

0xAA最高位为1，int类型可能会把它当成符号位，需要设成无符号整数才行。
你也可以用Victor控件啊，挺好用的，还带例子。

babyblue_crystal 2005-07-27

打赏
举报

term是整形的阿，不是字节型的阿

babyblue_crystal 2005-07-27

打赏
举报

没有更好的办法吗？

F117p 2005-07-27

打赏
举报

ret=sio_putch(1,senddata);//Pcomm中用于发送单个字节的函数，
//原形是int sio_putch(int port, int term)
//port = COM port number ；term = character (0 - 255)
单片机开发没做过，不过看了你上面的串口发送数据函数，指定term为字节型，是否就是造成高2位丢失的原因，需要你自己去调试，你可以试着将16进数分2次发送，利用移位指令将数据分次发送。呵呵，小弟班门弄斧，见笑了

BCB6加Pcomm控件做串行通讯，接收到的数据不对，请大家帮忙！急！！MM先谢过大家----鞠躬-----（在线等！！）

相关推荐