SPComm读取数据问题(100分)

利用SPComm发送数据正确，但读取数据始终得不到，用其他测试工具证明串口是正确可用的，请高手指点SPComm控件属性设置应该注意的，不省感激

发个源代码给你吧.

多谢，信箱：lhjava@yahoo.com.cn你有QQ吗，很希望得到您的帮助

我的QQ是：8782668

晕,加了你QQ,怎么不说话呀

检查一下参数设置。

SPCOMM的属性、方法和事件　
1.属性　
●CommName：表示 COM1、 COM2等串口的名字；　
●BaudRate:根据实际需要设定的波特率，在串口打开后也可更改此值，实际波特率随之更
改；　
●ParityCheck：表示是否需要奇偶校验；　
●ByteSize：根据实际情况设定的字节长度；　
●Parity：奇偶校验位；　
●StopBits：停止位；　
●SendDataEmpty：这是一个布尔型属性，为 true时表示发送缓存为空，或者发送队列里
没有信息；为 false时表示发送缓存不为空，或者发送队列里有信息。　
2．方法　
●Startcomm方法用于打开串口，当打开失败时通常会报错。错误主要有 7种：⑴串口已经
打开；⑵打开串口错误；⑶文件句柄不是通信句柄；⑷不能够安装通信缓存；⑸不能产生
事件；⑹不能产生读进程；⑺不能产生写进程；　
●StopComm方法用于关闭串口，没有返回值；　
●WriteCommData(pDataToWrite: PChar;dwSizeofDataToWrite:Word )方法是个带有布尔
型返回值的函数，用于将一个字符串发送到写进程，发送成功返回 true，发送失败返回
false。执行此函数将立即得到返回值，发送操作随后执行。该函数有两个参数，其中 pD
ataToWrite是要发送的字符串， dwSizeofDataToWrite是发送字符串的长度。　
3．事件　
●OnReceiveData rocedure (Sender: TObject;Buffer: Pointer;BufferLength: Word
) of object　
当有数据输入缓存时将触发该事件，在这里可以对从串口收到的数据进行处理。 Buffer中
是收到的数据， BufferLength是收到的数据长度。　
●OnReceiveError : procedure(Sender: TObject; EventMask : DWORD)　
当接收数据出现错误时将触发该事件。　

别人写的，你看看吧
我已经测试了，没有问题

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

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,1) then

begin

commflg:=false;

break;

end;

sleep(2); {发送时字节间的延时}

viewstring:=viewstring+inttohex(sbuf,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,2)+" ";

viewstring:="接受"+viewstring;

memo1.lines.add(viewstring);

memo1.lines.add("");

end;

　　如果memo1上显示发送F0 01 FF FF 0F 和 接受F0 01 FF FF F0

这表示串口已正确的发送出数据并正确的接受到数据，串口通讯成功。

加上下面几句试试：
with somm1 do begin
Outx_CtsFlow:=False;
Outx_DsrFlow:=False;
DtrControl:=DtrEnable;
DsrSensitivity:=False;
TxContinueOnXoff:=False ;
Outx_XonXoffFlow:=False;
Inx_XonXoffFlow:=False;

我是照你所说写的，用两台计算机，串口用线联上了，可是显示发送了，却接收不到，请问是为什么？

串口连线查查，325—235，一定可以的。

给kdsyrh：
你说的那个程序我也照作过可是会出错啊
要不你把你调试成功的程序发给我看一下我对比一下看哪里出错了
huangyunfen@163.com
我一直都想把这个问题搞清楚
谢谢你了

还是用API吧，自己做个过程，以后可以复用

那个程序其实没有什么更改的地方，只是把程序中的引号更改一下
另外需要注意的是，串口的2、3两个针短接在一起

SPCOMM 控件的属性设置很关键的，特别是使用事件驱动时接收大块数据时尤为明显，如果设置不当，接收到的数据可能严重出错。根据本人经验，要注意事项如下：
ReadIntervalTimeout:=100
SPCOMM 属性时，所有 可设置 True 和 False 的属性应当设置成 False；
在接收数据时，应注意适当设置延时，见以下代码：

procedure TCKFRM.SPCOMReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
TXT:string;
I,L:INTEGER;
RBUF:ARRAY[0..2048] of BYTE;
begin
Move(Buffer^, pchar(@rbuf)^, BufferLength); //接收RS232的数据并显示Memo1上。
L:=BufferLength;
FOR I:=0 TO L-1 DO BEGIN
TXT:=TXT+INTTOHEX(RBUF,2);
END;
READDATA.TEXT:=TXT;
end;
SPCOMM 控件每次只能接收 2048 个字节,如果大于 2048 个字节,则分多次接收.