Delphi串口通信程序设计与实现

袄件设计学术探讨　Ｄｅ　ｌ　ｐｈ　ｉ串口通信程序设计与实现　傅宏伟　（安徽先河消防科技工程有限公司，安徽合肥　２３００００）　［摘要］　讲述Ｄｅｌｐｈｉ实现串口通信程序的设计与实现，采用Ｄｅｌｐｈｉ编程技术和面向对象的程序设计方法，利用软件制　作数据发生器模拟硬件产生数据，使用Ｄｅｌｐｈｉ　ｑ－常用的ＶＣＬ控件设计系统界面，再用Ｓｐｃｏｍｍ控件实现实时发送数据，通过　设置Ｓｐｃｏｍｍ控件属性和缓冲区，使得计算机能控制串口发送数据。　［关键词］Ｄｅｌｐｈｉ；串口通信；控件　ＭＳＣｏｍｍ控件通过串行端口传输和接收数据，为应用　１．Ｄｅｌｐｈｉ中实现串口通信的方法　利用Ｄｅｌｐｈｉ实现串口通信的常用的方法有３种：一是　利用控件，如ＭＳＣｏｍｍ控件和Ｓｐｃｏｍｍ控件；二是使用ＡＰＩ　函数；三是调用其它串口通信程序。使用ＡＰＩ方法的优点是　程序提供串行通讯功能。ＭＳＣｏｍｍ控件在串口编程时非常　方便，程序员不必去花时间去了解较为复杂的ＡＰＩ函数，而　且在ＶＣ、ＶＢ、Ｄｅｌｐｈｉ等语言中均可使用。　（１）ＭＳＣｏｍｍ控件两种处理通讯的方式　ＭＳＣｏｍｍ控件提供下列两种处理通讯的方式：事件驱　动方式和查询方式。　（２）ＭＳＣｏｍｍ控件的常用属性　ＣｏｍｍＰｏｒｔ：设置并返回通讯端口号；　比较适合于编写较为复杂的低层次通信程序，但缺点是编　写串口通信程序较为复杂，需要掌握大量通信知识。相比较　而言，利用Ｓｐｃｏｍｍ控件则相对较简单，Ｓｐｃｏｍｍ是　Ｓｍａｌ１．Ｐｉｇ　Ｔｅａｍ开发的一个第三方Ｄｅｌｐｈｉ串口控件，　Ｓｐｃｏｍｍ控件并不是ＤＥＬＰＨＩ　７．０白带的控件，需要自己到　相关网站下载并安装到相关目录下，该控件具有丰富的与　串口通信密切相关的属性及事件，提供了对串口的各种操　作，编程简单、通用性强、可移植性好，而且还支持多线程，　在Ｄｅｌｐｈｉ软件开发中已经成为一个被广泛应用的串口通信　开发控件。　Ｓｅｔｔｉｎｇｓ：以字符串的形式设置并返回波特率、奇偶校验、　数据位、停止位；　ＰｏｒｔＯｐｅｎ：设置并返回通讯端口的状态。也可以打开和关　闭端口；　Ｉｎｐｕｔ：从接收缓冲区返回和删除字符；　Ｏｕｔｐｕｔ：向传输缓冲区写一个字符串；　ＥＯＦＥｎａｂｌｅ：确定在输入过程中ＭＳＣｏｍｍ控件是否寻　找文件结尾（ＥＯＦ）字符。如果找到ＥＯＦ字符，将停止输入并　激活ＯｎＣｏｍｍ事件，此时ＣｏｍｍＥｖｅｎｔ属性设置为　ｃｏｍＥｖＥ０Ｆ。　１．１使用ＷｉｎｄｏｗｓＡＰＩ函数　Ｗｉｎｄｏｗｓ环境下的串口编程与ＤＯＳ环境下的串口编程　有很大的不同。Ｗｉｎｄｏｗｓ环境下的串口编程的最大特征之　一就是设备无关性，它通过设备驱动程序将Ｗｉｎｄｏｗｓ应用　程序与不同的外界设备隔离。Ｗｉｎｄｏｗｓ封装了Ｗｉｎｄｏｗｓ的　通信机制，这种方式称为通信ＡＰＩ，Ｗｉｎｄｏｗｓ程序员可以利　用Ｗｉｎｄｏｗｓ通信ＡＰＩ进行编程，不用直接对硬件操作。　ｗ　３２通信ＡＰＩ基本上是一个串行端口ＡＰＩ，不是很　适合局域网（ＬＡＮ）通信。它把串口操作（以及并口等）与文件　操作统一起来，使用类似的操作来实现。　用Ｗｉｎｄｏｗｓ　ＡＰＩ函数实现串口通信的主要事件有：　（１）打开和关闭串口：分别是用ＣｒｅａｔＦｉｌｅ函数和Ｃｌｏｓｅ　Ｈａｎｄｌｅ函数实现。　（２）串口配置和属性设置：使用ＧｅｔＣｏｍｍＳｔａｔｅ（）函数获　取串口当前配置，使用ＳｅｔＣｏｍｍＳｔａｔｅ（）从新分配串口资源的　ＭＳＣｏｍｍ控件的事件只有一个，就是ＯｎＣｏｍｍ事件。　（３）使用ＭＳＣｏｍｍ控件实现串口通信的基本流程：　１）添加ＭＳＣｏｍｍ控件　２１初始化并打开串口　３）捕捉串口事件　４１串口读写　５１关闭串口　１．３使用Ｓｐｃｏｍｍ控件　Ｓｐｃｏｍｍ控件并不是Ｄｅｌｐｈｉ　７．０白带的控件，需要自己　到相关网站下载并安装到相关目录下。利用Ｓｐｃｏｍｍ控件就　可以实现串口通信，因为该控件具有丰富的与串口通信密切　各个参数。在配置串口属性时，应该先了解串口设备的属　性。通过ＧｅｔＣｏｍｍＰｒｏｐｅｒｔｉｅｓ０函数获得串口的属性。　（３）读／写串口：使用ＲｅａｄＦｉｌｅ（）＊ｌｌ　ＷｒｉｔｅＦｉｌｅ函数来实现。　（４）编写相应的ＯｎＣｌｉｃｋ事件的相关代码。　１．２使用ＭＳＣｏｍｍ控件　相关的属性及事件，提供了对串口的各种操作，而且还支持　多线程，能实现一般的串口通信需要。　Ｓｐｃｏｍｍ的安装：　（１）选择下拉菜单Ｃｏｍｐｏｎｅｎｔ中的Ｉｎｓｔａｌｌ　Ｃｏｍｐｏｎｅｎｔ选　项，在Ｕｎｉｔ　ｉｆｌｅ　ｎａｍｅ处填写Ｓｐｃｏｍｍ控件所在的路径，其它　作者简介：傅宏伟，男，安徽宿州人，学士，助理工程师，研究方向：计算机应用，消防监控。　４７。＿—＿—　

学术探讨软件设计　—　土　二二二　二　一二一一二　一　—　～二　二　各项可用默认值，点击ＯＫ按钮。　（２）安装后，在Ｓｙｓｔｅｍ控件面板中将出现一个红色控件　Ｃｏｍ。　的串行通信控件用于处理特定的设备模块，例如ＴＧＰＳ控件　就是专门处理ＧＰＳ接受机串行通信输出的ＮＭＥＡ．Ｏ１８３格　式的数据，分析得到定位信息等。这些通信控件一般都极大　地简化了对底层的设置，提供了许多强大的功能，可以加快　Ｓｐｃｏｍｍ的属性、方法和事件：　（１）属性　ＣｏｍｍＮａｍｅ：表示Ｃｏｍ１、Ｃｏｍ２等串口的名字；　ＢａｕｄＲａｔｅ：根据实际需要设定的波特率，在串口打开后　也町更改此值，实际波特率随之更改；　ＰａｒｉｔｙＣｈｅｃｋ：表示是否需要奇偶校验；　ＢｙｔｅＳｉｚｅ：根据实际情况设定的字节长度：　Ｐａｒｉｔｙ：奇偶校验位；　ＳｔｏｐＢｉｔｓ：停Ｊ卜位；　ＳｅｎｄＤａｔａＥｍｐｔｙ：这是一个布尔型属性，为ｔｒｕｅ时表示发　送缓存为空，或者发送队列里没有信息；为ｆａｌｓｅ时表示发送　缓存不为空，或者发送队列里有信息。　（２）方法　ＳｔａｒｔＣｏｍｍ方法用于打开串口，当打开失败时通常会报　错。错误主要有７种：串口已经打开；打开串口错误；文件句　柄不是通信句柄；不能够安装通信缓存；不能产生事件；不　能产生读进程；不能产生写进程。　ＳｔｏｐＣｏｍｍ方法用于关闭串口，没有返回值。　ＷｒｉｔｅＣｏｍｍＤａｔａ（ｐＤａｔａＴｏＷｒｉｔｅ：ＰＣｈａｒ；ｄｗＳｉｚｅｏｔＤａｔａＴｏＷｒｉｔｅ：　Ｗｏｒｄ）方法是个带有布尔型返回值的函数，用于将一个字符　串发送到写进程，发送成功返回ｔｒｕｅ，发送失败返回ｆａｌｓｅ。执　行此函数将立即得到返回值，发送操作随后执行。该函数有　两个参数，其中ｐＤａｔａＴｏＷｒｉｔｅ是要发送的字符串，　ｄｗＳｉｚｅｏｆＤａｔａＴｏＷｒｉｔｅ是发送字符串的长度。　ｆ３１事件　ＯｎＲｅｃｅｉｖｅＤａｔａ：ｐｒｏｃｅｄｕｒｅ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ；Ｂｕｆｆｅｒ：Ｐｏｉｎｔｅｒ；　ＢｕｆｆｅｒＬｅｎｇｔｈ：Ｗｏｒｄ）ｏｆｏｂｊｅｃｔ当有数据输入缓存时将触发该事　件，在这里可以对从串口收到的数据进行处理。Ｂｕｆｆｅｒ中是　收到的数据，ＢｕｆｆｅｒＬｅｎｇｔｈ是收到的数据长度。　ＯｎＲｅｃｅｉｖｅＥｒｒｏｒ：ｐｒｏｃｅｄｕｒｅ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ；ＥｖｅｎｔＭａｓｋ：　ＤＷＯＲＤ）当接收数据出现错误时将触发该事件。　在使用Ｓｐｃｏｍｍ控件的时候，首先要添加一个Ｃｏｍ控　件，之后设定Ｃｏｍ１属性，再设置Ｃｏｍ控件的发送和接受的　触发事件，最后编写源代码并进行调试。　（４）Ｓｐｃｏｍｍ串口通信的实现　Ｓｐｃｏｍｍ串行通信控件具有多线程的特性，接收和发送　数据分别在两个线程内完成，接收线程负责收到数据时触　发ＯｎＲｅｃｅｉｖｅＤａｔａ事件；用ＷｒｉｔｅＣｏｍｍＤａｔａ（）函数将待发送　的数据写入输出缓冲器，发送线程在后台完成数据发送工　作。在接收和发送数据前需要初始化串口，用ＳｔａｒｔＣｏｍｍ方　法打开串口，退出程序时用ＳｔｏｐＣｏｍｍ方法关闭串口。　１．４调用其它串口通信程序　除了使用Ｗｉｎｄｏｗｓ　ＡＰＩ函数、ＭＳＣＯＭＭ控件、Ｓｐｃｏｍｍ　控件实现串口通信，还可以使用ＣｏｍｍＰｏｒｔＤｒｖ控件、　ＳｅｒｉａｌＰｏｒｔ控件等。除了通用的串口通信控件，还有一些专用　４８－－——　程序的开发过程。　２．系统设计与实现　２．１发送窗口功能实现　图１发送窗口界面　代码实现：　保存数据功能代码如下：　ｐｒｏｃｅｄｕｒｅ　ＴＦｏｒｍＣｏｍｍＴｅｓｔ．ＢＴＮＳａｖｅＬｅｆｔＣｌｉｃｋ（Ｓｅｎｄｅｒ：　ＴＯｂｊｅｃｔ）；　ｂｅｇｉｎ　ｉｆ　Ｔｒｉｍ（Ｍｅｍｏ１．Ｌｉｎｅｓ．Ｔｅｘｔ、＜＞”ｔｈｅｎ　ｂｅｇｉｎ　ＳａｖｅＤｉａｌｏｇ１．Ｔｉｔｌｅ：：’将即将发送的内容保存到文本文件　中！’；　ｗｉｔｈ　ＳａｖｅＤｉａｌｏｇｌ　ｄｏ　ｉｆ　Ｅｘｅｃｕｔｅ　ｔｈｅｎ　ｂｅｇｉｎ　ＳｔａｔｕｓＢａｒ１．Ｐａｎｅｌｓ［１］．Ｔｅｘｔ：　ＳａｖｅＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ：　Ｍｅｍｏ１．Ｌｉｎｅｓ．ＳａｖｅＴｏＦｉｌｅ（ＳａｖｅＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ）．　ｅｎｄ；　ｅｎｄ；　ｅｎｄ　２．２实时数据发送功能实现　图２实现实时数据发送界面　

设计的关键是使用Ｓｐｃｏｍｍ控件和Ｔｉｍｅｒ控件实现。　（１）初始化　需要选择本次通信使用的串口，设置波特率、校验方式、　数据位、停止位等属性，打开该串口。　示例代码如下：　Ｃｏｒｒｍｑ１．ＢａｕｄＲａｔｅ：＝９６００：　Ｃｏｍｍ１．Ｐａｒｉｔｙ：＝Ｎｏｎｅ；　Ｃｏｍｍ１．ＢｙｔｅＳｉｚｅ：　８：　Ｃｏｍｍ１．ＳｔｏｐＢｉｔｓ：＝１：　这与具体实现的ＰＣ机有关，在设置软件Ｃｏｍ口属性　前应该先查看好该机器的Ｃｏｍ属性，使得二者能匹配，这样　能避免在用模拟软件实现实时数据发送时出现错误。　（２１发送测试数据　实现模拟的实时数据采集，首先要调试串口，测试信号　可以随意选择某特定字符串，通过发送测试信号实现，当　ＰＣ发出这样一些测试数据后，通过接收事件能收到特定的　某字符串，则表示测试成功，串口发送数据可以正常进行。　否则需重新发送测试信号。　以下为向计算机发送一个测试数据：　代码如下：　ｐｒｏｃｅｄｕｒｅ　ＴＦｏｒｍＣｏｍｍＴｅｓｔ．ＴｅｓｔＣｏｍｍＡｃｔｉｏｎＥｘｅｃｕｔｅ　（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　ｂｅｇｉｎ　ｉｆ　ｎｏｔ　Ｔｅｓｔｉｎｇ　ｔｈｅｎ　ｂｅｇｉｎ　Ｔｅｓｔｉｎｇ：＝Ｔｒｕｅ；　ＮｅｘｔＮｕｍ：＝０：　Ｃｏｍｍ１．ＷｒｉｔｅＣｏｍｍＤａｔａ（Ｐｃｈａｒ（ＥｄｉｔＡｃｋ１．Ｔｅｘｔ），Ｌｅｎｇｔｈ　（Ｐｃｈａｒ（ＥｄｉｔＡｃｋ１．Ｔｅｘｔ））１；　ＳｔａｔｕｓＢａｒ１．Ｐａｎｅｌｓ［１］．Ｔｅｘｔ：＝’串口１正在发送测试数据’；　ｅｎｄ；　ｅｎｄ：／／测试通信口　（３）发送数据　在编写实时数据采集系统时，利用Ｓｐｃｏｍｍ串口控件实　现发送数据示例代码如下：ｐｒｏｃｅｄｕｒｅ　ＴＦｏｒｍＣｏｍｍＴｅｓｔ．　ＳｔａｒｔＳｅｎｄＡｃｔｉｏｎＥｘｅｃｕｔｅ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　Ｖａｒ　ｓｔｒＳｅｎｄ：Ｓｔｒｉｎｇ；　ｂｅｇｉｎ　ｔｒｙ　Ｃｏｍｍ１．ＳｔｏｐＣｏｍｍ；　Ｃｏｍｍ１．ＳｔａｒｔＣｏｍｍ：　ｅｘｃｅｐｔ　Ｍｅｓｓａｇｅｄｌｇ（’无法打开ＣＯＭＭ１　１’，ｍｔｅｒｒｏｒ，［ｍｂＯＫ】，０）；　ｅｎｄ；　／／Ｓｌｅｅｐ（５０）；　ＳｔａｔｕｓＢａｒ１．Ｐａｎｅｌｓ［１］．Ｔｅｘｔ：＝’串口１已启动’；　／／ｆｏｒ　ｉ：＝０　ｔｏ　Ｍｅｍｏ１．Ｌｉｎｅｓ．Ｃｏｕｎｔ．１　ｄｏ　软件设计学术探讨ｌ　一　：　：：　：　：．　一．：：：＝＝＝一一：　：：・ｌ＝＝　２ｔ“２苹第８醐ｌ　ｂｅｇｉｎ　ｓｔｒＳｅｎｄ：＝Ｍｅｍｏ　１．Ｌｉｎｅｓ［ｉ】；　／／ｓｈｏｗｍｅｓｓａｇｅ（ｓｔｒＳｅｎｄ）；　／／Ｓｌｅｅｐ（１　０００）；　ｔｒｙ　ＳｔａｔｕｓＢａｒ１．Ｐａｎｅｌｓ［１］．Ｔｅｘｔ：一’串口１正在发送数据’；　Ｃｏｍｍ１．ＷｒｉｔｅＣｏｍｍＤａｔａ（ＰＣｈａｒ（ｓｔｒＳｅｎｄ），Ｌｅｎｇｔｈ（ｓｔｒＳｅｎｄ）　）；　／／Ｃｏｍｍ１．ＷｒｉｔｅＣｏｍｍＤａｔａ（ＰＣｈａｒ（ｃｏｐｙ（ｓｔｒＳｅｎｄ，２，３）），３）；　Ｍｅｍｏ２．Ｌｉｎｅｓ．Ａｄｄ（ｓｔｒＳｅｎｄ）；　／／Ｍｅｍｏ２．Ｌｉｎｅｓ．Ａｄｄ（ｃｏｐｙ（ｓｔｒＳｅｎｄ，２，３）１；　ＳｔａｔｕｓＢａｒ１．Ｐａｎｅｌｓ［２］．Ｔｅｘｔ：＝’显示已经发送的数据’；　ｈａｎｇ：＝ｈａｎｇ＋１；　ｅｘｃｅｐｔ　Ｓｈｏｗｍｅｓｓａｇｅ（’发送错误’１；　ｅｎｄ；　ｅｎｄ；　／／Ｓｈｏｗｍｅｓｓａｇｅ（’已经发送’＋ＩｎｔＴｏＳｔｒ（ｈａｎｇ）＋’个数据！’）：　ｅｎｄ；／／发送按钮的点击事件　（４）关闭串口　在系统开发中，应注意在不使用串口时应及时关闭串　口，释放系统资源。　ｂｅｇｉｎ　Ｃｏｍｍ１．ＳｔｏｐＣｏｍｍ：／／关闭Ｃｏｍｍｌ　ＳｔａｔｕｓＢａｒ１．Ｐａｎｅｌｓ［１］．Ｔｅｘｔ：＝’串口１已关闭’；　ＳｔａｔｕｓＢａｒ１．Ｐａｎｅｌｓ［２］．Ｔｅｘｔ：＝’串口１己关闭’　ｅｎｄ；　（５）定时器设计　通过编写定时器的相关代码和属性设置，实现数据的自　动发送功能。　ｐｒｏｃｅｄｕｒｅ　ＴＦｏｒｍＣｏｍｍＴｅｓｔ．Ｔｉｍｅｒ１Ｔｉｍｅｒ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　ｂｅｇｉｎ　ｉｆ　Ｍｅｍｏ１．Ｔｅｘｔ＜＞”ｔｈｅｎ　ＢＴＮＳｔａｒｔＳｅｎｄ．Ｃｌｉｃｋ；　ｉ：＝ｉ＋１：　ｉｆ　ｉ＝Ｍｅｍｏ１．Ｌｉｎｅｓ．Ｃｏｕｎｔ　ｔｈｅｎ　Ｓｈｏｗｍｅｓｓａｇｅ（’全部发送完毕’＋’，’十’共发送’＋ＩｎｔＴｏＳｔｒ　（ｈａｎｇ）＋’个数据！　）；　／／ｓｈｏｗｍｅｓｓａｇｅ（’全部发送完毕’１；　／／ｉｆｉ＝Ｍｅｍｏ１．Ｌｉｎｅｓ．Ｃｏｕｎｔ＋ｌ　ｔｈｅｎ　ｉ：＝０：　ｅｎｄ；　２．３　Ｓｐｃｏｍｍ串口通信的关键技术问题　首先，Ｓｐｃｏｍｍ是通过ＲｅａｄｌｎｔｅｒｖａｔＴｉｍｅｏｕｔ属性的设　置，来确定所接收到的数据是否属于同一帧数据，其默认值　是ｌＯＯｍｓ，也就是说，只要任何两个字节到达的时间间隔小　于ｌＯＯｍｓ，都被认为是属于同一帧数据，在与单片机协同工　作时，要特别注意这个问题。　另外，Ｓｐｃｏｍｍ的默认属性设置是支持软件流控制的，　４９－－—－—　

学术探讨袄件设计　用于流控制的字符是１３Ｈ（ＸｏｆｆＣｈａｒ））￣ｌ　１　１Ｈ（ＸｏｎＣｈａｒ），当以　二进制方式发送数据时，必须要禁用Ｓｐｃｏｍｍ对于软件流控　制的支持，否则，在数据帧中出现的１３Ｈ，１１Ｈ会被Ｓｐｃｏｍｍ　作为控制字符而加以忽略。　３．结束语　邮电出版社．２００４　［３１张宏林Ｄｅｌｐｈｉ　７程序设计与开发技术大全【Ｍ］北京：人民邮电　出版社．２００４　［４】刘宗键Ｄｅｌｐｈｉ　７程序设计入门［Ｍ】．天津：天津电子出版社，２０（）３　【５Ｊ刘斌，李文革Ｄｅｌｐｈｉ　７高级教程［Ｍ］北京：清华大学出版社，　２００４　实践证明，利用Ｓｐｃｏｍｍ串行通信控件在Ｄｅｌｐｈｉ７．０中　开发串口通信程序，具有灵活、方便、高效的特点。　【６】彭明明，程文刚Ｄｅｌｐｈｉ实用编程１００例【Ｍ】北京：中国铁道出　版社．２（）０４　［７］杨长春Ｄｅｌｐｈｉ程序设计教程［Ｍ］北京：清华大学出版社，２０（｝５　参考文献：　【ｌ１李军Ｄｅｌｐｈｉ　７项目开发实￣Ｋ［Ｍｌ北京：中国铁道出版社，２００３．　【２　Ｊ赵兰涛苏彦华Ｄｅｌｐｈｉ串口通信技术与工程实践【Ｍ］．北京：人民　［８］康祥顺Ｄｅｌｐｈｉ案例开发集锦【ＭＪ北京：电子Ｘ－，．１ｋ出版社，２（）（）５　【９１刘山，赵辉Ｄｅｌｐｈｉ系统开发实例精粹【Ｍ］北京：人民邮电出版　社．２００５　Ｄｅｓｉｇｎ　ａｎｄ　Ｉｍｐｌｅｍｅｎｔａｔｉｏｎ　ｏｆ　Ｄｅｌｐｈｉ　Ｓｅｒｉａｌ　Ｃｏｍｍｕｎｉｃａｔｉｏｎ　Ｐｒｏｇｒａｍ　Ｆｕ　Ｈｏｎｇｗｅｉ　（Ｘｉａｎｈｅ　Ｆｉｒｅ　Ｓｃｉｅｎｃｅ　ａｎｄ　Ｔｅｃｈｎｏｌｏｇｙ　Ｅｎｇｉｎｅｅｒｉｎｇ　Ｃｏｍｐａｎｙ　Ｌｉｍｉｔｅｄ，Ｈｅｆｅｉ　２３００００，Ａｎｈｕｉ）　【Ａｌ　】Ｔｈｅ　ｐａｐｅｒ　ｅｘｐｌａｉｎｓ　ｔｈｅ　ｄｅｓｉｇｎ　ａｎｄ　ｉｍｐｌｅｍｅｎｔａｔｉｏｎ　ｏｆ　Ｄｅｌｐｈｉ　ｓｅｒｉａｌ　ｃｏｍｍｕｎｉｃａｔｉｏｎ　ｐｒｏｇｒａｍ，ｕｓｅｓ　Ｄｅｌｐｈｉ　ｐｒｏｇｒａｍｍｉｎｇ　ａｎｄ　ｏｂｊｅｃｔ—ｏｒｉｅｎｔｅｄ　ｐｒｏｇｒａｍｍｉｎｇ　ｍｅｔｈｏｄ　ｔｏ　ｓｉｍｕｌａｔｅ　ａ　ｄａｔａ　ｇｅｎｅｒａｔｏｒ，ｉｍｐｌｅｍｅｎｔｓ　ｔｈｅ　ｓｙｓｔｅｍ　ｉｎｔｅｒｆａｃｅ　ｕｓｉｎｇ　ｔｈｅ　Ｄｅｌｐｈｉ　ＶＣＬ，ａｎｄ　ｕｓｅｓ　Ｓｐｃｏｍｍ　ｔｏ　ｓｅｎｄ　ｔｈｅ　ｒｅａｌ－ｔｉｍｅ　ｄａｔａ．Ｂｙ　ｓｅｔｔｉｎｇ　ａｔｔｉｒｂｕｔｅｓ　ａｎｄ　ｂｕｆｆｅｒ　ｏｆ　ｔｈｅ　Ｓｐｃｏｍｍ　ｃｏｎｔｒｏｌ，ｔｈｅ　ｃｏｍｐｕｔｅｒ　ｃａｎ　ｃｏｎｔｒｏｌ　ｔｈｅ　ｓｅｒｉａｌ　ｐｏｒｔ　ｔｏ　ｓｅｎｄ　ｄａｔａ．　【ｌ【Ｉ　哪出】Ｄｅｌｐｈｉ；ｓｅｒｉａｌ　ｐｏｒｔ　ｃｏｍｍｕｎｉｃａｔｉｏｎ；ｃｏｎｔｒｏｌ　（上接第４６页）　ｔｉｔｌｅ（’Ｘ　２／ａ　２一ｙ＾２／ｂ　２＝ｚ’１：　参考文献：　【１】度巍　空间解析几何中二次曲面截痕法的动画演示Ｕ］　电脑　知识与技术，２０１１，（９）６２９７—９３０１　４．结束语　从上面的分析可以看到借助于ＭＡＴＬＡＢ可以容易地实　现空间解析几何二次曲面伸缩法的设计和演示，从而直观　的、立体的和运动的揭示二次曲面的图像特征和方程之问　［２】李锐现代教育技术与空间解析几何教学整合的研究［Ｊｌ　中　国电力教育，２０１０（３４）９１　［３］林海涛，林海如常用软件在空间解析几何教学中的实践Ｕ　Ｊ　的对应关系。这使得空间解析几何的教学增加了趣味性和　生动性，也使空间解析几何课程的学习变得易于理解和巩　固。　广东轻工职业技术学院学报２０１０，（９）３３—３６　【４】苏金明　ＭＡＴＬＡＢ实用指南【Ｍ］　电子工业２００２　［５】同济大学数学系　高等数学ＩＭ］．高等教育出版社２００７．　Ｄｅｓｉｇｎ　ａｎｄ　Ｉｍｐｌｅｍｅｎｔａｔｉｏｎ　ｏｆ　Ｍａｔｌａｂ　ｆｏｒ　Ｑｕａｄｒｉｃ　Ｓｕｒｆａｃｅ　Ｅｘｐａｎｓｉｏｎ　ａｎｄ　Ｃｏｎｔｒａｃｔｉｏｎ　Ｍｅｔｈｏｄ　ｉｎ　Ｓｐａｃｅ　Ａｎａｌｙｔｉｃ　Ｇｅｏｍｅｔｒｙ　ＣｕｉＱｉｕｚｈｅｎ　【ＬｕｏｙａｎｇＬｉｓｔｉｔｕｔｅ　ｏｆＳｃｉｅｎｃｅ　ａｎｄＴｅｃｈｎｏｌｏｇｙ，Ｌｕｏｙａｎｇ４７１０２３，Ｈｅｎａｎ）　【　ｎ晓】　Ｉｎ　ｔｈｉｓ　ｐａｐｅｒ，ｗｅ　ｉｍｐｌｅｍｅｎｔ　ｔｈｅ　ｄｅｓｉｇｎ　ａｎｄ　ｄｅｍｏｎｓｔｒａｔｉｏｎ　ｏｆ　ｑｕａｄｒｉｃ　ｓｕｒｆａｃｅ　ｅｘｐａｎｓｉｏｎ　ａｎｄ　ｃｏｎｔｒａｃｔｉｏｎ　ｍｅｔｈｏｄ　ｉｎ　ｓｐａｃｅ　ａｎａｌｙｔｉｃ　ｇｅｏｍｅｔｒｙ　ｕｓｉｎｇ　ｍａｔｌａｂ，ｔｒｙｉｎｇ　ｔｏ　ｒｅｖｅａｌ　ｔｈｅ　ｃｏｒｒｅｓｐｏｎｄｉｎｇ　ｒｅｌａｔｉｏｎ　ａｂｏｕｔ　ｉｍａｇｅ　ｃｈａｒａｃｔｅｒｉｓｔｉｃｓ　ａｎｄ　ｅｑｕａｔｉｏｎ　ｆｒｏｍ　ｔｈｅ　ｉｎｔｕｉｔｉｖｅ　ａｎｄ　ｓｔｅｒｅｏ　ａｎｄ　ｍｏｔｉｏｎ　ｖｉｅｗ．　【　】ｓｐａｃｅ　ａｎａｌｔｙｉｃ　ｇｅｏｍｅｔｙ；ｑｕａｄｒｒｉｃ　ｓｕｒｆａｃｅ　Ｍａｔｌａｂ