和socket、rs232通信遇到的糟糕问题。备查!
摘要:
1 procedure Tfrm_FoldingCloth.btn1Click(Sender: TObject); 2 var 3 SND:array of byte; 4 begin 5 if Not cnrs232.Connected then cnrs232.StartComm ; 6 Sleep(40); 7 Setlength(SND,8); 8 SND[0]:=($01); 9 SND[1]:=($03);10 SND[2]:=($00);11 SND[3]:=($14);12 SND[4]:=($00);13 SND[5]:... 阅读全文
posted @ 2013-12-19 12:23 USEGEAR 阅读(789) 评论(0) 推荐(0) 编辑