DELPHI串口编程剖析

DELPHI串口编程剖析 1

第一章 背景知识 3
1. 概述 3
2. 什么是接口? 3
3. 接口分类. 3
4. 为什么需要I/O接口? 3
5. I/O接口的功能 4
6. I/O接口的通信方式 5
7. I/O接口的分类 5
8. 串口的分类 8
9. 串口通信分类 11
10. 奇偶校验 12
第二章 串口通信编程简介 13
1. 串口的通信编程流程 13
2. Unix平台下对串口进行开发的方法 13
3. Windows平台下对串口进行开发的方法 13
第三章 使用DELPHI工具进行串口通信编程 15
第四章 串口编程的调试及其相关工具 27

 
串口通信编程剖析
第一章 背景知识
1. 概述
串口是计算机上I/O接口的一种，要掌握串口通信编程的相关知识，必须先了解I/O接口的相关知识。
I/O接口是接口的一种。

2. 什么是接口?
众所周知计算机是由CPU，存储器，外部终端设备组成.
接口就是用于CPU与外部设备、存储器的连接和数据交换的设备。

3. 接口分类.
广义的计算机接口有二种，见下表：
类別 用途 电路实现复杂性
存储器接口: 用于CPU与外部设备、存储器的连接 简单
I/O接口 数据交换 复杂

习惯上说到接口只是指I/O接口。本文沒作特別介绍的地方都叫I/O接口.

4. 为什么需要I/O接口?
计算机的外围设备品种繁多，几乎都采用了机电传动设备，因此，CPU在与I/O设备进行数据交换时存在以下问题：

速度不匹配:
I/O设备的工作速度要比CPU慢许多，而且由于种类的不同，他们之间的速度差异也很大，例如硬盘的传输速度就要比打印机快出很多。

时序不匹配:
各个I/O设备都有自己的定时控制电路，以自己的速度传 输数据，无法与CPU的时序取得统一。

信息格式不匹配:
不同的I/O设备存储和处理信息的格式不同，例如可以分为串行和并行两种；也可以分为二进制格式、ACSII编码和BCD编码等。

信息类型不匹配:
不同I／O设备采用的信号类型不同，有些是数字信号，而有些是模拟信号，因此所采用的处理方式也不同。
　　
基于以上原因，CPU与外设之间的数据交换必须通过I/O接口来完成。

5. I/O接口的功能
通常I/O接口有以下一些功能：
1）设置数据的寄存、缓冲逻辑，以适应CPU与外设之间的速度
差异，接口通常由一些寄存器或RAM芯片组成，如果芯片足够大还可以实现批量数据的传输；

2）能够进行信息格式的转换，例如串行和并行的转换；

3）能够协调CPU和外设两者在信息的类型和电平的差异，如电平
转换驱动器、数／模或模／数转换器等；
　　
4）协调时序差异；
　　
5）地址译码和设备选择功能；
　　
6）设置中断和DMA控制逻辑，以保证在中断和DMA允许的情况下产生中断和DMA请求信号，并在接受到中断和DMA应答之后完成中断处理和DMA传输。
　　
6. I/O接口的通信方式
CPU通过接口对外设进行控制的方式有以下几种：
1）程序查询方式
这种方式下，CPU通过I/O指令询问指定外设当前的状态，如果外设
准备就绪，则进行数据的输入或输出，否则CPU等待，循环查询。
这种方式的优点是结构简单，只需要少量的硬件电路即可，缺点是由
于CPU的速度远远高于外设，因此通常处于等待状态，工作效率很
低。

2）中断处理方式
在这种方式下，CPU不再被动等待，而是可以执行其他程序，一旦
外设为数据交换准备就绪，可以向CPU提出服务请求，CPU如果响
应该请求，便暂时停止当前程序的执行，转去执行与该请求对应的
服务程序，完成后，再继续执行原来被中断的程序。
　 中断处理方式的优点是显而易见的，它不但为CPU省去了查询外设
状态和等待外设就绪所花费的时间，提高了CPU的工作效率，还满
足了外设的实时要求。但需要为每个I／O设备分配一个中断请求号
和相应的中断服务程序，此外还需要一个中断控制器（I／O接口芯
片）管理I／O设备提出的中断请求，例如设置中断屏蔽、中断请求
优先级等。此外，中断处理方式的缺点是每传送一个字符都要进行
中断，启动中断控制器，还要保留和恢复现场以便能继续原程序的
执行，花费的工作量很大，这样如果需要大量数据交换，系统的性
能会很低。

3）DMA（直接存储器存取）传送方式
DMA最明显的一个特点是它不是用软件而是采用一个专门的控制
器来控制内存与外设之间的数据交流，无须CPU介入，大大提高
CPU的工作效率。　　
在进行DMA数据传送之前，DMA控制器会向CPU申请总线控
制 权，CPU如果允许，则将控制权交出，因此，在数据交换时，
总线控制权由DMA控制器掌握，在传输结束后，DMA控制器将
总线控制权交还给CPU。
　　
7. I/O接口的分类
7.1. 并行接口

　　目前，计算机中的并行接口主要作为打印机端口，接口使用的不再是36针接头而是25针D形接头。所谓“并行”，是指8位数据同时通过并行线进行传送，这样数据传送速度大大提高，但并行传送的线路长度受到限制，因为长度增加，干扰就会增加，容易出错。
　　现在有五种常见的并口：4位、8位、半8位、EPP和ECP，大多数PC机配有4位或8位的并口，许多利用Intel386芯片组的便携机配有EPP口，支持全部IEEE1284并口规格的计算机配有ECP并口。
　　标准并行口4位、8位、半8位:
　　4位口一次只能输入4位数据，但可以输出8位数据；8位口可以一次输入和输出8位数据；半8位也可以。
　　EPP口（增强并行口）:由Intel等公司开发，允许8位双向数据传送，可以连接各种非打印机设备，如扫描仪、LAN适配器、磁盘驱动器和CDROM 驱动器等。
　　ECP口（扩展并行口）:由Microsoft、HP公司开发，能支持命令周期、数据周期和多个逻辑设备寻址，在多任务环境下可以使用DMA（直接存储器 访问）。
　　目前几乎所有的586机的主板都集成了并行口插座，标注为 Paralle1或LPT1，是一个26针的双排针插座。

7.2. 串行接口

　　计算机的另一种标准接口是串行口，现在的PC机一般至少有两个串行口COM1和COM2。串行口不同于并行口之处在于它的数据和控制信息是一位接一位串行地传送下去。这样，虽然速度会慢一些，但传送距离较并行口更长，因此长距离的通信应使用串行口。通常COM1使用的是9针D形连接器，而COM2有些使 用的是老式的DB25针连接器。
　　

7.3. 磁盘接口

1）IDE接口
　　IDE接口也叫做ATA端口，只可以接两个容量不超过528M的硬盘驱动器，接口的成本很低，因此在386、486时期非常流行。但大多数IDE接口不支持DMA数据传送，只能使用标准的PCI／O端口指令来传送所有的命令、状态、数据。几乎所有的586主板上都集成了两个40针的双排针IDE接口插座，分别标注为IDE1和IDE2。
2）EIDE接口
  EIDE接口较IDE接口有了很大改进，是目前最流行的接口。
首先，它所支持的外设不再是2个而是4个了，所支持的设备除了硬盘，还包括CD－ROM驱动器磁盘备份设备等。　　

其次，EIDE标准取消了528MB的限制，代之以8GP限制。　　
第三，EIDE有更高的数据传送速率，支持PIO模式3和模式4标准。
　　

7.4. SCSI接口

　　SCSI（SmallComputerSystemInterface）小计算机系统接口，在做图形处理和网络服务的计算机中被广泛采用SCSI接口的硬盘。除了硬盘以外，SCSI接口还可以连接CD－ROM驱动器、扫描仪和打印机等，它具有以下特点：
　　＊可同时连接7个外设；
　　＊总线配置为并行8位、16位或32位；
　　＊允许最大硬盘空间为8.4GB（有些已达到9.09GB）；
　　＊更高的数据传输速率，IDE是2MB每秒，SCSI通常可以达到5MB每秒，FASTSCSI（SCSI－2）能达到10MB每秒，最新的SCSI－3甚至能够达到40MB每秒，而EIDE最高只能达到16.6MB每秒；
　　＊成本较IDE和EIDE接口高很多，而且，SCSI接口硬盘必须和SCSI接口卡配合使用，SCSI接口卡也比IED和EIDE接口贵很多。
　　＊SCSI接口是智能化的，可以彼此通信而不增加CPU的负担。在IDE和EIDE设备之间传输数据时，CPU必须介入，而SCSI设备在数据传输过程中起主动作用，并能在SCSI总线内部具体执行，直至完成再通知CPU。
　　

7.5. USB接口

　　最新的USB串行接口标准是由Microsoft、Intel、Compaq、IBM等大公司共同推出，它提供机箱外的热即插即用连接，用户在连接外设时不用再打开机箱、关闭电源，而是采用“级联”方式，每个USB设备用一个USB插头连接到一个外设的USB插座上，而其本身又提供一个USB插座给下一个USB设备使用，通过 这种方式的连接，一个USB控制器可以连接多达127个外设，而每个外设间的距离可达5米。USB统一的4针圆形插头将取代机箱后的众多的串/并口（鼠标、MODEM）键盘等插头。USB能智能识别USB链上外围设备的插入或拆卸。 　　除了能够连接键盘、鼠标等，USB还可以连接ISDN、电话系统、数字音响、打印机以及扫描仪等低速外设。
　　

7.6. I/O扩展槽

　　I/O扩展槽即I/O信号传输的路径，是系统总线的延伸，可以插入任意的标准选件，如显示卡、解压卡、MODEM卡和声卡等。通过I/O扩展槽，CPU可对连接到该通道的所有I／O接口芯片和控制卡寻址访问，进行读写。
　　根据总线的类型不同，主板上的扩展槽可分为ISA、EISA、MAC、VESA和PCI几种。
　　1）ISA插槽
　　黑色，分为8位、16位两种。16位的扩展槽可以插8位和16位的控制卡，但8位的扩展槽只能插8位卡。
　　2）EISA插槽
　　棕色，外型、长度与16位的ISA卡一样，但深度较大，可插入ISA与EISA控制卡。
　　3）VESA插槽
　　棕色，位于16位ISA扩展插槽的下方，与ISA插槽配合使用。
　　4）PCI插槽
白色，与VESA插槽一样长，与ISA插槽平行，不需要与ISA插槽配合使用，而且只能插入PCI控制卡。由于主板的空间有限，PCI插槽要占用ISA插槽的位置

8. 串口的分类
8.1. RS-232-C接口
RS-232-C接口（又称 EIA RS-232-C）是目前最常用的一种串行通讯接口。它是在1970年由美国电子工业协会（EIA）联合贝尔系统、 调制解调器厂家及计算机终端生产厂家共同制定的用于串行通讯的标 准。它的全名是“数据终端设备（DTE）和数据通讯设备（DCE）之间 串行二进制数据交换接口技术标准”该标准规定采用一个25个脚的 DB25连接器，对连接器的每个引脚的信号内容加以规定，还对各种信 号的电平加以规定。
（1） 接口的信号内容 实际上RS-232-C的25条引线中有许多是很少使用的，在计算机与终端通讯中一般只使用3-9条引线。RS-232-C最常用的9条引线的信号内容见下所示

引脚序号 信号名称 符号 流向 功能
2 发送数据 TXD DTE→DCE DTE发送串行数据
3 接收数据 RXD DTE←DCE DTE接收串行数据
4 请求发送 RTS DTE→DCE DTE请求DCE将线路切换到发送方式
5 允许发送 CTS DTE←DCE DCE告诉DTE线路已接通可以发送数据
6 数据设备准备好 DSR DTE←DCE DCE准备好
7 信号地 　 　 信号公共地
8 载波检测 DCD DTE←DCE 表示DCE接收到远程载波
20 数据终端准备好 DTR DTE→DCE DTE准备好
22 振铃指示 RI DTE←DCE 表示DCE与线路接通,出现振铃

（2）接口的电气特性 在RS-232-C中任何一条信号线的电压均为负逻辑关系。即：逻 辑“1”，-5— -15V；逻辑“0” +5— +15V 。噪声容限为2V。即 要求接收器能识别低至+3V的信号作为逻辑“0”，高到-3V的信号 作为逻辑“1”.

　
(3) 接口的物理结构 RS-232-C接口连接器一般使用型号为DB-25的25芯插头座,通常插头在DCE端,插座在DTE端. 一些设备与PC机连接的RS-232-C接口,因为不使用对方的传送控制信号,只需三条接口线,即“

 

发送数据”、“接收数据”和“信号地”。所以采用DB-9的9芯插头座，传输线采用屏蔽双绞线。

4）传输电缆长度 由RS-232C标准规定在码元畸变小于4%的情况下，传输电缆长度应为50英尺，其实这个4%的码元畸变是很保守的，在实际应用中，约有99%的用户是按码元畸变10-20%的范围工作的，所以实际使用中最大距离会远超过50英尺，美国DEC公司曾规定允许码元畸变为10%而得出附表2 的实验结果。其中1号电缆为屏蔽电缆，型号为DECP.NO.9107723 内有三对双绞线，每对由22# AWG 组成，其外覆以屏蔽网。2号电缆为不带屏蔽的电缆。型号为DECP.NO.9105856-04是22#AWG的四芯电缆。 下面是C 公司的实验结果
波特率 1 号电缆传输距离（英尺） 2 号电缆传输距离（英尺）
110 5000 3000
300 5000 3000
1200 3000 3000
2400 1000 500
4800 1000 250
9600 250 250
 
8.2. RS-485接口
由于RS-232-C接口标准出现较早，难免有不足之处，主要有以下四点：
（1） 接口的信号电平值较高，易损坏接口电路的芯片，又因为与TTL 电平不兼容故需使用电平转换电路方能与TTL电路连接。
（2） 传输速率较低，在异步传输时，波特率为20Kbps。
（3） 接口使用一根信号线和一根信号返回线而构成共地的传输形式， 这种共地传输容易产生共模干扰，所以抗噪声干扰性弱。
（4） 传输距离有限，最大传输距离标准值为50英尺，实际上也只能 用在50米左右。
针对RS-232-C的不足，于是就不断出现了一些新的接口标准，RS-485就是其中之一，它具有以下特点：
1. RS-485的电气特性：逻辑“1”以两线间的电压差为+（2—6） V表示；逻辑“0”以两线间的电压差为-（2—6）V表示。接口信号电平比RS-232-C降低了，就不易损坏接口电路的芯片， 且该电平与TTL电平兼容，可方便与TTL 电路连接。
2. RS-485的数据最高传输速率为10Mbps
3. RS-485接口是采用平衡驱动器和差分接收器的组合，抗共模干能力增强，即抗噪声干扰性好。
4. RS-485接口的最大传输距离标准值为4000英尺，实际上可达 3000米，另外RS-232-C接口在总线上只允许连接1个收发器， 即单站能力。而RS-485接口在总线上是允许连接多达128个收发器。即具有多站能力,这样用户可以利用单一的RS-485接口方便地建立起设备网络。
因RS-485接口具有良好的抗噪声干扰性，长的传输距离和多站能力等上述优点就使其成为首选的串行接口。 因为RS485接口组成的半双工网络，一般只需二根连线，所以RS485接口均采用屏蔽双绞线传输。 RS485接口连接器采用DB-9的9芯插头座，与智能终端RS485接口采用DB-9（孔），与键盘连接的键盘接口RS485采用DB-9（针）。
3. 采用RS485接口时，传输电缆的长度如何考虑？
在使用RS485接口时，对于特定的传输线经，从发生器到负载其数据信号传输所允许的最大电缆长度是数据信号速率的函数，这个 长度数据主要是受信号失真及噪声等影响所限制。下图所示的最大电缆长度与信号速率的关系曲线是使用24AWG铜芯双绞电话电缆（线 径为0.51mm），线间旁路电容为52.5PF/M，终端负载电阻为100欧 时所得出。（曲线引自GB11014-89附录A）。由图中可知，当数据信 号速率降低到90Kbit/S以下时，假定最大允许的信号损失为6dBV时， 则电缆长度被限制在1200M。实际上，图中的曲线是很保守的，在实 用时是完全可以取得比它大的电缆长度。 当使用不同线径的电缆。则取得的最大电缆长度是不相同的。例 如：当数据信号速率为600Kbit/S时，采用24AWG电缆，由图可知最 大电缆长度是200m，若采用19AWG电缆（线径为0。91mm）则电缆长 度将可以大于200m； 若采用28AWG 电缆（线径为0。32mm）则电缆 长度只能小于200m。
9. 串口通信分类
9.1. 按信息的传送方向分
根据信息的传送方向，串口通信以进一步分为单工、半双工和全双工三种。
如果在通信过程的任意时刻，信息只能由一方A传到另一方B，则称为单工。
如果在任意时刻，信息既可由A传到B，又能由B传A，但只能由一个方向上的传输存在，称为半双工传输。
如果在任意时刻，线路上存在A到B和B到A的双向信号传输，则称为全双工。电话线就是二线全双工信道。 由于采用了回波抵消技术，双向的传输信号不致混淆不清。双工信道有时也将收、发信道分开，采用分离的线路或频带传输相反方向的信号，如回线传输。
--------> <--------> -------->
A---------B A----------B A---------B
  　 <--------
单工 半双工 全双工

9.2. 按信息的交互方式分
串口通信又分为异步通信和同步通信两种方式。
10. 奇偶校验
串口数据在传输过程中，由于干扰可能引起信息的出错，例如，传输字符‘E’，其各位为：
0100，0101=45H
D7 D0
由于干扰，可能使位变为1，这种情况，我们称为出现了“误码”。我们把如何发现传输中的错误，叫“检错”。发现错误后，如何消除错误，叫“纠错”。
最简单的检错方法是“奇偶校验”，即在传送字符的各位之外，再传送1位奇/偶校验位。可采用奇校验或偶校验。
奇校验：所有传送的数位（含字符的各数位和校验位）中，“1”的个数为奇数，如：
1 0110，0101
0 0110，0001
偶校验：所有传送的数位（含字符的各数位和校验位）中，“1”的个数为偶数，如：
1 0100，0101
0 0100，0001
 
奇偶校验能够检测出信息传输过程中的部分误码（1位误码能检出，2位及2位以上误码不能检出），同时，它不能纠错。在发现错误后，只能要求重发。但由于其实现简单，仍得到了广泛使用。
有些检错方法，具有自动纠错能力。如循环冗余码（CRC）检错等。

第二章 串口通信编程简介
1. 串口的通信编程流程
 

2. Unix平台下对串口进行开发的方法
3. Windows平台下对串口进行开发的方法
在Windows平台下，Win32 API支持同步和异步两种I/O操作。同步操作的方式的程序设计相对比较简单，但是I/O操作函数在I/O操作结束前不能返回，这将挂起调用线程，直到I/O操作结束；异步操作方式要相对复杂一些，但是可以让I/O操作在后台运行，而不会挂起调用线程，这在大数据量通信情况下对改善调用线程的响应速度是相当有效的。同时由于Win9x和WinNT下对串行通信的处理不同，这就导致了在Win9x下开发的同步方式串行通信程序在NT下会发生工作线程之间的协作阻塞，即当读线程在等待WaitCommEvent的时候，写线程不能正常工作，停在那里，整个程序处于瘫痪状态。这个问题是Windows的API函数处理串行通信的一个BUG，所以对于适应性强的程序都是选择异步方式。下面，本文对在Windows平台下对串口进行开发的方法进行介绍：
1. 汇编程序直接读写串口
汇编语言的编译效率和执行效率都很高，使用汇编语言直接对串口进行操作可以部分弥补串行通信速度较慢的缺陷，具体做法是：用汇编语言编写读、写串口的函数，在通信程序中直接调用，或者在幵发工具中直接内嵌汇编程序进行对端口的读写。
例如：
asm
  mov dx,0001h
mov ax,005eh
int 14h
end;
这样可以达到直接读到端口的效果。但是在WinNT和Win2000下，系统使用了保护机制，不允许用户态的程序直接读取端口，所以在WinNT和Win2000下，这种方法不能被允许执行。Ring3的用户态的程序要进入Ring0去读写端口必须先提供一个驱动（sys）程序，然后通过DLL导出函数供用户程序调用，显然，这种方法比较不容易实现。

2. 使用API函数进行串口编程
Windows系统通信一般都以WOSA（Windows Open Service Architecture，即Windows开放式服务体系）模型为基础，在此模型中位于上层的应用程序通过调用各种通信API（Application Programming Interfaces，即应用程序接口）与位于下层的设备驱动程序进行数据交换。
在Windows平台下，Windows将设备看作是文件进行管理，对设备的操作也可以看作是对文件的操作。Win32 API提供了CreateFile（），WriteFile（），ReadFile（），WaitForSingleObject（），WaitForMultipleObjects（），CreateEvent（），CreateMutex（），CreateSemaphore（），CreateThread（）等函数，其基本步骤如下：
（1） 利用CreateFile（）函数打开串口。该函数有七个参数，其中dwCreationDistribution参数取OPEN_EXISTING，表明打开的串口对应于实际的物理串口；lpFileName参数是要打开的串口名称，如“COM1”；DwFlagsAndAttributes参数决定对串口的操作是同步操作还是异步操作；DwDesiredAccess参数是访问方式，可取GENERIC_READ或GENERIC_WRITE；DwShareMode参数是共享模式，对串口物理设备必须取0；LpSecurityAttributes参数是安全属性，取值为NULL；DwFlagsAndAttributes是文件属性和标识，一般取值为FILE_ATTRIBUTE_NORMAL。该函数返回串口操作的句柄。
（2） 对该串口句柄对应的设备进行配置，如波特率、数据位、停止位、是否奇偶校验等。这部分首先使用GetCommState（）函数得到当前的串口配置信息，将这些信息存放在一个DCB结构中，然后对该DCB结构里面的内容进行重新按要求设置，最后调用SetCommState（）函数使修改的设置生效。
（3） 配置串口事件。SetCommMask（）函数可以设置多个串口信息事件，其串口的信息事件可以是以下任意的组合：
EV_BREAK：在输入时Windows检测到中断；
EV_CTS   ：CTS信号改变状态；
EV_DSR   ：DSR信号改变状态；
EV_ERR   ：发生线状态错误；
EV_RING  ：检测到振铃指示；
EV_RLSD  ：接收线信号探测状态发生改变；
EV_RXCHAR：接收缓冲区里收到字符；EV_RXFLAG：收到事件字符，并放入接收缓冲区；
EV_TXEMPTY：输出缓冲区空。
（4） 创建串口监视线程监视串口事件。首先使用WaitForSingleObject（）、WaitForCommEvent（）、WaitForMultipleObjects（）等等待函数对线程进行控制，当没有数据收发时，将线程阻塞，减少其CPU的资源占用；当有数据收发时，线程自动启动，完成数据的收发。最后调用CreateThread（）函数启动线程。
（5） 串口使用结束，用CloseHandle（）函数关闭串口，回收资源。
由此可见，利用Win32 API函数编写串口通信程序比较复杂，需要掌握大量的系统和通信知识，其优点是实现的功能强大，应用面广泛，适合编写较为复杂的地层次应用程序。

3. 使用串口通讯的控件进行幵发，如mscomm。

第三章 使用DELPHI工具进行串口通信编程
1. Delphi串口通信编程的方法
Delphi没有自带串口通讯的控件，在它的帮助文档里也没有提及串口通讯，这就给编制通讯程序的开发人员带来众多麻烦，影响了开发进度，下面就这一技术进行讨论。
用Delphi 实现串口通信，常用的几种方法为：
1. 使用控件如MSCOMM和SPCOMM，TurboPower.
串口控件主要優缺点如下：
mscomm:微软的东西，ActivX控件，使用简单，在VB中带的，性能一般，由于是ActivX控件，缺點打包时需要注册好多信息。
spcomm:比较好的vcl，算是比较专业的，解剖了一下，功能比较完善。
TurboPower:公认的专业通讯控件。可以到其站点下载，开放源码了。

2. 使用API函数或者在Delphi 中调用其它串口通讯程序。

3. 使用API编写串口通信程序。

2. 串口控件在Delphi中的安装
ü Delphi中MsComm控件的安装使用
用过VB的程序员都知道 VB的MSComm通信控件具有丰富的与串口通信密切相关的属性及事件，提供了一系列标准通信命令的接口，可以用它创建全双工的、事件驱动的、高效实用的通信程序。在这里就介绍一下如何把MSComm这个ActiveX控件加入到Delphi中，充分发挥出二者的优越性。

　　  首先在VB安装目录下找到下列三个文件:

　　   Mscomm.reg, Mscomm32.ocx,Mscomm32.dep ，

把这三个文件拷贝到Windows的system目录下（注意WinNT下是System32）。然后用Windows下的注册工具regsvr32注册该OCX控件，例如：

　　Regsvr32 … system目录\Mscomm32.ocx .

　　注册成功后用记事本打开Mscomm.reg,可以看到类似下面的内容:

[HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905]

@ = "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"，为了能正确使用该控件，需要修改注册表的信息，在注册表的在HKEY_CLASSES_ROOT\Licenses下建一主键:

4250E830-6AC2-11cf-8ADB-00AA00C00905,主键的内容为

kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun.

至此已经完成了控件的系统注册工作，剩下的工作是在Delphi中导入这个ActiveX控件,进入Delphi环境在Component菜单下选Import ActiveX Control,这时在列表中可以看到Microsoft Comm Control 6.0选项, 选中这个选项点击Install按钮,完成安装。在ActiveX控件页上可以看到一个电话为图标的控件，这就是MSComm控件。这样就可以象在VB中一样方便得使用MSComm控件了。

ü SPCOMM控件的安装

1．选择下拉菜单Component的第二项Install Component 。

图1
 
      弹出图1所示的窗口,在Unit file name 处填写控件SPCOMM控件所在路径，其它可用默认值，点击OK按纽。

2．安装成功后，system控件面板中将出现一个红色控件COMM。现在使用COMM控件可以象Delphi自带控件一样使用。
3. 串口控件的使用
ü MSComm控件使用详解
     MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi等语言中均可使用。 Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件，它为应用程序提供了通过串行接口收发数据的简便方法。具体的来说，它提供了两种处理通信问题的方法：一是事件驱动(Event－driven)方法，一是查询法。
1.MSComm控件两种处理通讯的方式

MSComm控件提供下列两种处理通讯的方式：事件驱动方式和查询方式。
1.1 事件驱动方式

事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。在许多情况下，在事件发生时需要得到通知，例如，在串口接收缓冲区中有字符，或者 Carrier Detect (CD) 或 Request To Send (RTS) 线上一个字符到达或一个变化发生时。在这些情况下，可以利用 MSComm 控件的 OnComm 事件捕获并处理这些通讯事件。OnComm 事件还可以检查和处理通讯错误。所有通讯事件和通讯错误的列表，参阅 CommEvent 属性。在编程过程中，就可以在OnComm事件处理函数中加入自己的处理代码。这种方法的优点是程序响应及时，可靠性高。每个MSComm 控件对应着一个串行端口。如果应用程序需要访问多个串行端口，必须使用多个 MSComm 控件。

1.2 查询方式

查询方式实质上还是事件驱动，但在有些情况下，这种方式显得更为便捷。在程序的每个关键功能之后，可以通过检查 CommEvent 属性的值来查询事件和错误。如果应用程序较小，并且是自保持的，这种方法可能是更可取的。例如，如果写一个简单的电话拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的“确定”响应。

2.MSComm 控件的常用属性
MSComm 控件有很多重要的属性，但首先必须熟悉几个属性。
CommPort 设置并返回通讯端口号。
Settings 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。
PortOpen 设置并返回通讯端口的状态。也可以打开和关闭端口。
Input 从接收缓冲区返回和删除字符。
Output 向传输缓冲区写一个字符串。

下面分别描述：

CommPort属性 设置并返回通讯端口号。
语法 object.CommPort[value ] (value 一整型值，说明端口号。)
说明 在设计时，value 可以设置成从 1 到 16 的任何数（缺省值为 1）。但是如果用 PortOpen 属性打开一个并不存在的端口时，MSComm 控件会产生错误 68（设备无效）。
注意：必须在打开端口之前设置 CommPort 属性。

RThreshold 属性：在 MSComm 控件设置 CommEvent 属性为 comEvReceive 并产生 OnComm 之前，设置并返回的要接收的字符数。
语法 object.Rthreshold [ = value ]（value 整型表达式，说明在产生 OnComm 事件之前要接收的字符数。 ）
说明 当接收字符后，若 Rthreshold 属性设置为 0（缺省值）则不产生 OnComm 事件。例如，设置 Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。

CTSHolding 属性：确定是否可通过查询 Clear To Send (CTS) 线的状态发送数据。Clear To Send 是调制解调器发送到相联计算机的信号，指示传输可以进行。该属性在设计时无效，在运行时为只读。
语法： object.CTSHolding（Boolean）

Mscomm 控件的 CTSHolding 属性设置值：
True Clear To Send 线为高电平。
False Clear To Send 线为低电平。

说明：如果 Clear To Send 线为低电平 (CTSHolding = False) 并且超时时，MSComm 控件设置 CommEvent 属性为 comEventCTSTO (Clear To Send Timeout) 并产生 OnComm 事件。

Clear To Send 线用于 RTS/CTS (Request To Send/Clear To Send) 硬件握手。如果需要确定 Clear To Send 线的状态，CTSHolding 属性给出一种手工查询的方法。

详细信息 有关握手协议，请参阅 Handshaking 属性。

SThreshold 属性： MSComm 控件设置 CommEvent 属性为 comEvSend 并产生 OnComm 事件之前，设置并返回传输缓冲区中允许的最小字符数。

语法 object.SThreshold [ = value ]
value 整形表达式，代表在 OnComm 事件产生之前在传输缓冲区中的最小字符数。

说明：若设置 Sthreshold 属性为 0（缺省值），数据传输事件不会产生 OnComm 事件。若设置 Sthreshold 属性为 1，当传输缓冲区完全空时，MSComm 控件产生 OnComm 事件。如果在传输缓冲区中的字符数小于 value，CommEvent 属性设置为 comEvSend，并产生 OnComm 事件。comEvSend 事件仅当字符数与 Sthreshold 交叉时被激活一次。例如，如果 Sthreshold 等于 5，仅当在输出队列中字符数从 5 降到 4 时，comEvSend 才发生。如果在输出队列中从没有比 Sthreshold 多的字符，comEvSend 事件将绝不会发生。

Handshake 常数

常数 值 描述
comNone 0 无握手。
comXonXoff 1 XOn/Xoff 握手。
comRTS 2 Request-to-send/clear-to-send 握手。
comRTSXOnXOff 3 Request-to-send 和 clear-to-send 握手皆可。

OnComm 常数

常数 值 描述
comEvSend 1 发送事件。
comEvReceive 2 接收事件。
comEvCTS 3 clear-to-send 线变化。
comEvDSR 4 data-set ready 线变化。
comEvCD 5 carrier detect 线变化。
comEvRing 6 振铃检测。
comEvEOF 7 文件结束。

Error 常数

常数 值 描述
comEventBreak 1001 接收到中断信号
comEventCTSTO 1002 Clear-to-send 超时
comEventDSRTO 1003 Data-set ready 超时
comEventFrame 1004 帧错误
comEventOverrun 1006 端口超速
comEventCDTO 1007 Carrier detect 超时
comEventRxOver 1008 接收缓冲区溢出
comEventRxParity 1009 Parity 错误
comEventTxFull 1010 传输缓冲区满
comEventDCB 1011 检索端口 设备控制块 (DCB) 时的意外错误

InputMode 常数
常数 值 描述
comInputModeText 0 （缺省）通过 Input 属性以文本方式取回数据。
comInputModeBinary 1 通过 Input 属性以二进制方式检取回数据。

CDHolding 属性：通过查询 Carrier Detect (CD) 线的状态确定当前是否有传输。Carrier Detect 是从调制解调器发送到相联计算机的一个信号，指示调制解调器正在联机。该属性在设计时无效，在运行时为只读。

语法 object.CDHolding
设置值：CDHolding 属性的设置值为：
设置 描述
True Carrier Detect 线为高电平
False Carrier Detect 线为低电平
说明：注意当 Carrier Detect 线为高电平 (CDHolding = True) 且超时时，MSComm 控件设置CommEvent 属性为 comEventCDTO（Carrier Detect 超时错误），并产生 OnComm 事件。
注意 在主机应用程序中捕获一个丢失的传输是特别重要的，例如一个公告板，因为呼叫者可以随时挂起（放弃传输）。
Carrier Detect 也被称为 Receive Line Signal Detect (RLSD)。
数据类型 Boolean

DSRHolding 属性：确定 Data Set Ready (DSR) 线的状态。Data Set Ready 信号由调制解调器发送到相连计算机，指示作好操作准备。该属性在设计时无效，在运行时为只读。
语法：object.DSRHolding
object 所在处表示对象表达式，其值是“应用于”列表中的对象。
DSRHolding 属性返回以下值：
值 描述
True Data Set Ready 线高
False Data Set Ready 线低
说明：当 Data Set Ready 线为高电平 (DSRHolding = True) 且超时时，MSComm 控件设置 CommEvent 属性为 comEventDSRTO（数据准备超时）并产生 OnComm 事件。
当为 Data Terminal Equipment (DTE) 机器写 Data Set Ready/Data Terminal Ready 握手例程时该属性是十分有用的。
数据类型：Boolean

Settings 属性: 设置并返回波特率、奇偶校验、数据位、停止位参数。

语法: object.Settings[ = value]
说明：当端口打开时，如果 value 非法，则 MSComm 控件产生错误 380（非法属性值）。
Value 由四个设置值组成，有如下的格式：
"BBBB,P,D,S"
BBBB 为波特率，P 为奇偶校验，D 为数据位数，S 为停止位数。value 的缺省值是：
"9600,N,8,1"

InputLen 属性：设置并返回 Input 属性从接收缓冲区读取的字符数。

语法 object.InputLen [ = value]
InputLen 属性语法包括下列部分：
value 整型表达式，说明 Input 属性从接收缓冲区中读取的字符数。
说明：InputLen 属性的缺省值是 0。设置 InputLen 为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。

若接收缓冲区中 InputLen 字符无效，Input 属性返回一个零长度字符串 ("")。在使用 Input 前，用户可以选择检查 InBufferCount 属性来确定缓冲区中是否已有需要数目的字符。该属性在从输出格式为定长数据的机器读取数据时非常有用。

EOFEnable 属性：确定在输入过程中 MSComm 控件是否寻找文件结尾 (EOF) 字符。如果找到 EOF 字符，将停止输入并激活 OnComm 事件，此时 CommEvent 属性设置为 comEvEOF，
语法：object.EOFEnable [ = value ]
EOFEnable 属性语法包括下列部分：
value 布尔表达式，确定当找到 EOF 字符时，OnComm 事件是否被激活，如“设置值”中所描述。
value 的设置值：
True 当 EOF 字符找到时 OnComm 事件被激活。
False （缺省）当 EOF 字符找到时 OnComm 事件不被激活。
说明：当 EOFEnable 属性设置为 False，OnComm 控件将不在输入流中寻找 EOF 字符。

错误消息（MS Comm 控件）

下表列出 MSComm 控件可以捕获的错误：

值 描述
380 无效属性值 comInvalidPropertyValue
383 属性为只读 comSetNotSupported
394 属性为只读 comGetNotSupported
8000 端口打开时操作不合法 comPortOpen
8001 超时值必须大于 0
8002 无效端口号 comPortInvalid
8003 属性只在运行时有效
8004 属性在运行时为只读
8005 端口已经打开 comPortAlreadyOpen
8006 设备标识符无效或不支持该标识符
8007 不支持设备的波特率
8008 指定的字节大小无效
8009 缺省参数错误
8010 硬件不可用（被其它设备锁定）
8011 函数不能分配队列
8012 设备没有打开 comNoOpen
8013 设备已经打开
8014 不能使用 comm 通知
8015 不能设置 comm 状态 comSetCommStateFailed
8016 不能设置 comm 事件屏蔽
8018 仅当端口打开时操作才有效 comPortNotOpen
8019 设备忙
8020 读 comm 设备错误 comReadError
8021 为该端口检索设备控制块时的内部错误 comDCBError

PCOMM的主要属性，方法和事件

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这表示串口已正确的发送出数据并正确的接受到数据，串口通讯成功。

 

ü Spcomm串口控件的基本例程
//串口初始化
procedure TForm1.BitBtn3Click(Sender: TObject);
    begin
        comm1.startcomm;
    end;
//关闭串口
procedure TForm1.BitBtn4Click(Sender: TObject);
    begin
        comm1.StopComm;
    end;
//发送数据
procedure TForm1.BitBtn1Click(Sender: TObject);
var str:string;
      ch1:char;
begin
     comm1.WriteCommData(ch,1);
end.
//接收数据
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);
type   ss=array[1..500]of char ;
var    str1:^ss;
          i:integer;
         s:array[0..15] of char ;
         n:integer;
 begin
                   str1:=Buffer;
                 //s[  ]=('0','1','2','3'...'E')
                   for i:=0 to 9 do
                   s:=chr(48+i);
                   for i:=10 to 15 do
                   s:=chr(55+i);
                   for i:=1 to bufferlength do
                   begin
                   n:=ord(str1^);
                   listbox1.Items.add(
                             inttostr(listbox1.Items.Count+1)
                             +' - '+s[n div 16]+s[n mod 16]);
                   end;
                   listbox1.Refresh;
                  if listbox1.Items.count > strtoint(form2.edit1.text)
                  then listbox1.Items.Clear;
            end;