Delphi使用spcomm实现串口通信基础知识及（两个实例）

空瓶氧气 · 发表于 2014-10-18 00:25:47

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

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

登录/注册后可看大图

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

{
  @功能：用Spcomm控制串口收发数据。
  @作者：小涛（beeone）
  @时间：2010-08-12
  @EMail ：Beeone@163.com
}

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SPComm;

type
  TForm1 = class(TForm)
Com1: TComm;
Edit1: TEdit;
Button4: TButton;
Memo1: TMemo;
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Com1ReceiveData(Sender: TObject; Buffer: Pointer;
   BufferLength: Word);
procedure Button3Click(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
//打开串口
procedure TForm1.Button1Click(Sender: TObject);
begin

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

Com1.StopComm;
Com1.StartComm;
Button1.Enabled :=False;
Button2.Enabled :=True;

end;
//关闭串口
procedure TForm1.Button2Click(Sender: TObject);
begin
  Com1.StopComm;
  Button2.Enabled := False;
  Button1.Enabled := True;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  com1.WriteCommData(PChar(Edit1.text),length(Edit1.Text));

end;

procedure TForm1.Com1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
  pStr : PChar;

begin
  pStr := Buffer;
  Memo1.Lines.Add(pStr);

end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

end.

实例二：

登录/注册后可看大图

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

//*********************************************************
//                Kaersoft 卡尔软件
//       *************************************
//       http://www.kaer.cn/default.aspx
//       Email:Sdwhxyr@YEAH.NET
//       QQ:54076683
//       Delphi 7.0 PASS
//       调测人：JPYC
//**********************************************************
//                   程序功能
//          演示SPCOMM收发数据的例子
//**********************************************************
//实现思路：打开窗体时自动打开串口1，关闭是自动关闭串口
//**********************************************************
//       2010-08-12 被 Beeone完善
//**********************************************************
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SPComm;

type
  TForm1 = class(TForm)
Comm1: TComm;
Memo1: TMemo;
Memo2: TMemo;
Button3: TButton;
Button4: TButton;
Check1: TCheckBox;
Label1: TLabel;
Label2: TLabel;
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
   BufferLength: Word);
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure SendHex(S: String);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.SendHex(S: String);
var
  s2:string;
  buf1:array[0..50000] of char;
  i:integer;
begin
  s2:='';
  for i:=1 to  length(s) do
  begin
if ((copy(s,i,1)>='0') and (copy(s,i,1)<='9'))or((copy(s,i,1)>='a') and (copy(s,i,1)<='f'))
      or((copy(s,i,1)>='A') and (copy(s,i,1)<='F')) then
begin
      s2:=s2+copy(s,i,1);
end;
  end;
  for i:=0 to (length(s2) div 2-1) do
buf1:=char(strtoint('$'+copy(s2,i*2+1,2)));
  Comm1.WriteCommData(buf1,(length(s2) div 2));
end;

//发送数据
procedure TForm1.Button3Click(Sender: TObject);
var
  p:pchar;
  x:integer;
begin
  if Check1.Checked then
SendHex(Memo1.Lines.Text) //发送十六进制
  else begin
x:=Length(Memo1.Lines.Text); //发送字符
p:=Pchar(Memo1.Lines.Text);
Comm1.WriteCommData(p,x);    //spcomm发送数据的函数
  end;
end;

//接受数据
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
tmpArray : array[0..4096] of Byte;
ArraySize,i : DWORD;
Count    : DWORD;
tmpStr    : string;
pStr       : PChar;
begin
  //如果“十六进制/字符”被选中
  if Check1.Checked  then
  begin
pStr := Buffer;
tmpStr := string(pStr);
Dec(PStr);
for i:=0 to Length(tmpStr)-1 do
begin
   inc(pStr);
   tmpArray := Byte(pStr^);
   Memo2.Lines.Add(IntToHEX(Ord(tmpArray),2));
end;
exit;
  end;
//------------------------------------------------------------------------------

  pStr := Buffer;
  memo2.Lines.Add(pStr);
end;

//打开串口
procedure TForm1.FormCreate(Sender: TObject);
begin

?

1
2
3
4
5
6
7
8
9
10
11

  Comm1.StopComm;
  Comm1.StartComm;
end;

//关闭串口
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Comm1.StopComm;
end;

end.

Delphi使用spcomm实现串口通信基础知识及（两个实例）

gxh4663 · 发表于 2014-10-19 10:54:51

ok@!!!!!!!

x1021173539 · 发表于 2014-10-22 09:09:59

学习下，谢谢分享

大个的糖果 · 发表于 2014-10-30 18:28:05

提示: 作者被禁止或删除内容自动屏蔽

老鸟 · 发表于 2016-12-12 23:31:40

不知道为什么我用spcomm做串口助手接收的时候总是很慢

账号		自动登录	找回密码
密码			立即注册

大个的糖果大个的糖果当前离线 UID 267379 日志相册贡献荣誉积分 262 狗仔卡头像被屏蔽	发表于 2014-10-30 18:28:05 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	想知道小甲鱼最近在做啥？请访问 -> ilovefishc.com
	回复支持反对使用道具举报显身卡

[技术交流] Delphi使用spcomm实现串口通信 基础知识及（两个实例）

马上注册，结交更多好友，享用更多功能^_^

[技术交流] Delphi使用spcomm实现串口通信基础知识及（两个实例）