spcomm接收数据的问题?(200)

各位大虾，你们好，我的电脑使用了键盘圆型接口连接了条型扫描仪和键盘焦点在edit1 上，点击Button1，memo1中只显示"发送F001FFFF01F0"而没有"接收F001FFFF01F0"不知道哪里出了问题？？？？请各位前备帮忙！！！谢谢了先以下是代码：－－－－－－－－－－－－－－－－var Fspcomm: TFspcomm; viewstring:string; i:integer; rbuf,sbuf:array[1..6] of byte;implementation{$R *.dfm}procedure TFspcomm.senddata;vari:integer;commflg:boolean;viewstring:string;beginviewstring:='';commflg:=true;for i:=1 to 6 dobeginif not Fspcomm.comm1.writecommdata(@sbuf,1) thenbegincommflg:=false;break;end;sleep(2);viewstring:=viewstring+inttohex(sbuf,2)+''; end;viewstring:='发送'+viewstring;Fspcomm.memo1.lines.add(viewstring);Fspcomm.memo1.lines.add('');if not commflg then messagedlg('发送失败!',mterror,[mbyes],0);end;procedure TFspcomm.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);var i:integer;begin viewstring:=''; move(buffer^,pchar(@rbuf)^,bufferlength); for i:=1 to bufferlength do viewstring:=viewstring+inttohex(rbuf,2)+''; viewstring:='接收'+viewstring; memo1.lines.add(viewstring); memo1.lines.add('');end;procedure TFspcomm.BitBtn2Click(Sender: TObject);begincomm1.StopComm;end;procedure TFspcomm.Button1Click(Sender: TObject);beginsbuf[1]:=byte($f0);sbuf[2]:=byte($05);sbuf[3]:=byte($ff);sbuf[4]:=byte($ff);sbuf[5]:=byte($01);sbuf[6]:=byte($f0);senddata;end;procedure TFspcomm.BitBtn1Click(Sender: TObject);begintry comm1.CommName:=combobox1.Text; Comm1.StartComm; statusbar1.Panels.Items[0].Text:='ok!'; Memo1.Clear; except statusbar1.Panels.Items[0].Text:='not ok!'; end;end;end.

你现在只是做个测试 建议拿个把串口接收线对接即可

读条码的时候,这个事件" TFspcomm.Comm1ReceiveData " 不激活吗?

兄弟，我看你的接收的条码位数应该是6位吧，所以看下你的SPCOMM设置的ReadIntervaltimeout是否是6,系统默认的是100,所以你的Comm1ReceiveData是没激活的.

给你个我自己写的串行口部件试试看吧，也许更适合你用的。QQ: 99795108