高分求救-------串口传送字符值大于128的接收方法

Question

我在接收串口发过来的字符时,值超过128的就会出错,收不到,程序如下,请高手指点一下,先谢了:procedure Tf_main.MSCComm(Sender: TObject);
var
  s:string;
begin
 if msc.CommEvent=comEvReceive then begin   //如果是接收数据事件
   s:=msc.Input;  //读串口
   recnr:=recnr+s;
   end;
end;接收完显示的时候只显示没出错前接收到的字符!

Answer 1

试试这个：
http://soft.56kc.com/FileDown.aspx?FID=386http://soft.56kc.com/Filedown.aspx?FID=167http://www.56kc.com/web/technology/chuangkou.htm

Answer 2

procedure Tf_main.MSCComm(Sender: TObject);
var
  ls:TStrings;
   s:string;
begin  
  if msc.CommEvent=comEvReceive then begin   //如果是接收数据事件  
    ls := TString.Create;
    s:=msc.Input;  //读串口
    ls.Add(s);
  end;
  recnr := ls.Text;
end;