Delphi+SPComm实现串口通信

Delphi与仪表之间的MODBUS通讯

【摘 要】在工控领域，经常会遇到各式各样的现场仪表，这些仪表分散在现场的各个位置，这样的话对管理人员和现场操作人员来说都非常不方便，那如何解决这个问题呢？此时就会用到一种方案，那就是配置上位机，用来集中控制这些仪表，这就是所谓的集散系统。那么如何通过上位机与现场仪表通讯来获取仪表的数据，同时又能对仪表进行远程操作呢？这也就是今天要论述的课题。在进行通信程序编写之前，我们首先得对现场仪表有一定的了解，最起码地是应该知道现场仪表支持什么通讯协议，需要设置哪些参数，然后才能展开下一步的工作。

【关键词】Delphi；ModBus；集散系统；多线程

一、MODBUS通讯协议

MODBUS是由莫迪康(现为施耐德公司的一个品牌)在1979年发明的，是全球第一个真正用于工业现场的总线协议。MODBUS协议是应用于电子控制器上的一种通用语言，通过它，控制器之间或其他设备之间可以通信，它已经成为一通用工业标准。有了它，不同厂商生产的控制设备可以连成工业网络，进行集中监控。它定义了一个控制器能认识使用的消息结构，而不管它们是经过何种网络进行通信的。它描述了一控制器请求访问其它设备的过程，如何回应来自其它设备的请求，以及怎样侦测错误并记录。它制定了消息域格局和内容的公共格式。当在一Modbus网络上通信时,此协议决定了每个控制器须要知道它们的设备地址，识别按地址发来的消息，决定要产生何种行动。如果需要回应，控制器将生成反馈信息并用Modbus协议发出。在其它网络上,包含了Modbus协议的消息转换为在此网络上使用的帧或包结构。这种转换也扩展了根据具体的网络解决节地址、路由路径及错误检测的方法。

二、VSD-6仪表简介

VSD-6仪表是某厂家自己制作的一款仪表，它具有一个标准的MODBUS端口(二线制的RS485接囗)，在一条RS485总线上可接入接出1至16台VSD-6控制仪表，可方便地同各种组态软件(如：组态王、WINCC、昆仑通态)直接连接通讯，也可以按照标准MODBUS(RTU)通讯协议自编程。此处需要注意的是MODBUS通讯协议还分RTU协议和ASCII协议，VSD-6仪表支持的是MODBUS(RTU)通讯协议，若理解错了将导致无法与VSD-6仪表正常连接通讯。关于该仪表的通讯参数主要有：Adr-仪表通讯地址、Com-通讯串口号、Baud-通讯波特率，当要通讯之前首先得设置好通讯串口号和通讯波特率，这个对于每台仪表来讲是一样对待的，而通讯地址就是惟一用来区分仪表的参数，每台仪表应该设置不同的通讯地址，否则将造成程序无法判断是哪台仪表。

Delphi中ComPort通信中的数据处理

1.串口通信的基本原理：

一般计算机与外部设备通讯有两种方式：

并行传送（Parallel ）：一次的传输量为8个位（1字节），通过并行端口，如打印机

串行传送（Serial ）：一次只传输1个位，通过串行端口，如RS-232

位与字节的概念：

二进制中的每一位0和1，被叫做一个位，每8个位构成一个字节

一个字节中最右面的位被称为第0位，最左面的位被称为第7位。

传输过程中的字节类型：一般有两种。

1.文本（字符字母、标点符号等）在计算机中存储时，每个不同的字符都用不同的数值来表示。这些数值的范围通常在0-127或0-255范围。

7位：ASCII码，每个字节留一个备用位

8位：前128个遵循ASCII码规则，其余的128个用来做扩展字符、数字符号、图形字符等编码。

2.二进制数据：

某些可执行指令文件和图形图像文件就是以二进制形式而不是ASCII码形式存储的。

一个数据可用二进制形式存储，可以占多个字节。在通信领域，常常把这种类型的资料叫做二进制数据。

今天要讲的就是有关二进制数据的处理方法。

几个概念：

波特率：每秒所能产生的最大电压状态改变率（一秒钟可以振荡的次数）bps

通信双方必须要取得一样的通信速度。原始信号经过不一样的波特率取样后，所得的结果完全不一样，如取样速度只有原来一半时，信号被跳着取样，数据因此错误。

数据位：有5,6,7,8四种

停止位：在奇偶位（选择有奇偶校验）或数据位（选择无奇偶校验）之后发送或接收的停止位。停止位的长度可在1、1．5或2位 三者中选择）。

奇偶校验位：数据传输之后是可供选择的奇偶校验位发送和接收。奇偶位的状态取决于选择的奇偶校验类型。如果选择奇校验，则该字符数据中为1的位数与校验位相加，结果应为奇数。可选奇，偶或无。

如果要保证通讯畅通。通讯双方以上4项设置必须一致。

一个字节是8位，数据位可以7位，然后一位校验位就8位了。

Delphi中ComPort通信中的数据处理范文

在Delphi中使用ComPort进行通信时，数据处理是一个非常重要的步骤。本文将详细介绍如何在Delphi中进行ComPort通信的数据处理。

首先，我们需要使用Delphi的ComPort组件来建立与外部设备的通信。在使用ComPort组件之前，我们需要在Delphi的工具箱中添加ComPort组件。添加完成后，我们可以在Delphi的窗体上放置一个ComPort组件。

接下来，我们需要在代码中对ComPort进行配置。首先，我们需要设置ComPort的端口号和波特率。例如，我们可以将端口号设置为COM1，波特率设置为9600。可以通过以下代码实现：

```

ComPort1.Port := 'COM1';

ComPort1.BaudRate := br9600;

```

然后，我们需要打开ComPort以建立与外部设备的连接。可以使用以下代码打开ComPort：

```

ComPort1.Open;

```

在建立了与外部设备的连接后，我们就可以开始进行数据的发送和接收了。数据的发送可以通过ComPort的WriteStr方法实现。例如，我们可以发送一个字符串“Hello”到外部设备：

``` ComPort1.WriteStr('Hello');

```

数据的接收可以通过ComPort的OnRxChar事件来处理。在该事件中，我们可以读取接收到的数据并进行相应的处理。例如，我们可以将接收到的数据显示在一个文本框中：

```

procedure Port1RxChar(Sender: TObject; Count: Integer);

var

Data: string;

begin

Data := ComPort1.ReadStr(Count);

Edit1.Text := Data;

end;

```

在上面的代码中，我们使用了ComPort的ReadStr方法来读取接收到的数据，并将其赋值给一个字符串变量Data。然后，我们将Data的值显示在一个名为Edit1的文本框中。

DELPHISPCOMM串口超时参数设置

Delphi 7 Spcomm

插拔串口后，不传数据，必需开关软件后才可正常传输问题的解决办法办法如下：

如果ReadIntervalTimeout设置为相应数值，ReadTotalTimeoutMultiplier设置为零，就可以避免插拔后数据不能正常传输

原因如下：

Spcomm属性含意

如果想读写可靠，要根据不同的速率和应用实际情况设置合适的值。和同步模式和异步模式、不同的通信协议无关。

COMMTIMEOUTS：COMMTIMEOUTS主要用于串口超时参数

设置。COMMTIMEOUTS结构如下：

typedef struct _COMMTIMEOUTS {

DWORD ReadIntervalTimeout;

DWORD ReadTotalTimeoutMultiplier;

DWORD ReadTotalTimeoutConstant;

DWORD WriteTotalTimeoutMultiplier;

DWORD WriteTotalTimeoutConstant;

} COMMTIMEOUTS,*LPCOMMTIMEOUTS;

1 ReadIntervalTimeout：两字符之间最大的延时

注：当读取串口数据时，一旦两个字符传输的时间差超过该时

间，读取函数将返回现有的数据。设置为0表示该参数不起作

用。指定时间最大值（毫秒），充许接收的2个字节间有时间

差。也就是说，刚接收了一个字节后，等了ReadIntervalTimeout 时间后还没有新的字节到达，就认为本次读串口操作结束（后面

的字节等下一次读取操作来处理）。即使你想读8个字节，但读

第2个字节后，过了ReadIntervalTimeout时间后，第3个字节还没

到。实际上就只读了2个字节。

2 ReadTotalTimeoutMultiplier：指定比例因子（毫秒），实际