Qt5写的一个串口工具，点击发送按钮的时候程序输出这个：CommEvent overlapped write error: 170

LINGY_ 2017-07-19 10:20:35

CommEvent overlapped write error: 170
这个是什么意思，该怎么解决呢？有没有大神指导一下啊

...全文

503 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

VB串口通讯源代码CommEvent与事件

vb串口通讯源码CommEvent与事件本资源系百度网盘分享地址

//---------------------------------------SComm控件的常用属性和方法----------------------------- Commport；设置或返回串口号。 SettingS：以字符串的形式设置或返回串口通信参数。 Portopen：设置或返回串口状态。 InputMode：设置或返回接收数据的类型。 Inputlen：设置或返回一次从接收缓冲区中读取字节数。 InBufferSize：设置或返回接收缓冲区的大小，缺省值为l 024字节。 InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。 Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。 OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。 OutBufferCount：设置或返回发送缓冲区中等待计算机发送的字符数。 Output：向发送缓冲区发送数据，该属性设计时无效，运行时只读。设置好这些属性和方法，程序很容易就可以编出来了，其中要注意的是串口的波特串设置，OnComm事件的程序编写。程序的设计是这样的，计算机向单片机发送一个’S’，表示通信开始。然后紧接着又发送9个字符，其中最后一个字符是前面9个字符（包括’S’）的校验和。单片机正确接收到10个字符后，把10个字符从新又送回来。 //---------------------------------------初始化串口设计----------------------------- Private Sub Form_Load() ..................................... d Sub //---------------------------------------接收单片机发送的数据，并显示----------------------------- Private Sub Comm1_OnComm() Select Case Comm1.CommEvent '设置oncomm事件，读取片机内存的值 Case comEvReceive Inputsignal＝comm1.Input Text1.Text＝Asc(Inputsignal) '单片机内存的值用textbox显示出 Case Else End select End Sub

给学VB串口通讯的人才用 CommEvent与事件单字节与双字节测试回路测试使用KeyPress及通信事件 PComm数据发送与接收 PComm数字输入输出自动读取

sony 351的控制程序 procedure TForm1.btnExeClick(Sender: TObject); begin SwitchInput(cmbInput.Text[1]); end; procedure TForm1.btnSoundUpClick(Sender: TObject); begin IncSound(); end; procedure TForm1.btnSoundDownClick(Sender: TObject); begin DecSound(); end; procedure TForm1.btnMuteOnClick(Sender: TObject); begin MuteON(); end; procedure TForm1.btnMuteOffClick(Sender: TObject); begin MuteOFF(); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if mscomm1.PortOpen then begin mscomm1.PortOpen:=false; end; end; procedure TForm1.MSComm1Comm(Sender: TObject); begin case mscomm1.CommEvent of comEvReceive: bzw := true; end; end; procedure TForm1.btnStopClick(Sender: TObject); begin StopChangeSound(); end; procedure TForm1.SwitchInput(pi_char: Char); var senddata:array of byte; begin Log('SwitchInput'); Setlength(senddata,4); senddata[0]:=$11; //要发送的数据 senddata[1]:=$80; senddata[3]:=$B1; case pi_char of 'A': senddata[2]:=$20; 'B': senddata[2]:=$21; 'C': senddata[2]:=$22; 'D': senddata[2]:=$23; end; OutputToCom(senddata); end;

其他硬件开发

2,425

社区成员

4,282

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章