和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