一、界面二、spcomm 属性设置三、全部代码unit commmtest;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, SPComm, StdCtrls;typeTFCOMM = class(TForm)COMM1: TComm;btn1: TButton;memo1: TMemo;btn2: TButton;edt1: TEdit;procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure btn1Click(Sender: TObject);procedure senddata;procedure COMM1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);procedure btn2Click(Sender: TObject);private Private declarations public Public declarations end;varFCOMM: TFCOMM;Viewstring:string;i:integer;sbuf:string;rbuf:array1.20 of Byte;implementation$R *.dfmprocedure TFCOMM.btn1Click(Sender: TObject);beginsbuf:=edt1.Text+#13#10;senddata();end;procedure TFCOMM.btn2Click(Sender: TObject);begincomm1.StartComm;end;procedure TFCOMM.COMM1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);vari:integer;beginviewstring:=;move(buffer,pchar(rbuf),bufferlength);for i:=1 to bufferlength do viewstring:=viewstring+inttohex(rbufi,2)+; /inttohex 把一个整型数字转换成16 进制形式的字符串viewstring:=viewstring;memo1.lines.add(viewstring);memo1.lines.add();end;procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction);begincomm1.StopComm;end;procedure TFCOMM.senddata;vari:integer;commflg:boolean;beginviewstring:=;commflg:=true;for i:=1 to Length(sbuf) dobeginif not fcomm.comm1.writecommdata(sbufi,1) thenbegincommflg:=false;break;end;sleep(2); 发送时字节间的延时viewstring:=viewstring+sbufi+;end;viewstring:=viewstring;fcomm.memo1.lines.add(viewstring);fcomm.memo1.lines.add();if not commflg then messagedlg(发送失败!,mterror,mbyes,0);end;end.四、该程序实现编辑框中代码通过串口发送，接收串口数据，显示在 memo1中