1、这是这个控件的下载地址，也是我的贡享。HYPERLINK"http://ishare.iask.sina.com.cn/f/8159895.html"http://ishare.iask.sina.com.cn/f/8159895.html2、安装，见我的另一篇安装spcomm控件。3、开始做例子，做如图界面：4、如下代码：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,SPComm;typeTForm1=class(TForm)Edit1:TEdit;Button1:TButton;Comm1:TComm;Button2:TButton;Memo1:TMemo;Button3:TButton;Comm2:TComm;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);procedureButton3Click(Sender:TObject);procedureComm2ReceiveData(Sender:TObject;Buffer:PAnsiChar;BufferLength:Word);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.dfm}//按键1，就是发送键；procedureTForm1.Button1Click(Sender:TObject);varSendStr:string;TEM:integer;beginSendStr:=edit1.text+#13+#10;//在每条命令加回车，换行，看具体设置而定TEM:=length(SendStr);//要发送数据的长度ifComm1.WriteCommData(pchar(SendStr),TEM)then//发送数据showmessage('发出去了');end;//接收，用的串口2，接收。procedureTForm1.Comm2ReceiveData(Sender:TObject;Buffer:PAnsiChar;BufferLength:Word);varpStr:PChar;beginpstr:=Buffer;ifBufferLength<>0thenmemo1.Lines.Add(pstr);end;//按键2关闭串口键；procedureTForm1.Button2Click(Sender:TObject);begincomm1.StopComm;comm2.StopComm;end;//按键3是打开串口键。procedureTForm1.Button3Click(Sender:TObject);begincomm1.StartComm;comm2.StartComm;memo1.Lines.Clear;end;end.如此简单，NMD，我TMD弄了俩三天，网上的那些人都是2010年写的，都弄的不对，串口自己发自己收，那怎么能行？！！哎，坑爹啊，终于让我搞出来了。