在WINCC中使用WinSock控件进行TCP - IP通讯的例程

在WINCC中使用WinSock控件进行TCP/IP通讯的例程

目录

一、WinSock控件介绍（以VB语言表述）...................................................................... 1

1、WinSock控件的主要属性 ..................................................................................... 1

2、WinSock控件的主要方法 ..................................................................................... 2 3、WinSock控件的主要事件 ..................................................................................... 3 二、WinSock控件在WINCC中的使用 ............................................................................. 3

1、WinSock控件注册................................................................................................ 3 2、在WinCC中添加WinSock控件 ........................................................................... 4 三、服务器端程序介绍..................................................................................................... 4 四、WinCC画面模板与结构变量的配合使用 .................................................................... 6

1、结构变量定义 ...................................................................................................... 6 2、画面模板组态 ...................................................................................................... 7 3、调用画面模板及修改变量前缀 .............................................................................. 7 4、将画面模板中的对象连接到变量 .......................................................................... 8 五、建立TCP/IP连接 ...................................................................................................... 8 六、接收数据包的处理................................................................................................... 10 附：在VBS中进行数据处理的局限性及变通解决方法.................................................... 12

摘要：

关键词：VB、VBS、WINCC、WINSOCK、DLL、UNICODE、ANSI、ASCII、画面模板、结构变量、数据转换。

该文档的软件环境：

Microsoft Windows XP Professional 版本2002 SP3 SIMATIC WinCC V6.2 SP2 ASIA ?SIMATIC STEP7 V5.4+SP5+HF3 Chinese TCP&UDP测试工具 V1.02 目的：

使用WINCC用户程序作为客户端程序，与服务器通讯，通讯协议为标准TCP/IP协议，取得服务器发送过来的数据包，按数据包格式文本规定，解析数据包数据，并将相关数据显示在用户程序画面中。

一、WinSock控件介绍（以VB语言表述） 1、WinSock控件的主要属性

1) Protocol属性

通过Protocol属性可以设置WinSock控件连接远程计算机使用的协议。可选的协议是TCP和UDP对应的VB的常量分别是sckTCPProtocol和sckUDPProtocol，Winsock控件默认协议是TCP。

注意：虽然可以在运行时设置协议，但必须在连接未建立或断开连接后。

2) SocketHandle属性

SocketHandle返回当前socket连接的句柄，这是只读属性。 3) RemoteHostIP属性

RemoteHostIP属性返回远程计算机的IP地址。在客户端，当使用了控件的Connect方法后，远程计算机的IP地址就赋给了RemoteHostIP属性，而在服务器端，当ConnectRequest事件后，远程计算机（客户端）的IP地址就赋给了这个属性。如果使用的是UDP协议那么当DataArrival事件后，发送UDP报文的计算机的IP才赋给了这个属性。

4) ByteReceived属性

1

返回当前接收缓冲区中的字节数 5) State属性

返回WinSock控件当前的状态

常数 sckClosed SckOpen SckListening sckConnectionPending sckResolvingHost sckHostResolved sckConnecting sckConnected sckClosing sckError

2、WinSock控件的主要方法

1) Bind方法

用Bind方法可以把一个端口号固定为本控件使用，使得别的应用程序不能再使用这个端口。

2) Listen方法

Listen方法只在使用TCP协议时有用。它将应用程序置于监听检测状态。 3) Connect方法

当本地计算机希望和远程计算机建立连接时，就可以调用Connect方法。 Connect方法调用的规范为： Connect RemoteHost,RemotePort 4) Accept方法

当服务器接收到客户端的连接请求后，服务器有权决定是否接受客户端的请求。 5) SendData方法

当连接建立后，要发送数据就可以调用SendData方法，该方法只有一个参数，就是

值 0 1 2 3 4 5 6 7 8 9 缺省值，关闭 打开 侦听 连接挂起 识别主机 已识别主机 正在连接 已连接 同级人员正在关闭连接 错误 描述 2

要发送的数据。

6) GetData方法

当本地计算机接收到远程计算机的数据时，数据存放在缓冲区中，要从缓冲区中取出数据，可以使用GetData方法。GetData方法调用规范如下：

GetData data,[type,][maxLen]

它从缓冲区中取得最长为maxLen的数据，并以type类型存放在data中，GetData取得数据后，就把相应的缓冲区清空。

7) PeekData方法

和GetData方法类似，但PeekData在取得数据后并不把缓冲区清空。

3、WinSock控件的主要事件

1) ConnectRequest事件

当本地计算机接收到远程计算机发送的连接请求时，控件的ConnectRequest事件将会被触发。

2) SendProgress事件

当一端的计算机正在向另一端的计算机发送数据时，SendProgress事件将被触发。SendProgress事件记录了当前状态下已发送的字节数和剩余字节数。

3) SendComplete事件

当所有数据发送完成时，被触发。 4) DataArrival事件

当建立连接后，接受到了新数据就会触发这个事件。

注意：如果在接受到新数据前，缓冲区中非空，就不会触发这个事件。 5) Error事件

当在工作中发生任何错误都会触发这个事件。

二、WinSock控件在WINCC中的使用 1、WinSock控件注册

在WinCC中使用WinSock控件前，需要先进行注册。 注册方法如下：

使用记事本新建一个后缀名为reg的文件，编辑文件，加入以下文本：

3

[HKEY_CLASSES_ROOT\\Licenses\\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d] @=\保存文件退出。

先将mswinsck.ocx拷贝到system32下 再将注册表文件添加到注册表

然后\\\运行\\\，输入\\\，确定。

2、在WinCC中添加WinSock控件

在WinCC图形编辑器中打开需要显示服务器数据的画面，选择“对象选项板”的“控件”选项卡，在选项卡中选择“添加/删除”，在“选择OCX控件”对话框中选择“Microsoft WinSock Control, version 6.0”进行注册。

在对象选项板中的WinSock控件拖入画面中。

三、服务器端程序介绍

这里所要通讯的服务器端程序是运行于南车资阳机车有限公司生产的V280/285系列船用柴油机机旁控制屏监控系统程序。

以下是协议文本： 通讯方式：TCP/IP 侦听端口：9105

机旁柜IP地址定义：由用户根据具体网络配置决定 PAC数据采集周期：1秒 上位机记取数据周期：1秒 数据包格式定义如下：

上位机发送命令到PAC的数据包定义：本数据包由上位机发送到PAC，PAC根据上位机发送的的命令执行，同时返回最新的采集数据到上位机。

数据长度：10字节。 数据类型：byte。

数据包详细定义：命令代码1字节＋备用代码1字节＋设定转速4字节（single）＋备用1字节

其中命令代码意义：1＝“读数据”；18＝“转速升”；19＝“转速降”。

4

Obj_SockClient.SendData cnvt.CvHexStr2vOctetStr(\ End If ?写入当前连接状态字 Set Tag_intTXStatus = HMIRuntime.Tags(\ Tag_intTXStatus.Value = Obj_SockClient.State Tag_intTXStatus.Write , 1 End Function

六、接收数据包的处理

当建立连接后，接受到了新数据就会触发这个DataArrival事件。这里只对前64个模拟量数据、16个开关量输入数据、10条汉字报警信息进行解析，并将解析后的数据赋值给相应的变量，汉字报警信息直接在窗口中的S7FlatEditBox控件中显示。

DataArrival事件的VBS代码如下：

Sub DataArrival(Byval Item, Byval bytesTotal) On Error Resume Next Dim Obj_SockClient Dim cnvt Dim obj_OutText Dim strReceive Dim strFromRec,strFromRec1 Dim i,j Dim Tag_f,Tag_b Dim strForBool,iForBoolCheck Set Obj_SockClient = ScreenItems(\Set cnvt = CreateObject(\Set obj_OutText = ScreenItems(\ ?接收数据包字节数应为650字节，否则不处理 If bytesTotal = 650 Then ?从接收缓冲区取得数据，并清空缓冲区 Item.GetData strReceive strFromRec = \'提取前333个字节所包含的信息，用于模拟量和开关量解析 For i = 0 To 333 'UBound(strReceive) ?将接收到的BYTE()型数据转换为String型数据

strFromRec = strFromRec & Right(\10

Next '解析出80个模拟量并赋值给相应的变量 For i = 1 To 8 For j = 1 To 8 Set Tag_f = HMIRuntime.Tags(\?此处使用了DLL中的数据转换函数，CvHexStr2vReal2的功能是将十六进制字符串表示的单精度浮点数转换成实际的浮点数值。该函数后面还要讲到。 Tag_f.Value = cnvt.CvHexStr2vReal2(Mid(strFromRec,((i-1)*8+j-1)*8+1,8)) Tag_f.Write,1 Next Next '解析开关量输入字节（2字节），并赋值给相应的变量 iForBoolCheck = 0 strForBool = Mid(strFromRec,643,2) & Mid(strFromRec,641,2) iForBoolCheck = Eval(\For i = 1 To 15 Set Tag_b = HMIRuntime.Tags(\ If (iForBoolCheck And 2^(i-1) ) = 0 Then Tag_b.Value = False Else Tag_b.Value = True End If Tag_b.Write ,1 Next End If '解析汉字报警信息10条（每条信息包含15个汉字） For i = 0 To 9 For j =0 To 14 ?提取汉字信息，并转换成Unicode字符串。 strFromRec1 = strFromRec1 & MidB(strReceive,i*30+j*2+335,2) Next strFromRec1 = strFromRec1 & vbCrLf Next obj_OutText.Text = strFromRec1 End Sub 11

附：在VBS中进行数据处理的局限性及变通解决方法

在VBS中对数据进行转换解析处理，是一个比较普遍的应用问题，并不仅限于在WINCC中的应用，而VBS在进行数据处理时的局限，也使得单靠VBS自身无法圆满的处理，需要借助其它手段，而VBS结合外部动态链接库是一个合理的解决方案。

VBS（Microsoft Visual Basic Scripting Edition）是一种脚本语言。可以看作是VB语言的简化版，可使用操作系统和其它程序所提供的程序库，由操作系统解释运行。WINCC V6.0首次集成了VBS，可以用来使运行环境动态化，也可以创建动作（action）和过程（procedure）来动态化图形对象。

注：脚本语言是使用一种特定的描述性语言，依据一定的格式编写的可执行文件，又称作宏或批处理文件，是为了缩短传统的编写-编译-链接-运行（edit-compile-link-run）过程而创建的计算机编程语言。一个脚本通常是解释运行而非编译，脚本程序在执行时，是由系统的一个解释器，将其一条条的翻译成机器可识别的指令，并按程序顺序执行。 VBS只有一种数据类型，即Variant（可变的）。VBS在处理数据时，按上下文对其处理的方式，把数据当作数字或字符串进行处理，也就是VBS觉得它像什么，就把它当作什么来进行处理。Variant包含的数值信息类型称为子类型，大多数情况下，可将所需的数据放进Variant中，而Variant也会按照最适用于其包含的数据的方式进行操作。

VBS这种处理数据的方法，有其优点和局限性。优点在于简单方便，局限性在于降低了可控性，特别是在处理低层数据代码时，难度较高，而有些要求没有办法达到。

比如在WINCC中使用MSCOMM控件进行数据收发时，MSCOMM控件处理的是BYTE（）类型数据，在VBS中会将它作为VARIANT（）类型数据进行处理，而这种数据类型无法通过串口发送出去，而在VBS中没有相应的函数将其转换成BYTE（）类型数据。又比如在VBS中要将一个如“4199999A”的字符串转换成单精度浮点数据，会非常困难，则类似的转换在C或VB这类高级语言中却很容易。

在进行上述数据处理任务时，结合动态链接库是比较合理的方法。下面详细讲述一般需要用到的数据转换如何通过VB编写DLL来实现。

在切换到VB中进行编程之前，先了解熟悉VBS中的有关数据类型的处理。 1、在VBS中如何定义变量

在VBS中定义变量，只能使用一种定义方式，即Dim语句，变量类型只有一种，即VARIANT，而不是象在VB中可以显示定义变量为不同的数据类型，如String，Interger，Long等。

测试下列一段代码：

12

Dim A , B , C A = Array(10,20,30) B = Array(\ C = Array(CByte(A(0)),CByte(A(1)),CByte(A(2))) Msgbox typename(A) ?显示数据类型为Variant() Msgbox typename(A(0)) ?显示数据类型为Interger Msgbox typename(B) Msgbox typename(B(0)) Msgbox typename(C) Msgbox typename(C(0)) ?显示数据类型为Variant () ?显示数据类型为String ?显示数据类型为Variant () ?显示数据类型为Byte 测试结果显示，对于单个变量，虽然不能象在VB中显示定义其数据类型，但VBS可以大致判断其数据类型，也可以将数据通过强制转换成所需要的数据类型。但不管如何定义或转换，仅通过VBS中的定义方式和转换函数，无法改变数组的类型，最终结果只有一种数组类型，即Varaint()。

2、VBS中的字符编码

在VBS中，字符串以Unicode编码表示，编码的实现方案是UTF-16 LE。当VBS调用低层API函数（VBS不能直接调用，而是通过控件或DLL间接调用）时，大都会由系统自动将Unicode字符串转换成ANSI编码字符串。如通过Winsock控件发送字符串，在接收端接收到的字符串实际上是ANSI字符串。

在简体中文WinXP操作系统下，默认的ANSI编码是GBK字符集。

3、VBS的字符转换函数

Chr函数返回与指定的 ANSI 字符代码相对应的字符。

调用格式：Chr(charcode) charcode 参数是可以标识字符的数字。

说明：从0到31的数字表示标准的不可打印的 ASCII 代码。例如，Chr(10) 返回换行符。

注意：ChrB 函数与包含在字符串中的字节数据一起使用。ChrB 不是返回一个或两个字节的字符，而总是返回单个字节的字符。ChrW 是为使用 Unicode 字符的 32 位平台提供的。它的参数是一个 Unicode (宽字符)的字符代码，因此可以避免将 ANSI 转化为 Unicode 字符。 Asc 函数返回与字符串的第一个字母对应的 ANSI 字符代码。

Asc(string) string 参数是任意有效的字符串表达式。如果 string 参数未包含字符，

13

则将发生运行时错误。

注意：AscB 函数和包含字节数据的字符串一起使用。 AscB 不是返回第一个字符的字符代码，而是返回首字节。 AscW 是为使用 Unicode 字符的 32 位平台提供的。 它返回 Unicode （宽型）字符代码，因此可以避免从 ANSI 到 Unicode 的代码转换。 总结如下：

chrb/ascb用来做ASCII转换，但并不仅包括前128个字符，而是全单字节字符，所以应该是用来做单字节字符的转换。

chr/asc用来做ANSI转换，在当前中文简体WINDOWS系统中，即对应于GBK字符集的转换。在WinXP中文版下的VB6.0中，Chr能够正确转换遇0~128和255的单字节字符码和GBK字符集中的双字节字符码，超出此范围的字符码或解释成NUL字符，或是其它未料结果。

chrw/ascw用来做Unicode转换。

4、在VBS中调用MSCOMM和WINSOCK的注意事项

在VBS中可以调用MSCOMM和WINSOCK通讯控件，以完成串口通讯和以太网通讯。通讯控件可以以字符串或字节数组方式进行数据发送或接收，但由于字节数组在VBS中不能显示定义，一个自然而然的想法是通过字符串方式进行数据发送或接收。

如果发送的数据范围在0x00~0x7F之间，可以通过Chr函数将十六进制数据转换成相应的ASCII码字符，并且组合成字符串数据流，由于在此数据范围内的字符码可各系统平台和软件环境中均可以得到唯一正确的解析，所以这个方法是可行的。

但如果发生冲突的数据超出此范围，再想通过Chr函数（或者ChrB/ChrW函数）将十六进制数据转换成字符，转换结果将不是我们所预期的结果，这与软件平台和操作系统平台有关，其中一些字符码被解释成空字符，或者是”?”，还有一些被解释成不同字符集下对应的不同的字符。所以在VBS中调用通讯控件进行数据发送或接收，使用字符串方式不是合理的方案。

在了解了VBS中进行数据处理的局限后，自然而然我们想到需要用其它的方法来解决这些问题，可行的方法是通过DLL外部调用。因为VB简单实用，在实际应用中，一些在VBS中不能处理或难以处理的任务，可以在VB中进行简单的处理，用VB来创建编译DLL容易掌握，将这些功能编译进DLL中，可以由VBS调用处理。

14

1、Variant数组转换成Byte数组

如前面提到在VBS中进行定义或转换，只能得到Variant类型数组，而在VB中将Variant类型数组转换成Byte型数组非常简单，如下面这个函数就可以实现这个功能：

Public Function CvVariantArray2vByteArray(inVarArray As Variant) As Variant Dim i As Integer, byteArray() As Byte ReDim byteArray(UBound(inVarArray)) For i = 0 To UBound(inVarArray) byteArray(i) = inVarArray(i) Next i CvVariantArray2vByteArray = byteArray End Function 在上面这个函数中，仅仅做了两件事，一是定义一个Byte数组，二是将Variant数组元素拷贝到Byte数组中。

2、十六进制数据格式字符串转换成相应的Byte数组

十六进制数据格式字符串是指字符串中的字符（两个一组）以十六进制数据格式表示，范围在“00”至“FF”之间，如下面这个字符串：

“EB9000FF”

将这样一个字符串转换成相应的Byte数组，其转换结果是： BYTE(3) = (0xEB,0x90,0x00,0xFF) 相应的VB函数代码如下所示：

Public Function CvHexStr2vOctetStr(vInstr As Variant) As Variant ' Use this to convert a Variant containing an ASCII encoded Hex string to a Variant Array of bytes ' this allows vbs to create Variants for ADSTYPE_OCTETSTRING from strings of ASCII characters 0-9 A-F Dim vOutArray() As Byte, i As Long Dim v As Variant ReDim vOutArray(0 To Len(vInstr) \\ 2 - 1) For i = 1 To Len(vInstr) \\ 2 vOutArray(i - 1) = Val(\Mid(vInstr, 2 * i, 1))

15

Next i CvHexStr2vOctetStr = vOutArray End Function 该函数的工作原理如下（以“EB9000FF”为例）：

字符串vInstr = “EB9000FF” 是一个Unicode字符串，在内存中的存放的十六进制字节序为“45-00-42-00-39-00-30-00-30-00-30-00-46-00-46-00”，字符串长是8（Len函数）。

新建一个Byte数组，数组元素个数为4。

Mid函数是从指定字符串中返回指定数目的字符（注意不是字节），该函数以字符为基本操作元素，不是字节，由于在VB中，字符以Unicode格式（UCS-2/UTF-16 LE，双字节）表示，For循环开始时（i = 0），Mid(vInstr, 2 * i - 1, 1)首先取出第一个字符，即“E”（双字节十六进制“0045”，小端序），这个字符是十六制格式的，所以在前面加上“&H”前缀表示十六进制书写格式，将这个十六进制格式字符经Val函数转换成对应的数字，即14，由于这个字符是字节中的高4位，所以需要*16，等于224。

类似，取出同一字节中的低4位“B”并转换成相应的数字11，并与高4位数字相加，最终结果是235，在内存中存放的十六进制字节为“EB”。

循环结束后，得到字节数组（0xEB,0x90,0x00,0xFF）。

3、四字节十六进制数据格式字符串转换成单精度浮点数据

在IEEE 754标准中定义了单精度浮点数采用32位二进制数据（4字节）表示，二进制数据按位分割成符号位、指数域和尾数域，将浮点数转换成实数，需要按公式进行计算。如果在VBS中处理这样的转换，需要进行移位、判断、计算等多步处理，比较繁琐，运行效率也不见得有多高，而在VB中进行这样的转换处理是很方便的。

比如在VBS中使用通讯控件接收数据，在接收到的数据包中有四个字节的数据（9A,99, E5,41），这四个字节的数据表示一个IEEE单精度浮点数，在字节流中以小端序（LE）传输（41是高有效字节MSByte），以DWORD表示即为0x41E5999A，转换成单精度浮点数即为28.7。

这样的字节流在通讯控件接收到以后，存放在Byte数组中，在内存中存储的字节为9A-99-E5-41，其实这正是IEEE单精度浮点数在内存中的存放格式，如果能将该内存区（4字节）拷贝给一个float型变量，就可以很方便的完成转换工作。但在VBS中没有直接对内存区进行操作的命令或函数，所以这个转换工作需要放在DLL中进行。

16

这个四字节的Byte数组，可以直接通过VB函数转换成float。出于学习的目的，先将Byte数组转换成字符串，再将字符串转换成float。

将Byte数组转换成字符串的工作放在VBS中进行，代码如下： ?将接收到的BYTE()型数据转换为String型数据 For i = 0 To 3 strFromRec = strFromRec & Right(\Next 上面代码中strReceive变量存放的即为接收到的Byte数组数据，在VBS中可以使用Mid（或MidB）函数直接操作Byte数组（一般用来操作字符串String），其中MidB函数中的参数以字节为操作对象，MidB函数返回一个ASCII字符（数据类型是字符串，但在字存中还是一个字节数据，该字节数据为ASCII字符对应的ASCII字符码，范围“00”~“FF”之间）。

上面的代码是依次提取字节流中的字节，然后通过AscB函数将提取的ASCII字符转换成对应的ASCII字符码，再用Hex函数将字符码转换成十六进制数据格式表示的字符串。其中Right函数的使用是为了保持0~F字符码转换后的双字符格式。

将字符串转换成float的VB函数代码如下：

Private Declare Sub CopyMemory Lib \As Any, Source As Any, ByVal Length As Long) ?------------------------------------------------------------------------------ Public Function CvHexStr2vReal2(vInstr As Variant) As Variant Dim l As Long Dim f As Single Dim str As String Dim i As Integer str = \For i = 4 To 1 Step -1 str = str & Mid(vInstr, i * 2 - 1, 2) Next i l = Val(\CopyMemory f, l, 4 CvHexStr2vReal2 = f End Function 上面的程序代码中，首先对输入的字符串进行了高低位互换，这是可以理解的，因为

17

对于字符串或字节数组，在内存中的存放是按书写顺序由高到低存放的，在使用Val函数将字符串表达式传换成对应的整型数据前，字符串中的字节顺序排列是9A99E541，直接使用Val函数转换成整型数据是0x9A99E541，由于VB中整型数据是小端序存储方式，则在内存中的存放顺序是，由低地址到高地址是41－E5－99－9A，使用API函数CopyMemory进行内存拷贝是按字节顺序依次拷贝的，拷贝到浮点数变量内存中也是由低地址到高地址41－E5－99－9A排列，而VB对浮点型数据内存的解析同样采用小端序方式解析出来，最终得出的不是正确的结果，所以必须进行高低位字节的转换处理。

函数代码的工作过程是这样的：首先将输入的字符串进行高低字节互换，然后将互换后的字符串用Val函数按十六进制数据格式转换成整型数据，再用CopyMemory函数将整型数据内存区拷贝到浮点数内存区，最后函数返回的数据就是转换后的浮点数。

在函数转换处理过程中的变量在内存中的存放情况如下所示： 输入字符串：“9A99E541”

输入字符串在内存中存储的十六进制数据及顺序： 39-00-41-00-39-00-39-00-45-00-35-00-34-00-31-00

高低位互换后的字符串在内存中存储的十六进制数据及顺序： 34-00-31-00-45-00-35-00-39-00-39-00-39-00-41-00 转换成整型后在内存中存储的十六进制数据及顺序： 9A-99-E5-41

转换成单精度数据后在内存中存储的十六进制数据及顺序： 9A-99-E5-41 函数返回结果：28.7

18

参考资料：

1、VBS用户手册 2、WinCC中的画面模板

3、在VB6中用CopyMemory拷贝字符串的种种猫腻 4、关于字符编码，你所需要知道的 5、深入浅出浮点数

19

本文来源：https://www.bwwdw.com/article/min3.html