高分求解，有关使用spcomm进行串口通讯的基础知识问题。(300分)

有沒有用過 TurboPower 元件?

还有最后两个小问题，dangel说的自动应答设置是怎么回事？
barton说的spcomm源码，我昨天看了半天，基础比较差，不得要领，能否剖析一下，或者指明
具体方位也可，谢了！

串口通信是要求两边的协议一样的，
所有的设置都是一样的。
求反，波特率，校验方式等。
其它的楼上的说得很清楚了

还有最后两个小问题，dangel说的自动应答设置是怎么回事？
barton说的spcomm源码，我昨天看了半天，基础比较差，不得要领，能否剖析一下，或者指明
具体方位也可，谢了！

大侠们，能告诉我怎么发送吗？

1，2：看清自己的设备协议。如果是纸上谈兵的，你看不懂的。

3： 如果你对API很清楚，但你既然提出这些问题，显然不是。所以不推荐你使用API.用控件把。

4：无论你使用什么控件，如果只想借用事件和属性来完成，恐怕会碰到很多问题，还不如
看清串口基础知识。

你的题目和内容不符。


TO ILOVEQQ： 用www.google.com查SPCOMM。。。。你会找到很多东西。

两位，如果只需要一个send就能完成串口通讯，那就天真了。

要想写一个好的串口程序，或者说稳定的，还不说高速的，，，也很不容易。

ip414:1问题我已经比较清楚了，2问题barton和dangle两种说法，我不知哪个对。
我的设备没有文档，但有原厂自带的exe程序，现在我需要把它的exe中部分功能嵌入到mis
系统中去自动实现。至于设备和pc间的通讯协议我已经了解清楚了，现在的问题就是我发现原厂exe设
的eventmask是rx,err还有发送空了的那个，而spcomm实际运行时没有监测rx,那么spcomm是如何判断何时
该读缓冲区的？源码太多，我感觉无从下手，我也不想当串口专家，所以还是想找一个串口控见
解决问题。我看到大富翁上很多人都用spcomm就拿它试，结果很失败。收费得控件不想用。

eventmask一般是不需要设置的。。。。所以假如你使用spcomm，只需要修改端口和波特率
当然有些特殊设备有其他设置。

spcomm的代码很清楚。分两个线程，一个读一个写，读是一直读，一旦收到消息就读。

所以你无需关心它何时去读。

我刚接触时，也没有想过去仔细看。后来发现不得不这么做。除非别人现实中帮你，很多东
西只能靠自己。如果你能在这里一问就能问到解决问题的答案。那么我恭喜你了。

spcomm不错的控件，至于你失败，只能归结于你个人问题了。

ip414:一收到消息就读，收到什么消息读呢？spcomm的代码看过，但基础比较差，没看明白，现在阅读《window95通信编程》，很好的书，
补补课。
我觉得在这里问问还是有收获的，能解决更好，不能解决也就罢了。还忘各位老大不要吝惜笔墨，把问题指的准些，
比如说barton，究竟是哪段代码与缓冲区有关呢？dangle说的属性我想是不存在的；
ip414说的spcomm不停的读我也不太相信。我有证据，证明他根本不是不停的读。他肯定是等待某个情况的发生，直到超时。

哈哈，，，所谓读就是读线程一直在循环监视串口是否有数据进来，有的话就读拉。当然
一直读会出现假死机状态，所以有超时一说。

SPCOMM源代码我看了不下10遍。。。

但因为个人愚笨，所以只能勉强学会使用。

在我做的实验中我发现许多因素包括线路等都对波特率影响很大，
我们做一个9600通讯的设备，最好只能达到4800

up,多来www.gjwtech.com吧

<div align=center>Delphi中串口通信的实现
Delphi是一种具有功能强大、简便易用和代码执行速度快等优点的可视化快速应用开发工具，它在构架企业信息系统方面发挥着越来越重要的作用，许多程序员愿意选择 Delphi作为开发工具编制各种应用程序。但是，美中不足之处是 Delphi没有自带的串口通信控件，在它的帮助文档里也没有提及串口通信，这就给编制通信程序的开发人员带来许多不便。　

目前，利用 Delphi实现串口通信的常用的方法有 3种：一是利用控件，如 MSCOMM控件和 SPCOMM控件；二是使用 API函数；三是调用其他串口通信程序。其中利用 API编写串口通信程序较为复杂，需要掌握大量的通信知识。相比较而言，利用 SPCOMM控件则相对较简单，并且该控件具有丰富的与串口通信密切相关的属性及事件，提供了对串口的各种操作，而且还支持多线程。下面本文结合实例详细介绍 SPCOMM控件的使用。　

SPCOMM的安装　

1．选择下拉菜单 Component中的 Install Component选项，在 Unit file name处填写 SPCOMM控件所在的路径，其他各项可用默认值，点击 OK按钮。　

2．安装后，在 System控件面板中将出现一个红色控件 COM。现在就可以像 Delphi自带控件一样使用 COM控件了。　

SPCOMM的属性、方法和事件　

1.属性　

●CommName：表示 COM1、 COM2等串口的名字；　

●BaudRate:根据实际需要设定的波特率，在串口打开后也可更改此值，实际波特率随之更改；　

●ParityCheck：表示是否需要奇偶校验；　

●ByteSize：根据实际情况设定的字节长度；　

●Parity：奇偶校验位；　

●StopBits：停止位；　

●SendDataEmpty：这是一个布尔型属性，为 true时表示发送缓存为空，或者发送队列里没有信息；为 false时表示发送缓存不为空，或者发送队列里有信息。　

2．方法　

●Startcomm方法用于打开串口，当打开失败时通常会报错。错误主要有 7种：⑴串口已经打开；⑵打开串口错误；⑶文件句柄不是通信句柄；⑷不能够安装通信缓存；⑸不能产生事件；⑹不能产生读进程；⑺不能产生写进程；　

●StopComm方法用于关闭串口，没有返回值；　

●WriteCommData(pDataToWrite: PChar;dwSizeofDataToWrite:Word )方法是个带有布尔型返回值的函数，用于将一个字符串发送到写进程，发送成功返回 true，发送失败返回 false。执行此函数将立即得到返回值，发送操作随后执行。该函数有两个参数，其中 pDataToWrite是要发送的字符串， dwSizeofDataToWrite是发送字符串的长度。　

3．事件　

●OnReceiveData rocedure (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）后 8051能收到一帧（ F0,01,FF,FF,01,F0），表示数据通信握手成功，两者之间就可以按照协议相互传输数据。　

创建一个新的工程 COMM.DPR，把窗体的 NAME属性定为 FCOMM，把窗体的标题定义为测试通信，添加相应的控件。

1.设定 COMM1属性：　

●波特率： 4800；　

●奇偶校验位：无；　

●字节长度： 8；　

●停止位： 1；　

●串口： COM1。　

Memo1中将显示发送和接收的数据。将新的窗体存储为 Comm.pas。　

2.编写源代码　

//变量说明　

var　

fcomm: TFCOMM;　

viewstring:string;　

i:integer;　

rbuf,sbuf:array[16] 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(＄ f0); //帧尾　

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;　

遇到一个非常奇怪的现象，就是当把一个串口的2，3引脚对接，
用spcom控件来发送16进制数11(00010001)时，结果该串口收不到，
非常奇怪，其他的随便什么都能收到，不信，大家可以试试

我从网上下了一个spcomm，就是按照上面说的步骤装的
可以看到spcomm的源码，可是在system的控件板上没有什么红色的控件呀？？？
哪位老兄能帮忙解决一下，谢谢！

有点象马桶塞一样的玩意，没见着？？