如何去使用SPCOMM控件呢

　　用Delphi 实现串口通讯，常用的几种方法为：使用控件如MSCOMM和SPCOMM，使用API函数或者在Delphi 中调用其它串口通讯程序。利用API编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，应用面更广泛，更适合于编写较为复杂的低层次通信程序。相比较而言，利用SPComm控件则相对较简单，该控件具有丰富的与串口通信密切相关的属性及事件，提供了对串口的各种操作。
　　使用控件这一方法容易掌握，而SPCOMM支持多线程，所以SPCOMM控件的应用更加广泛。结合实例详细介绍SPCOMM的使用。
　　一．SPCOMM控件的安装
　　1．选择下拉菜单Component的第二项Install Component 。在Unit file name 处填写控件SPCOMM控件所在路径，其它可用默认值，点击OK按纽。
　　2．安装成功后，system控件面板中将出现一个红色控件COMM。现在使用COMM控件可以象Delphi自带控件一样使用。。
　　二．SPCOMM的主要属性，方法和事件
　　1.属性
　　CommName：填写COM1，COM2…等串口的名字，在打开串口前，必须填写好此值。
　　BaudRate：设定波特率9600，4800等，根据实际需要来定，在串口打开后也可更改波特率，实际波特率随之更改。
　　ParityCheck：奇偶校验。
　　ByteSize：字节长度_5，_6，_7，_8等，根据实际情况设定。
　　Parity：奇偶校验位
　　pBits：停止位
　　SendDataEmpty：这是一个布尔属性，为true时表示发送缓存为空，或者发送队列里没有信息；为False时表示表示发送缓存不为空，或者发送队列里有信息。
　　2．方法
　　Startcomm过程用于打开串口，当打开失败时通常会报错，错误主要有7种：
　　⑴串口已经打开 ；
　　⑵打开串口错误 ；
　　⑶文件句柄不是通讯句柄；
　　⑷不能够安装通讯缓存；
　　⑸不能产生事件 ；
　　⑹不能产生读进程；
　　⑺不能产生写进程；
　　StopComm过程用于关闭串口，没有返回值。
　　函数WriteCommData（pDataToWrite： PChar;dwSizeofDataToWrite:Word ）： boolean 用于发送一个字符串到写线程，发送成功返回true，发送失败返回false， 执行此函数将立即得到返回值，发送操作随后执行。函数有两个参数，其中 pdatatowrite是要发送的字符串，dwsizeofdatatowrite 是发送的长度。
　　3．事件
　　OnReceiveData ： procedure （Sender： TObject;Buffer： Pointer;BufferLength： Word） of object
　　当输入缓存有数据时将触发该事件，在这里可以对从串口收到的数据进行处理。Buffer中是收到的数据，bufferlength是收到的数据长度。
　　OnReceiveError ： procedure（Sender： TObject; EventMask ： DWORD）
　　当接受数据时出现错误将触发该事件。
　　三．SPCOMM的使用
　　下面，我们结合一个松下串口通讯的例子来说明SPCOMM的使用。采用：松下电工 FP 系列可编程控制器通信协议MEWTOCOL。按照协议相互传输数据。在PC方要发送及接受数据需要以下步骤：
　　1.创建一个新的工程COMM.DPR，把窗体的NAME属性改为FCOMM，把窗体的标题改为测试通讯，添加控件。
　　对COMM1（黑色矩形围住的控件）进行属性设计，设波特率115200，校验位无，字节长度_8，停止位_1，串口选择COM1。Memo1中将显示发送和接受的数据。选择File/Save As将新的窗体存储为Comm.pas。
　　2．编写源代码
　　变量说明
　　var
　　FCOMM： TFCOMM;
　　Viewstring:string;
　　i:integer;
　　打开串口
　　procedure TFCOMM.FormShow（Sender： TObject）;
　　begin
　　comm1.StartComm;
　　end;
　　关闭串口
　　procedure TFCOMM.FormClose（Sender： TObject; var Action： TCloseAction）;
　　begin
　　comm1.StopComm;
　　end;
　　发送数据
　　自定义的发送过程
　　procedure senddata;
　　var
　　i:integer;
　　commflg:boolean;
　　begin
　　viewstring+chr（13）;
　　commflg：=true;
　　begin
　　if not fcomm.comm1.writecommdata（） then
　　begin
　　commflg：=false;
　　break;
　　end;
　　sleep（2）; {发送时字节间的延时}
　　viewstring+viewstring;
　　fcomm.memo1.lines.add（viewstring）;
　　fcomm.memo1.lines.add（“”）;
　　if not commflg then messagedlg（“发送失败！”，mterror，［mbyes］，0）;
　　end;
　　procedure TFCOMM.Btn_sendClick（Sender： TObject）;{发送按钮的点击事件}
　　begin
　　senddata;{调用发送函数}
　　end;
　　接收过程
　　procedure TFCOMM.Comm1ReceiveData（Sender： TObject; Buffer： Pointer;
　　BufferLength： Word）;
　　var
　　i:integer;
　　begin
　　viewstring;
　　move（buffer^，pchar（@rbuf^），bufferlength）;
　　for i：=1 to bufferlength do
　　viewstring：=viewstring+inttohex（rbuf，2）+“ ”;
　　viewstring+viewstring;
　　memo1.lines.add（viewstring）;
　　memo1.lines.add（“”）;
　　end;
　　如果memo1上显示发送， 和接收。说明通讯成功。。。