windows7如何实现捕获串口信息数据(delphi),通过代码进行实现,能给出有效代码,谢谢!
5条回答 默认 最新
- 歇歇 2020-12-04 19:23关注
Comm1.CommName := 'com1';
Comm1.BaudRate := 4800;//波特率每个机器都不一样
Comm1.Parity := TParity(2);
Comm1.ByteSize := TByteSize(2);
Comm1.StopBits := TStopBits(2);
Comm1.StartComm; //开始记得结bai束哦以上代码在formshow里面写
然后写下面的过程
procedure Tfrm_cnc_h_edt.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var str: string;
begin
edit.Clear;
SetLength(Str, BufferLength);
move(buffer^, pchar(@Str[1])^, bufferlength);
edit.Text := trim(Str);// 这里显示到你要的edit.text
sendmessage(edt_measure.handle, wm_keydown, vk_return, 0);
end;最后在formclose 里面写上
Comm1.StopComm; //comm1结束
控件在system这里面找跟手电筒一样的那个就是 com 232
代码你可以复制,便宜你了。
解决 无用评论 打赏 举报
悬赏问题
- ¥15 算法使用了tf-idf,用手肘图确定k值确定不了,第四轮廓系数又太小才有0.006088746097507285,如何解决?(相关搜索:数据处理)
- ¥15 彩灯控制电路,会的加我QQ1482956179
- ¥200 相机拍直接转存到电脑上 立拍立穿无线局域网传
- ¥15 (关键词-电路设计)
- ¥15 如何解决MIPS计算是否溢出
- ¥15 vue中我代理了iframe,iframe却走的是路由,没有显示该显示的网站,这个该如何处理
- ¥15 操作系统相关算法中while();的含义
- ¥15 CNVcaller安装后无法找到文件
- ¥15 visual studio2022中文乱码无法解决
- ¥15 关于华为5g模块mh5000-31接线问题