mscomm用法
来源:互联网 发布:c语言约束条件下最优解 编辑:程序博客网 时间:2024/06/05 14:25
procedure TForm1.FormCreate(Sender: TObject);
begin
with MSComm1 do
begin
CommPort:=3; //使用Com3
Settings:='9600,n,8,1'; //设置通信口参数
InputLen:=22; //设置Input一次从接受缓冲区读取全部字节
InBufferCount:=0; //清除接受缓冲区
OutBufferCount:=0; //清除发送缓冲区
InBufferSize:=512; //设置接受缓冲区为50字节
//设置发送缓冲区为2字节
RThreshold:=1; //设置接受一个字节就产生OnComm事件
InputMode:=comInputModeBinary; // 设置接受数据模式为文本
PortOpen:=True ;
end;
end;
procedure TForm1.MSComm1Comm(Sender: TObject);
begin
sleep(50); //这里的值最少可以设置成多少
edt1.Text:=MSComm1.input;
MSComm1.InBufferCount:=0; //清除接受缓冲区
mscomm1.OutBufferCount:=0; //清除发送缓冲区
end;
begin
with MSComm1 do
begin
CommPort:=3; //使用Com3
Settings:='9600,n,8,1'; //设置通信口参数
InputLen:=22; //设置Input一次从接受缓冲区读取全部字节
InBufferCount:=0; //清除接受缓冲区
OutBufferCount:=0; //清除发送缓冲区
InBufferSize:=512; //设置接受缓冲区为50字节
//设置发送缓冲区为2字节
RThreshold:=1; //设置接受一个字节就产生OnComm事件
InputMode:=comInputModeBinary; // 设置接受数据模式为文本
PortOpen:=True ;
end;
end;
procedure TForm1.MSComm1Comm(Sender: TObject);
begin
sleep(50); //这里的值最少可以设置成多少
edt1.Text:=MSComm1.input;
MSComm1.InBufferCount:=0; //清除接受缓冲区
mscomm1.OutBufferCount:=0; //清除发送缓冲区
end;
阅读全文
0 0
- mscomm用法
- MSComm
- MSComm
- MSCOMM
- mscomm
- MSComm
- mscomm
- mscomm
- VS2008 串口控件 MSCOMM 用法变了,更简单了
- MSComm 控件
- moxa && mscomm
- MSComm控件
- MSComm控件
- MSComm Installation
- MSCOMM属性
- Mscomm设置
- MSComm 控件
- mscomm详解
- JAVA学习
- poj 2065 SETI 高斯消元解模线性方程
- spring框架的作用
- hdu 2602 01背包入门
- JAVA获取定位
- mscomm用法
- Error:Execution failed for task ':app:processDebugManifest'. > Manifest merger failed with multiple
- MySQL基础(10)——字符集和语言、安全管理、数据库维护
- Codeforces Round #258 (Div. 2) D. Count Good Substrings —— 组合数学
- virtualbox下centos7的桥接模式下的联网配置
- JavaScript常用函数
- 关于前端性能优化
- redis启动
- ps学习笔记(二)