procedure TForm1.SpeedButton1Click(Sender: TObject);
var
tran:array[1..10] of byte;
begin
if not mscommain.PortOpen then
mscommain.PortOpen:=true; //打开串口
mscommain.InBufferCount:=0; //清空接受缓冲区
//当接受缓冲区的字节个数达到或超过该值后就产生代码ComEvSend的OnComm事件
mscommain.RThreshold:=1;
mscommain.InputLen:=0; //读取整个缓冲区的内容
mscommain.DTREnable:=true; //设置DTR的有效性
mscommain.RTSEnable:=true; //设置RTS的有效性
tran[1]:=5;
tran[2]:=48;
tran[3]:=49;
tran[4]:=69;
tran[5]:=69;
tran[6]:=48;
tran[7]:=66;
tran[8]:=66;
tran[9]:=68;
tran[10]:=55;
mscommain.Output:=tran[10];
memo1.Lines.Add(val(tran[10]));
sleep(300);
end;
我想往串口发ASCII,如上述的10个值,一起发送并且在MEMO中显示.请问有什麽好办法吗?