解决方案 »

  1.   

    以下代码请参考
       if Port <> 0 then
          begin
            SPComm1 := TSPComm.Create(nil);
            SPComm1.BaudRate := Rate;
            SPComm1.CommName := 'COM'+IntToStr(Port);
            SPComm1.OnReceiveData := ReceiveData;
            SPComm1.StartComm;
        end;自己写个 ReceiveData函数,解析数据,并实现你要做的事
      

  2.   

    遍历端口的时候,数据发送后一般sleep(100),等候数据接收完整再处理,串口速度慢
      

  3.   

    如果要并发的话 用多个spcomm
    如果不需要并发,就一个spcomm 可以不停的修改COMMName属性