DELPHI《Delphi中串口通讯的实现》 - 电脑教程

天天加油 >> 电脑教程 >> DELPHI >> Delphi中串口通讯的实现 >> 教程正文

Delphi中串口通讯的实现

来源：天天加油　　更新时间：2007-10-29

您正在看的DELPHI是:Delphi中串口通讯的实现。

在Delphi中简单的存取JPEG文件到SQL Server

Delphi组件撰写常问问题分析

Delphi学堂之用Delphi制作DLL小结

Delphi部分函数、命令、属性中文说明

用Delphi实现文件加密压缩技巧

Delphi异常处理的基本原则和方法

　　Delphi 是新一代可视化开发工具，它具有功能强大、简便易用和代码执行速度快等特点，是全球公认的快速应用开发工具技术的先驱者，它越来越在构架企业信息系统方面发挥着重要作用。由于Delphi 这些显著特点，许多程序员选择Delphi作为开发工具编制各种应用程序。但是，令人惋惜的是Delphi没有自带串口通讯的控件，在它的帮助文档里也没有提及串口通讯，这就给编制通讯程序的开发人员带来众多麻烦，影响了开发进度，下面就这一技术进行讨论。

　　用Delphi 实现串口通讯，常用的几种方法为：使用控件如MSCOMM和SPCOMM，使用API函数或者在Delphi 中调用其它串口通讯程序。利用API编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，应用面更广泛，更适合于编写较为复杂的低层次通信程序。相比较而言，利用SPComm控件则相对较简单，该控件具有丰富的与串口通信密切相关的属性及事件，提供了对串口的各种操作。

　　使用控件这一方法容易掌握，而SPCOMM支持多线程，所以SPCOMM控件的应用更加广泛。结合实例详细介绍SPCOMM的使用。

　　一.SPCOMM控件的安装

　　1.选择下拉菜单Component的第二项Install Component 。

　　图1

　　弹出图1所示的窗口,在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的使用。

　　为了实现PC与单片机8051之间的通讯，首先要调通它们之间的握手信号，假定它们之间的通讯协议是，PC到8051一帧数据6个字节,8051到PC一帧数据也为6个字节,当PC发出(F0,01,FF,FF,01,F0)后能收到这样一帧(F0,01,FF,FF,01,F0)，表示数据通信握手成功，两者之间就可以按照协议相互传输数据。在PC方要发送及接受数据需要以下步骤：

　　1.创建一个新的工程COMM.DPR，把窗体的NAME属性改为FCOMM，把窗体的标题改为测试通讯，添加控件。

　　对COMM1(黑色矩形围住的控件)进行属性设计，设波特率4800，校验位无，字节长度_8，停止位_1，串口选择COM1。Memo1中将显示发送和接受的数据。选择File/Save As将新的窗体存储为Comm.pas。

　　2.编写源代码

　　变量说明

　　var

　　FCOMM: TFCOMM;

　　Viewstring:string;

　　i:integer;

　　rbuf,sbuf:array[1..6] of byte;

　　打开串口

　　procedure TFCOMM.FormShow(Sender: TObject);

　　begin