spcomm控件中的comm1如何接收ASCII码，并把数据显示到edit控件？？？

Question

大家好，请各位高手帮忙！
如何用串口来接收ascii码？我希望用spcomm控件（comm）接收并通过程序显示出来？

Answer 1

procedure Tfrmmain.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
  rbuf:array of char;
  i:   integer;
begin
  setLength(rbuf, BufferLength);
  move(Buffer^, PChar(rbuf)^, BufferLength);
  for i:=0 to bufferlength-1 do
    edit1.Text:=edit1.Text+rbuf[i];
end;

Answer 2

spcomm是怎样设置的？波特率多少？数据位多少？

Answer 3

是不是我安装的spcomm控件有问题呀！我装好以后在 LanEasy里面显示comm控件，如果你有的话给我发一个！