关于spcom控件的使用！请串口通信高手指教！先谢@!

Question

兄弟，我想你还是不要用超级终端来测试
你自己做一个接收，发送程序，两台电脑
上同时都用这个程序测试就可以啦，你管
他超级终端什么事，用自己的程序，错误
自己都明白在那里。我做的通讯程序都是
自己测试的，你也没有必要在两个电脑上
一个电脑就可以完成，COM1,COM2进行就
可以了。

Answer 1

兄弟，我想你还是不要用超级终端来测试
你自己做一个接收，发送程序，两台电脑
上同时都用这个程序测试就可以啦，你管
他超级终端什么事，用自己的程序，错误
自己都明白在那里。我做的通讯程序都是
自己测试的，你也没有必要在两个电脑上
一个电脑就可以完成，COM1,COM2进行就
可以了。

Answer 2

"一个电脑就可以完成，COM1,COM2进行就可以了。"
com1和com2用什么东西联？能说清楚一些吗？

Answer 3

你可以去www.moxa.com去下载
pcomm
我用了好多次,挺稳定的

Answer 4

////接收数据
procedure Tfmain.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
  var i,li_i: integer;
   StringGet: string;
    ls_temp : string;
begin
setlength(StringGet,bufferlength);
move(buffer^,pchar(StringGet)^,bufferlength);
for li_i := 0 to bufferlength -1  do
if stringget[li_i] <> #13 then
pri_data:=pri_data + stringget[li_i] //窗体私有变量
else
begin
fcomconsol.Memo1.Lines.add(pri_data);
pri_data:='';
end;
end;////发送数据
procedure TfComConsol.Memo1KeyPress(Sender: TObject; var Key: Char);
var ls_st,ls_sstr:string;
    mypchar:pchar;
    li_len,li_i:integer;
begin
if (key = #13) then
   begin
   key := #0;
   ls_st:=trim(memo1.Lines.strings[PriILine]);
   li_len:=length(ls_st);
      if li_len<1 then
          fmain.comm1.WriteCommData(#13,1)
      else
            for li_i:=1 to li_len do
                begin
                   ls_sstr :=ls_st[li_i];
                   mypchar:=pchar(ls_sstr);
                   fmain.comm1.WriteCommData(mypchar,1);
                   sleep(2);
                end;
       fmain.comm1.WriteCommData(#13,1);
     end;
end;