你可以使用MsComm控件,是由微软提供的activex控件。可以在ActiveX的控件选项中添加。
解决方案 »
- 取文件修改时间的问题
- *******关于密码键盘的问题
- XP系统开启 Themes 并在窗口中添加 TXPManifest 后,怎么改变 GroupBox 标题字体颜色?
- 请教一个关于TImage显示的问题
- 关于在dxdbgrid中对记录进行拖缀的问题
- 这样的问题如何解决?
- 很简单,编译后生成的*.dcu,*.dcr文件用什么工具可以打开?
- 哪位大侠 救我 1060分 全给了!!!!!!!!!!!!!!!!在线等待
- delphi5.0的edit,memo控件没了ctl3d属性,那要去掉ctl3d怎办??
- 送分:怎样汉化delphi的第三方控件
- 关于数据源的两个小问题
- 关于DELPHI一个初级问题
下面是一段读写的代码:主程序中收发数据
void __fastcall TMainForm::fashu()
{
//TODO: Add your source code here
int i;
Comm1->Write(fahuan,m_nCount);
while(1){
i=Comm1->OutQueCount();
if(i==0)
break;
}
}
void __fastcall TMainForm::jieshu()
{
//TODO: Add your source code here
//TODO: Add your source code here
int nLen,k,i,nTimeOver,nCountTemp,nRetry=0;
bool bTm,bOver,bGroupOver=false;
unsigned char buf[1024];
nCountTemp=m_nCount;
while(!bOver){
bTm=false;
bOver=false;
m_nCount=0;
nTimeOver=0;
bGroupOver=false;
while(!bGroupOver){
nLen=Comm1->InQueCount();
if(nLen>0){
nTimeOver=0;
k=Comm1->Read(buf,512);
for(i=0;i<k;i++){
jiehuan[m_nCount]=buf[i];
=f((jiehuan[m_nCount]==0xff)&&(bTm==false)){
bOver=true;
return;
}
=f((bTm==false)&&(jiehuan[m_nCount]==touming)){
bTm=true;
continue;
}
m_nCount++;
bTm=false;
}
}
else{
Sleep(1000);
nTimeOver++;
if(nTimeOver>5){
bGroupOver=true;
}
}
}
nRetry++;
if(nRetry>=3){
bOver=true;
}
else{
m_nCount=nCountTemp;
fashu();
}
}
}