心得
如果你已经会使用SPCOMM且出现10个以上的串口问题
请改一下串口名
COM1.CommName='\\.\com18';
就这样 加'\\.\'就行了我也不知道什么回事.......
以下为抄录不知道是谁的
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 卡尔软件
// *************************************
// 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[i]:=
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[i] :=
Byte
(pStr^);
Memo2
.
Lines
.
Add(IntToHEX(Ord(tmpArray[i]),
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
.
|