Delphi中串口通讯实现
delphi 是新一代可视化开发工具，它具有功能强大、简便易用和代码执行速度快等特点，是全球公认的快速应用开发工具技术的先驱者，它越来越在构架企业信息系统方面发挥着重要作用。由于delphi 这些显著特点，许多程序员选择delphi作为开发工具编制各种应用程序。但是，令人惋惜的是delphi没有自带串口通讯的控件，在它的帮助文档里也没有提及串口通讯，这就给编制通讯程序的开发人员带来众多麻烦，影响了开发进度，下面就这一技术进行讨论。
用delphi 实现串口通讯，常用的几种方法为：使用控件如mscomm和spcomm，使用api函数或者在delphi 中调用其它串口通讯程序。利用api编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，应用面更广泛，更适合于编写较为复杂的低层次通信程序。相比较而言，利用spcomm控件则相对较简单，该控件具有丰富的与串口通信密切相关的属性及事件，提供了对串口的各种操作。
使用控件这一方法容易掌握，而spcomm支持多线程，所以spcomm控件的应用更加广泛。结合实例详细介绍spcomm的使用。
一．spcomm控件的安装
1．选择下拉菜单component的第二项install component 。
弹出图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
comm1.startcomm;
end;
关闭串口
procedure tfcomm.formclose(sender: tobject; var action: tcloseaction);
begin
comm1.stopcomm;
end;
发送数据
自定义的发送过程
procedure senddata;
var
i:integer;
commflg:boolean;
begin
viewstring:=;
commflg:=true;
for i:=1 to 6 do
begin
if not fcomm.comm1.writecommdata(@sbuf[i],1) then
begin
commflg:=false;
break;
end;
sleep(2); {发送时字节间的延时}
viewstring:=viewstring+inttohex(sbuf[i],2)+ ;
end;
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
sbuf[1]:=byte($f0); {帧头}
sbuf[2]:=byte($01); {命令号}
sbuf[3]:=byte($ff);
sbuf[4]:=byte($ff);
sbuf[5]:=byte($01);
sbuf[6]:=byte($0f); {帧尾}
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[i],2)+ ;
viewstring:=接受+viewstring;
memo1.lines.add(viewstring);
memo1.lines.add();
end;
如果memo1上显示发送f0 01 ff ff 0f 和 接受f0 01 ff ff f0
这表示串口已正确的发送出数据并正确的接受到数据，串口通讯成功。
能量收集系统设计,MPPT算法以及MCU总控制系统设计流程图
「科普贴」蓝牙的5.0远距离是怎么实现的？
仙知小课堂：SRC系列核心控制器接口到底有多丰富
用氮化镓重新考虑功率密度
视频监控系统交换机怎么配置实用方法资料概述
Delphi中串口通讯实现
电源模块输出电压变低的原因和解决方法
CAN转RS-232网关的参数介绍
承德科胜KS168型喷码机|玻璃水喷码机|河北喷码机
小米成最年轻世界500强 财富500强中国互联网企业数量超美国
MM32F0160的FlexCAN FD位时间采样点如何计算？
中国、欧盟启动新一轮的反垄断审查,存储三巨头将面临全球反垄断制裁
我国仪器仪表2012发展方向
智能家居设备和可穿戴设备改变老年人生活
小米魅族涨价后，oppo和vivo手机也要涨价了！
Typedef的用途和原声明举例及陷阱分析
芯明天P12A压电纳米扫描台在飞秒激光刻蚀中的应用
加速度传感器的不同用途
线性NTC温度传感器电气参数及测试条件
浅谈机械控制与电器控制
用delphi 实现串口通讯，常用的几种方法为：使用控件如mscomm和spcomm，使用api函数或者在delphi 中调用其它串口通讯程序。利用api编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，应用面更广泛，更适合于编写较为复杂的低层次通信程序。相比较而言，利用spcomm控件则相对较简单，该控件具有丰富的与串口通信密切相关的属性及事件，提供了对串口的各种操作。
使用控件这一方法容易掌握，而spcomm支持多线程，所以spcomm控件的应用更加广泛。结合实例详细介绍spcomm的使用。
一．spcomm控件的安装
1．选择下拉菜单component的第二项install component 。
弹出图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
comm1.startcomm;
end;
关闭串口
procedure tfcomm.formclose(sender: tobject; var action: tcloseaction);
begin
comm1.stopcomm;
end;
发送数据
自定义的发送过程
procedure senddata;
var
i:integer;
commflg:boolean;
begin
viewstring:=;
commflg:=true;
for i:=1 to 6 do
begin
if not fcomm.comm1.writecommdata(@sbuf[i],1) then
begin
commflg:=false;
break;
end;
sleep(2); {发送时字节间的延时}
viewstring:=viewstring+inttohex(sbuf[i],2)+ ;
end;
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
sbuf[1]:=byte($f0); {帧头}
sbuf[2]:=byte($01); {命令号}
sbuf[3]:=byte($ff);
sbuf[4]:=byte($ff);
sbuf[5]:=byte($01);
sbuf[6]:=byte($0f); {帧尾}
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[i],2)+ ;
viewstring:=接受+viewstring;
memo1.lines.add(viewstring);
memo1.lines.add();
end;
如果memo1上显示发送f0 01 ff ff 0f 和 接受f0 01 ff ff f0
这表示串口已正确的发送出数据并正确的接受到数据，串口通讯成功。
能量收集系统设计,MPPT算法以及MCU总控制系统设计流程图
「科普贴」蓝牙的5.0远距离是怎么实现的？
仙知小课堂：SRC系列核心控制器接口到底有多丰富
用氮化镓重新考虑功率密度
视频监控系统交换机怎么配置实用方法资料概述
Delphi中串口通讯实现
电源模块输出电压变低的原因和解决方法
CAN转RS-232网关的参数介绍
承德科胜KS168型喷码机|玻璃水喷码机|河北喷码机
小米成最年轻世界500强 财富500强中国互联网企业数量超美国
MM32F0160的FlexCAN FD位时间采样点如何计算？
中国、欧盟启动新一轮的反垄断审查,存储三巨头将面临全球反垄断制裁
我国仪器仪表2012发展方向
智能家居设备和可穿戴设备改变老年人生活
小米魅族涨价后，oppo和vivo手机也要涨价了！
Typedef的用途和原声明举例及陷阱分析
芯明天P12A压电纳米扫描台在飞秒激光刻蚀中的应用
加速度传感器的不同用途
线性NTC温度传感器电气参数及测试条件
浅谈机械控制与电器控制