joseph-@777 2020-12-04 18:55 采纳率: 0%
浏览 90
已结题

windows7如何实现捕获串口信息数据(delphi)

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接线问题