delphi中serialport如何设置

1.NET 2.0对串口的支持

NET 2.0提供了对串口通信功能的支持，有关类可以在命名空间System.IO.Ports下找到，这其中最为重要的是SerialPort类。

通过创建一个新的SerialPort 对象，我们就可以在.NET程序中控制串口通讯的全过程。

2.使用 SerialPort 设置串口属性

进行串口通讯时，需要设置一些相关参数，可以通过设置SerialPort 类的属性来进行。串口属性主要包括

.PortName 串口名称，COM1, COM2等。

.BaudRate 波特率，也就是串口通讯的速度，进行串口通讯的双方其波特率需要相同，如果用PC连接其他非PC系统，一般地，波特率由非PC系统决定。

.Parity 奇偶校验。可以选取枚举Parity中的值

.DataBits 数据位

.StopBits 停止位，可以选取枚举StopBits中的值

.Handshake 握手方式，也就是数据流控制方式，可以选取枚举Handshake中的值

3.打开与关闭串口

在创建一个SerialPort 对象，设置串口属性后，可以通过 Open()方法打开串口。数据读写完成后，可以通过Close()方法关闭串口。

根据经验，对于有些系统，在打开串口后，还需要将RtsEnable设置为True，这样才能读写数据，否则不能正常读写数据。

4.读写行数据

双方通讯时，一般都需要定义通讯协议，即使最简单的通过串口发送文本聊天的程序。

通常是在当一方按下回车时，将其所数据的文本连同换行符发给另一方。在这个通讯事例中，协议桢是通过换行符界定的，每一桢数据都被换行符隔开，这样就很容易识别出通讯双发发送的信息。

在 以上的例子中，可以用WriteLine()来发送数据，用ReadLine()来读取数据。WriteLine发送完数据后，会将换行符作为数据也发送 给对方。ReadLine()读取数据时，直至遇到一个换行符，然后返回一个字符串代表一行信息。换行符可以通过SerialPort 的属性 NewLine来设置。一般地，Windows将CrLn作为换行符，而在Linux下，换行符则只用一个Ln表示。

ReadLine() 方法是阻塞的，直至遇到一个换行符后返回。在读取数据时，如果一直没有遇到换行符，那么在等待ReadTimeout时间后，抛出一个 TimeoutException。默认情况下，ReadTimeout为InfiniteTimeout。这样，ReadLine一直处于阻塞状态，直 至有新一行数据到达。

WriteLine()方法也是阻塞的，如果另一方不能及时接收数据，就会引起TimeoutException异常。

由于ReadLine()和WriteLine()方法都是阻塞式的，在程序使用SerialPort 进行串口通讯时，一般应该把读写 *** 作交由其他线程处理，避免因为阻塞而导致程序不响应

用Delphi开发串口通信软件一般有两种方法：一是利用Windows的通信API函数，另一种是采用Microsoft的MSComm控件。利用 API编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，应用面更广泛，更适合于编写较为复杂的低层次通信程序。而利用 MSComm控件则相对较简单，该控件具有丰富的与串口通信密切相关的属性及事件，提供了对串口的各种 *** 作。

一、MSComm控件的主要属性及事件

（1）CommPort：设置或返回串行端口号，缺省为1。

（2）Setting：设置或返回串口通信参数，格式为“波特率，奇偶校验位，数据位，停止位”。例如：MSComm1.Setting:='9600,n,8,1'

（3）PortOpen：打开或关闭串行端口，格式为：MSComm1.PortOpen:={True|False}

（4）InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。

（5）InBufferCount：返回接收缓冲区内等待读取的字节数，可通过设置该属性为0来清空接收缓冲区。

（6）RThreshold：该属性为一阀值，它确定当接收缓冲区内的字节个数达到或超过该值后就产生代码为ComEvReceive的OnComm事件。

（7）SThreshold：该属性为一阀值，它确定当发送缓冲区内的字节个数少于该值后就产生代码为ComEvSend的OnComm事件。

（8）InputLen：设置或返回接收缓冲区内用Input读入的字节数，设置该属性为0表示Input读取整个缓冲区的内容。

（9）Input：从接收缓冲区读取一串字符。

（10）OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。

（11）OutBufferCount：返回发送缓冲区内等待发送的字节数，可通过设置该属性为0来清空缓冲区。

（12）OutPut：向发送缓冲区传送一串字符。

如果在通信过程中发生错误或事件，就会引发OnComm事件，并由CommEvent属性代码反映错误类型，在通信程序的设计中可根据该属性值来执行不同的 *** 作。CommEvent属性值及其含义如下：

（1）ComEvSend：值为1，发送缓冲区的内容少于SThreshold指定的值。

（2）ComEvReceive：值为2，接收缓冲区内字符数达到RThreshold指定的值。

（3）ComEvFrame：值为1004，硬件检测到帧错误。

（4）ComEvRxOver：值为1008，接收缓冲区溢出。

（5）ComEvTxFull：值为1010，发送缓冲区溢出。

（6）ComEvRxParity：值为1009，奇偶校验错误。

（7）ComEvEOF：值为7，接收数据中出现文件尾（ASCII码为26）字符。

二、程序样例

在Delphi3.0中无法使用MSComm控件，笔者使用的是Delphi5.0。MSComm控件是VB中的OCX控件，首先需要将其添加到 Delphi中，选择菜单“Component”→“Import ActiveX Control”，在“Import ActiveX”页内选择“Microsoft Comm Control”，点击“Install”安装，安装后在“ActiveX”组件板中出现MSComm图标，即可被使用。有一点要注意，在Object Inspector中MSComm控件的Input和Output属性是不可见的，但它们仍然存在，这两个属性的类型是OleVariant（Ole万能变量）。

下面是一接收程序的样例（主要部分），大家可根据实际需要进行完善。

在Form中放置一Memo控件用于显示接收的数据，Combobox1选择通信参数（Setting属性值），Combobox2选择串口（CommPort属性值），按Button1开始接收数据，按Button2停止接收。

procedure TForm1.FormCreate(Sender: TObject)

begin

Mscomm1.InBufferCount :=0 // 清空接收缓冲区

Mscomm1.InputLen :=0 // Input读取整个缓冲区内容

Mscomm1.RThreshold :=1 // 每次接收到字符即产生OnComm事件

end

procedure TForm1.Button1Click(Sender: TObject)

begin

Mscomm1.Settings :=ComboBox1.Text

if ComboBox2.Text ='com1' then // 假设只考虑com1和com2两种情况

Mscomm1.CommPort :=1

else

Mscomm1.CommPort :=2

Mscomm1.PortOpen :=true // 打开串口

Mscomm1.DTREnable :=true // 数据终端准备好

Mscomm1.RTSEnable :=true // 请求发送

end

procedure TForm1.Button2Click(Sender: TObject)

begin

Mscomm1.PortOpen :=false // 关闭串口

Mscomm1.DTREnable :=false

Mscomm1.RTSEnable :=false

end

procedure TForm1.MSComm1Comm(Sender: TObject)

var

recstr:Olevariant

begin

if Mscomm1.CommEvent = 2 then

begin

recstr := Mscomm1.Input

Memo1.text := Memo1.Text ＋ recstr

end

end

---