OPC技术的上位机与PLC之间的通信现代工业控制系统通常以PC机为上位机

OPＣHＹPERLINK”httｐ：//wwｗ．jdzyｊs．cｏm”技术的上位机与PLC之间的ＨYＰERLＩNK"htｔp://www．ｊdzyjs.cｏｍ＂通信现代工业掌握系统通常以PC机为上位机，通过与现场工控设备如ＰLC的HＹPERLINK"ｈｔｔp：//wｗw．ｊdｚyｊｓ。ｃoｍ"数据交换与处理,实现对生产过程的自动掌握。对于小型掌握系统,采纳专门的组态软件成本太高,用ＶＢ设计监控系统则可以降低成本,但首先要解决上位机与ＰLC之间HYPERLINK＂ｈttp：//ｗww.jdzyjs.ｃom"通信问题。以往使用较多的进程间ＨＹＰEＲLINK＂ｈtｔｐ：/／ｗwｗ。ｊdzyjｓ．cｏｍ＂通信方式是DDＥ（动态HYＰERLINＫ"ｈｔｔｐ：//www．jdzyｊｓ。cｏｍ"数据交换）方式，随着OPCＨＹPERLIＮK＂ｈttp：／/www．ｊdzyjs。cｏm"技术的进展和普及,它已成为工业过程掌握的HＹPEＲLINK”hｔｔp：／/wｗw。jdzｙｊｓ。com"通信标准。OPC服务器有两类接口，其中自动化接口主要用于VB、Ｄeｌphi等开发工具。本文利用罗克韦尔公司供应的OＰC接口，用VB编写了客户端应用程序,实现了上位机与AB可编程掌握器之间的ＨＹPＥRＬIＮK"httｐ：//wwｗ．jdzyjs．coｍ”数据交换。2

OＰCHＹPEＲＬINK"htｔp：／／www．jdzyjｓ．cｏm”技术简介ﻫOPC（ＯLEfoｒＰｒoceｓｓCoｎtroｌ—用于过程掌握的对象连接与嵌入）是一套以微软对象连接与嵌入OLＥ、组件对象模型COM、分布式组件对象模型DCOM（DｉｓtｒiｂutedCOＭ)HYPＥＲLIＮK"ｈttp：/／wｗｗ．jｄzｙjｓ。cｏｍ"技术为基础,ＨＹＰＥRＬINK”httｐ://www．jdzyjs．ｃoｍ＂基于Windｏwｓ操作平台，为工业应用程序之间供应高效的信息集成和交互功能的组件对象模型接口标准。OPC实际上是供应了一种机制,通过这种机制，系统能够以服务器/客户端标准方式从服务器猎取ＨYPＥRLIＮK"hｔtp://ｗww。ｊdzyjs。coｍ"数据并将其传递给任何客户应用程序。这样，只要生产商开发一套遵循OPC规范的服务器与ＨYＰERLＩNＫ"hｔtp：／/www.jdzyｊs．ｃom"数据进行HYPEＲLIＮK＂ｈtｔｐ：//www.ｊdzyjｓ。cｏｍ＂通信,其他任何客户应用程序便能通过服务器访问设备。ﻫOPＣ服务器有两类接口:定制接口和自动化接口。定制接口为C++程序服务，自动化接口为ＶＢ这一类可使用自动化对象的程序服务.定制接口是服务商必须供应的，而自动化接口则是可选的,不过OPC基金会供应了一个叫做“自动化包装器”的动态连接库，用于在两者间转换.ﻫOPCＨＹPERＬIＮK”httｐ：//wwｗ．jｄzyjｓ。cｏm”数据存取规范规定的基本对象有三类:服务器（ｓervｅr)、组（grｏup)和ＨYPEＲLIＮK”htｔｐ：/／ｗww.jdzyｊs.ｃｏm＂数据项（itｅm）。服务器对象包含服务器的全部信息，也是组对象的容器，一个服务器对应于一个ＯＰＣserver，即一种设备的驱动程序。组对象除了包含它自身信息外，还负责管理ＨYＰEＲLINＫ＂hｔtp://www.ｊｄzyｊ”数据项。每一个HYＰEＲＬＩＮＫ”httｐ：/／wｗw。jdzyjs.coｍ＂数据项代表到HYPERLＩNＫ”ｈｔｔp：//www。jdzｙjs．cｏm"数据源的一个连接，但它没有供应外部接口,客户端程序无法对HYPEＲLINK＂hｔtp:/／www。jｄzyｊｓ.coｍ”数据项直接进行操作，应用程序必须依靠HYＰERLＩＮＫ＂http:/／www．ｊdｚyjs.ｃom”数据项的容器组对象来对它进行操作。3

ＨYPＥRLINＫ＂http://www．jdｚyjｓ。ｃｏｍ＂通信实现ﻫ3.１

RSLinｘ的配置

RSLinx是AＢ可编程掌握器在Windｏｗs环境下建立工厂所用ＨYPEＲＬINK"htｔｐ:/／ｗww。ｊdｚyjs．com＂通信方案的工具，它不仅供应了多种网络驱动程序,而且供应了最快速的OPC、ＤＤE和ＣustｏmＣ/C＋+接口.本设计中上位机与Logiｘ555０掌握器采纳RS—２３２串口方式连接,在ＲSLiｎｘ中要对DF1网络驱动程序组态,设置串口特性:COM１、波特率1920０ｂps、一个停止位、无奇偶校验、全双工、BCC校验码。此外要使用RSLｉｎｘ的OＰＣ接口作为服务器，还要在RSLｉnx中对OPC进行配置。ﻫ3.２

安装OPC自动化接口服务ﻫ若要用VB开发OPC应用程序，必须安装OPC自动化接口服务,保证计算机系统名目下有OＰCＤＡＡuto。dll。OＰＣ基金会供应了一个叫做“自动化包装器”的动态连接库,从OPＣ基金会的网站(ＨYPERＬINK＂ｈｔtp：／/www.ｏpcfouｎdａtｉｏｎ．org/"ｗww．oｐｃfoundatiｏn．orｇ)可下载。在VB环境中，按“工程"的子菜单“引用…”后，弹出对话框,选择其中的“RＳLｉｎxOPCAuｔomaｔｉｏｎ2.0”项，这样才能使用自动化接口。ﻫ3.3

程序设计ﻫ用VB编写了OＰC客户端应用程序，实现了上位机与Loｇｉｘ5550掌握器之间的ＨＹＰEＲLINＫ”hｔｔp:／/wwｗ。jdｚyjs．ｃｏm＂通信.主要程序代码如下：ﻫ（１）连接OPC服务器

ＤimＷitｈＥvenｔsMyOPＣＳerｖｅrAsOPCＳeｒver

‘定义服务器对象变量ＭyＯPCSｅrver

ＤimWithＥventsMyOPCGrouｐAsOPCGrｏuｐ

‘定义OPＣ组对象变量ＭyOＰCGrｏｕｐ

SetMｙOPCＳｅrver=NewOPＣSerｖer

MｙOPＣSｅrvｅr。Cｏｎneｃt”ＲＳLinｘＯPＣSerｖer"‘连接ＲSＬinｘ的OPC服务器ﻫ(2）添加ＯPＣ组对象ﻫSeｔMyOＰCGrouｐ＝ＭｙOＰＣＳerｖｅr.ＯPCGroｕｐs。Ａdｄ（＂Ｇｒoｕp1＂)

‘添加OＰC组对象MyOPＣGrouｐ．IsSubscriｂed＝Ｔrue

‘设置该组ＨYPEＲＬIＮK"hｔtp：/／ｗww．jdzyｊｓ．ｃom”数据为后台刷新

MyＯＰCGrouｐ。IsActive=Ｔｒｕe

ﻫ‘设置该组为激活状态MｙＯPＣGrｏup.ＵpdａｔeＲate=１０00

ﻫ‘设置HYPERLINK”hｔｔｐ：/／wｗw．ｊｄzyｊｓ。com"数据刷新时间为1０00ﻫ（3)添加ＨYＰEＲLIＮK"ｈｔtp://ｗww。jｄzyjs．cｏｍ”数据项ﻫＤimaｂItｅｍIＤs（)ＡsString

ﻫ‘项标识符ﻫDｉmabＣlieｎtHａnｄlｅs（）ＡｓLoｎg

ﻫ‘客户端句柄ﻫDimａｂServerHandles（）AsLｏｎｇﻫ‘服务器端句柄

DimaｂErｒorｓ（）AsＬong

ﻫDｉmiAsLｏnｇﻫIｔｅmCounｔ=5

DｉmｏOPＣＩｔｅmAsRＳLinxＯPCＡｕｔｏｍatｉon.OPCＩｔｅmﻫFori=１To5ﻫａbＩｔemIDs（i）＝”［”＆ｔxtTopｉｃ＆"］"＆txtＩtｅｍ(i）

‘将Toｐｉｃ名和标签名赋给项标识符ﻫabＣlｉｅｎtHandles（i)=ｉ

ﻫ‘给客户端句柄赋值

Ｎｅxｔｉ

MｙＯPCＧｒouｐ。OPＣＩtｅｍs。AｄdItｅmｓItｅmCouｎt，abItemＩＤs，ａbClｉeｎtＨanｄｌｅs，abSeｒveｒHandｌｅs,abErrｏrs

‘添加HＹＰERLINＫ＂htｔp://wwｗ。jdｚyｊｓ.cｏm＂数据项操作

(4）同步HYPＥＲLIＮK＂http：//ｗww.jdzyjs.ｃom＂数据读写

ＯPCＨＹＰERＬＩNK＂ｈttｐ:／／wｗw．jｄzｙｊs.cｏｍ”数据存取有同步方式和异步方式两种。异步读写HYPEＲLＩNK＂http://wｗｗ．jｄzyjs.cｏm"数据简洁，需要与大事结合使用，与同步相比速度慢但精准性高.同步读写HYＰＥＲLINK”ｈttp：//wwｗ.jdzｙjｓ.coｍ”数据简洁，直接使用OＰCIｔｅｍ的方法即可。ﻫDｉmＯneＡｓOPCItｅmﻫDｉmＩndexAsLoｎｇ

ﻫ‘Indeｘ为标签挨次号ﻫDimOneReadＡsＳtｒiｎg

DimＸｉeＡsSｔring

ﻫＳetOne=MyOPCGｒoup．ＯPCItｅmｓ(Iｎdex）ﻫOｎe。ReａｄOＰCCacheﻫＯｎeReaｄ＝One.Vａｌue

ﻫ‘读HＹPＥRＬＩNK＂htｔｐ：/／www．jdzyjｓ。com”数据ﻫOｎe.Ｗｒite（Ｘiｅ)

ﻫ‘写HＹPERLＩNK＂http:/／ｗwｗ。jdzｙjｓ.ｃｏm"数据ﻫ若只读取HＹPERLＩNＫ”http：/／ｗww.ｊdzyjｓ．cｏm”数据,可以使用DaｔaChanｇe大事，当掌握器中所要访问的HＹPＥRLIＮK”hｔtp:/／wwｗ．jdｚyjs。ｃom＂数据一旦发生转变时将会触发该大事，并将该ＨYPERLIＮK"hｔtｐ://ｗｗｗ．jdzyjｓ.ｃoｍ"数据自动读到ＴxtValｕe文本框。ﻫPrivａteSubMyOPCGｒｏuｐ＿ＤaｔａChａnge(BｙValTｒａｎsactｉｏｎIＤAsＬong,ＢyVaｌNumItemｓＡｓＬoｎg，ＣｌiｅntHａｎｄlｅs（）AsLonｇ，IteｍValuｅs（）AｓＶaｒｉant，Qｕalitiｅs（)AsLong，ＴｉｍｅStamps()AsDatｅ）ﻫ‘自动刷新HYＰＥRLINK”http：/／wwｗ。ｊｄzｙjｓ．coｍ”数据ﻫDiｍiAｓLｏngﻫFｏri＝１ＴoNｕｍＩｔｅｍsﻫｔｘtVaｌｕe（ClientＨａndleｓ（i）)＝IｔeｍValues（i）

ﻫ‘猎取项的值ﻫtxｔTiｍｅ（ClieｎｔＨａｎdｌｅs（i))=TiｍeStamps（i)

ﻫ‘猎取项的时间戳ﻫtxｔQuaｎtｉtｙ（CｌientＨａndｌｅｓ（i））=GetＱualｉtyＳtring（Ｑualitieｓ（i）)

‘猎取项的品质ﻫNｅxｔi

EndSub

（5)断开OPＣ服务器

MyOＰＣＳerｖer．OPCGrｏups.ＲemovｅAll

‘移除全部OＰＣGroｕp,空出资源ﻫSeｔＭyＯPＣＧｒoup=Nｏｔhing

ﻫMyOＰＣSerｖer。Ｄisconnｅct

ﻫ‘断开连接

4

结束语ﻫ利用本文介绍的方法,在实验室实现了上位机和PＬC之间的ＨYPERLINＫ"ｈｔtｐ:／/wｗｗ．ｊdzｙjs。cｏm＂通信，图１是OPC客户端设置界面。此外我们还设计了城市供水监控系统,鉴于篇幅，监控界面不再一一列出。在上一次发表的ＨYPERＬINK”httｐ：//www．gongｋｏｎｇ．cｏｍ/exhｉｂｉt／lunｗeｎ/ｐａpeｒ＿detaｉｌ．aｓp？id＝1５94"\t"_bｌanｋ”<运用ＶＣ＃编程通过ＯＰＣ方式实现PC机与西门子PLＣ通讯>主要讲的是同步通讯,本文将主要讲解如何编程实现异步通讯,通过讲解你也将会知道同步通讯与异步通讯的区分，以及在什么情况下使用异步通讯。ﻫﻫ1、配置OPC服务器ﻫ对于服务器的配置与同步通讯的配置一样,这里不需再讲解,若有不清楚的，可以参阅之前发布的＜运用VＣ＃编程通过ＯＰＣ方式实现PC机与西门子ＰＬＣ通讯〉

ﻫ２、ＯPC编程ﻫ变量组、项的命名规章与同步通讯的一样,这里不再描叙，下面主要就开发一个异步通讯类ＡsyｎSｅｒｖeｒ来讲解如何编程.

ﻫ〈1>、引用ﻫ在ＶC＃开发环境中添加对ＯpcRcｗ．Dａ库以及ＯpcRcw．Coｍｎ库的引用,该库属于．NET库，不属于COM库,西门子虽然编写了类库,以提供对.NET平台的支持，但这些类库仍然难于编程，里面包含了大量的在托管和非托管区传输数据,因此我们需要在它的基础上再开发一个类库，以简化以后的编程，首先在类的开头使用命名空间：ﻫｕsｉｎｇOpcＲcw。Ｃomｎ;

usｉｎｇＯpcRcｗ．Ｄａ;

usinｇＳｙsｔem。Runtimｅ．InteroｐServices；

usiｎｇSｙｓtem.Coｌleｃｔiｏｎs；ﻫﻫ〈２〉、编程ﻫ异步编程的原理就是在OＰC服务器那边检测当前活动的变量组,一但检测到某一个变量，譬如变量Q0.０从1变成０，就会执行一个回调函数，以实现针对变量发生变化时需要实现的动作，在这里可以采纳委托来实现该功能。ﻫﻫ1、在命名空间的内部、类AsｙｎＳｅrver声明之前添加委托的申明：ﻫ//定义用于返回发生变化的项的值和其对应的客户句柄ﻫpｕbｌｉcdelｅgatｅvｏｉdＤatａChａnge(oｂject［］valueｓ，ｉnt［］itｅmｓＩD)；ﻫ

2、该类继承于西门子供应的库接口ＩOPＣDataCalｌｂaｃｋﻫpuｂlicｃｌassAsyｎSｅrｖer：ＩＯPCDａtaCａllbackﻫ在类的开头部分声明变量:ﻫstruｃtｇｒouｐStruﻫ｛ﻫpｕblicｉｎtｇrｏupＩD；

ｐublicｏbｊｅctｇｒｏｕpOｂj；ﻫ｝ﻫｉnｔernａlｃoｎstintLOCＡLE_ID=0ｘ407；//本地语言

ｐrivａtｅＧuidｉidRequirｅｄInｔerface；ﻫprｉvatｅｓｔｒiｎgserｖerTypｅ=””；ﻫpriｖatｅinthCliｅntGｒoｕｐ=0；／/客户组号ﻫprivａteintｎSｖrGrｏｕpIＤ；//ｓeｒverｇroｕｐhａnｄleｆortheaｄｄｅdｇrouｐﻫpriｖatｅHａshtａblehasｈGroup;//用于把组收集到一起ﻫprｉvａｔeinｔhClientＩｔｅm=0;/／Itｅm号

3、编写构造函数，接收委托参数已确定当数据发生变化时需要执行的方法入口点：ﻫ//创建服务器ﻫ//svrTｙpｅ服务器类型的枚举ﻫ//dａtaＣhanｇe供应用于在数据发生变化时需要执行的函数入口ﻫｐubliｃAsynSeｒveｒ（SerｖｅrTypｅsvrTｙｐe,ＤataChaｎgｅdaｔａChａｎgｅ）ﻫ｛ﻫswitｃｈ(ｓvｒＴype）

{

ｃａsｅＳｅrveｒTypｅ。ＯPC_SimａticHMＩ＿PＴＰＲO:ﻫseｒverType＝"OPC．SimaｔicHMI。PＴＰｒｏ"；ｂｒeaｋ;ﻫｃaseSerｖerＴyｐe。OPC_SｉmaｔicＮET：ﻫserｖerＴype="OPC．SｉmatｉｃNＥT＂；breaｋ;

cａｓｅServerＴｙpe．OPC＿ＳｉmaｔicNEＴ＿ＤP:ﻫsｅrvｅｒTｙpe="OPＣ.ＳｉmaticNEＴ．DＰ"；bｒeak；

cａseSerｖerＴype。OPC_SimatiｃＮET_ＰD：ﻫserｖｅrTｙpｅ=”ＯPC．SiｍatiｃＮEＴ．PＤ”;ｂrｅak；ﻫｃａｓeＳerverＴype。OPＣＳervｅr＿WｉnCＣ:

serverType＝”OPCSｅrver。ＷinＣC＂；breａｋ；ﻫﻫ｝ﻫhａsｈGrｏup=newＨａｓｈｔablｅ（11）;ﻫdｔＣhangｅ＝dａｔａＣhａnge;ﻫ}ﻫﻫ４、创建服务器ﻫ／／创建一个OPCSerｖeｒ接口ﻫ／/error返回错误信息ﻫ／/若为true，创建成功，否则创建失败ﻫpuｂlicbooｌOpen(oｕtsｔｒｉnｇerｒoｒ）ﻫ｛

ｅrror="＂；bｏoｌsuｃcｅss＝ｔruｅ;ﻫＴｙｐｅsｖrComｐonenttyp;ﻫ//猎取OPＣＳervｅｒCOM接口

iｉｄＲeｑuirｅｄIｎteｒface=tyｐeoｆ（ＩOPＣＩtemＭｇt）．GＵID；

svｒCｏｍｐonｅｎｔtｙp＝Sｙsteｍ．Ｔypｅ。GeｔＴyｐｅFromProgIＤ（ｓｅrverＴype);ﻫtry

｛ﻫ/／创建接口ﻫpIＯＰCSerｖer=（ＩOPＣServer)Sysｔeｍ．Ａctｉvaｔoｒ。CreateＩnｓtａｎce(svrＣoｍpｏｎenｔｔyｐ);ﻫｅrｒoｒ="”;ﻫ｝ﻫcａtｃｈ（Systｅm。Exｃｅpｔiｏnerｒ)／/捕获失败信息ﻫ｛

ｅrror=＂错误信息:”+erｒ.Ｍeｓｓaｇｅ;sucｃess=fａｌse；

}

ｒetｕrｎsuｃceｓｓ；ﻫ}ﻫﻫ5、编写添加Grｏuｐ的函数

///

／//添加组

／//

///组名

/／//创建时，组是否被激活ﻫ/////组的刷新频率,以ms为单位ﻫ／//返回错误信息

///若为ｔｒuｅ,添加成功，否则添加失败ﻫｐｕbliｃboｏlAddGrouｐ(ｓtｒiｎggｒｏｕpName，intbＡctｉｖe,iｎｔuｐdateRａｔe,ｏuｔsｔriｎgｅrroｒ)ﻫ{

erｒｏｒ＝””；bｏｏｌsuｃcess＝ｔrue;ﻫｉntdwLCＩＤ=0ｘ40７；//本地语言为英语ﻫinｔpＲeｖＵpdateＲａｔe；ﻫｆlｏatdｅadbａｎd＝0；ﻫ／/处理非托管COＭ内存ﻫGCHａndlehDｅadbaｎｄ;ﻫＩｎtPｔrｐＴｉmeBｉas=ＩntPtr．Zero；ﻫhDeａdbａnd＝GＣHａndｌe．Alloｃ(ｄｅａdbaｎd,ＧCHaｎdｌeType.Pｉnｎeｄ）;ﻫtrｙ

{ﻫpIOPCServer。ＡｄdGrouｐ（gｒouｐNaｍe,/／组名ﻫbAｃtive,／/创建时,组是否被激活ﻫupdａteRate,／／组的刷新频率,以ms为单位ﻫｈClieｎtGroｕｐ，//客户号ﻫｐTiｍeBｉａs，//这里不使用ﻫ（InｔPｔr）ｈDeadbaｎd，

dwLCID,/／本地语言ﻫｏutnＳｖrGrｏｕｐID,//移去组时，用到的组IＤ号ﻫoutｐRevUｐｄａｔeRaｔe，//返回组中的变量转变时的最短通知时间间隔ﻫｒefｉidRequireｄInterfaｃｅ，ﻫoutpｏｂｊGｒoｕp1）；//指向要求的接口ﻫｈＣliｅｎtＧroｕp＝hＣｌientＧroup+１；

ｇroｕpStｒｕｇｒｐ＝ｎewgｒｏupStrｕ(）;ﻫｇrｐ。groｕｐID=ｎSｖｒGroupIＤ;grp.gｒoupＯｂｊ=pobｊGroｕｐ１；ﻫｔｈis．haｓhＧｒoup.Add（ｇｒoupName，ｇｒp);／/储存组信息ﻫ//对异步操作设置回调，初始化接口ﻫｐICoｎｎｅctiｏnＰoｉntＣｏntaｉner=（IＣonnｅｃｔiｏnＰｏiｎｔContaｉner）ｐobjＧroup1;ﻫGuｉdiid＝ｔｙｐeof(ＩOＰCDaｔaCallback).GＵID；

ｐIConnｅctiｏｎPoinｔConｔaiｎer。ＦinｄCｏnｎeｃｔｉonPoｉｎt(refiｉd,ｏutｐＩConｎｅctｉonPｏinｔ);

ｐＩCｏｎneｃｔioｎPoint．Advｉsｅ(this，ｏutdwＣookiｅ）;

｝ﻫcaｔｃｈ（Syｓtem．Excｅptioneｒr)//捕获失败信息

{ﻫｅrｒor=”错误信息：”＋err.Mｅｓｓaｇe；succｅｓs＝fａlse；

｝

ｆiｎａlｌｙﻫ｛ﻫif（ｈDeadbaｎd．ＩsAllocatｅd)hDｅadbaｎd.Frｅe();ﻫ｝ﻫrｅturｎｓuccｅss;ﻫ}ﻫ

6、编写激活、或者取消激活组的函数ﻫﻫ在同步编程中对于组的激活或者取消激活没有实质的意义,但在异步通讯编程中却特别重要，这是由于ＯPC服务器只对当前处于活动状态的组中的变量进行监控，同时这也是很有必要的,由于我们可以把不同界面中的变量编程不同的组，即同一界面中的变量规成一个组，而在某一时刻供应应用户的只有一个界面，让该界面中用到的组处于活动状态,这样执行委托调用时只会执行于该界面中有关的变量检测,而如果让全部的组处于活动状态,则当前没有显示给用户的界面用到的变量若发生变化也会触发对委托函数的调用,这根本是没有必要的，同时会大大降低程序的性能，请严格掌握组的激活。ﻫ///

//／激活或者取消激活组ﻫ／//

／／/指定组名ﻫ／／/trｕe为激活,faｌｓe为取消激活

//／若有错误,返回错误信息ﻫ/／/若为true，添加成功，否则添加失败

puｂliｃbｏoｌAcｉｖeGroup（striｎgｇｒouｐNamｅ，ｂooltｏAｃtive，ｏutstrinｇerror）ﻫ｛ﻫｅrrｏｒ=＂"；boolsuccess=truｅ；

//通过名称猎取组ﻫoｂjeｃｔgｒｐ＝（(grouｐＳtru)hashGrｏｕp［gｒｏｕpＮａmｅ］)。groupObj;ﻫIOPCＧｒｏupＳｔateＭｇｔgroupＳｔatｅMｇｔ＝（IOPＣGrｏupStａtｅＭgt）grp；

/／初始化传递参数ﻫIｎtPtｒpRｅquesteｄUpdateRａｔe=IntPtr．Zeｒo；／／由客户指定的Item更新间隔时间ﻫintnＲｅvUpdatｅＲａｔｅ＝0;//由服务器返回的能够更新的最短时间间隔

InｔＰｔrｈClｉentＧroup=IｎtPｔr．Zerｏ；/／客户组ﻫInｔPｔrpTimｅＢiaｓ=IntPtr.Zero；ﻫIntPｔrｐDeadband＝ＩntPtｒ。Zerｏ;ﻫＩntＰtrpＬＣID＝InｔPtr。Ｚeｒｏ;

ﻫ/／激活或者取消激活组ﻫintｎAcｔivｅ=０;ﻫGCＨａndlｅｈＡctｉｖe=GCＨandle．Aｌloｃ(nＡcｔive,ＧCＨａndleＴypｅ。Pinned）;ﻫｉf（toAｃｔive)ﻫhＡcｔive。Tａrget=1；ﻫelseﻫhActivｅ。Tarｇｅt=０；ﻫtryﻫ{ﻫgrｏuｐStateＭgt．ＳｅtSｔate(pRequesｔｅｄＵpdａｔｅRaｔe，ｏutｎRｅｖUpdatｅRａｔｅ，hAcｔｉｖｅ。AddｒOｆPiｎnｅｄObｊecｔ(），pＴiｍeBｉas，pDeadｂaｎｄ，pＬCID，hClienｔGｒoup）;ﻫ}ﻫｃatcｈ(Syｓtｅm．Exceptｉｏｎeｒr）ﻫ｛ﻫerrｏr＝＂错误信息:"＋ｅｒｒ。Ｍesｓａge；success=ｆaｌsｅ；ﻫ}

ｆinallyﻫ｛ﻫｈActｉｖe。Free（）;ﻫ}ﻫｒeｔurｎsucceｓｓ;ﻫ｝

ﻫ7、向指定的组中添加变量的函数ﻫ//／ﻫ／//向指定的组添加一系列项

//／ﻫ///指定组名ﻫ///完整的item名数组

//／由服务器返回读写数据时需要使用的ｉtem号

//／无错误,返回truｅ，否则返回fａlsｅﻫｐｕｂlｉｃbｏolＡｄdItems（strｉnggrｏupＮame,string［］iｔｅmsName,iｎt[］ｉｔｅmsID）ﻫ{

boolｓｕｃcｅｓs=truｅ;

OPCITEMDEF［]IｔeｍDｅfArｒａy=ｎewＯPCITEMDEF［itemｓNａｍe。Lenｇth］；

foｒ(iｎti=0;i

{ﻫhＣlieｎｔＩtｅm=hClｉｅｎtＩteｍ+１；／／客户项自动加1ﻫIｔemDeｆAｒｒaｙ［ｉ］.szＡccessPａth=”＂；//可选的通道路径，对于SｉmaｔiｉｃNet不需要。ﻫItｅmDeｆArｒaｙ[i］.sｚIteｍID=itｅmsNamｅ[i］;//IｔｅmID,seeａｂｏvｅﻫＩｔemDｅfAｒｒay［i］。bActiｖe=1；/／itemisactiｖe

ItｅmDｅfＡｒｒａy［i］.ｈＣlieｎｔ=hＣlieｎｔIｔem；/／clienthａｎdle，在OｎDaｔａChaｎgｅ中会用到ﻫItｅｍDefAｒrａy［i］.dwＢｌobSiｚe=0；//blｏbsiｚe

ＩtemDefAｒraｙ[i］.ｐBｌoｂ=IntPtｒ。Zero；//poｉnterｔoｂlobﻫIteｍＤefＡrrａy［ｉ］.vｔRｅqueｓtedDaｔａＴyｐｅ=4;／/ＤＷoｒd数据类型

｝

/／初始化输出参数ﻫＩｎtＰtrpResults=InｔPtr.Zｅｒo；ﻫIｎtPtrpErroｒｓ=IｎtPtr．Zeｒo;ﻫtrｙﻫ{ﻫ/／添加项到组ﻫobjｅｃtgrp＝(（gｒouｐStru)ｈａsｈＧｒoup［ｇrouｐNaｍe］）．grｏuｐObj；

((ＩOＰＣＩｔeｍMgｔ）ｇrp)。ＡddIｔｅｍs(iｔｅmsNamｅ．Ｌｅｎgｔh，ＩtemDefＡrraｙ，oｕtpResults,ouｔpEｒrors)；ﻫﻫｉnｔ[]eｒｒoｒs=newｉnt［itemｓNamｅ。Leｎgth］;ﻫInｔＰtrpｏs＝ｐＲｅｓulｔs；ﻫMaｒｓｈal．Cｏpy(pErroｒs,eｒrors，0，ｉｔｅmsＮａme.Leｎgth)；

fｏr（inti=０;ｉﻫ｛ﻫif（errors[i］＝=0）ﻫ｛ﻫOPＣＩＴEMRESＵＬTreｓｕlt=（ＯPＣITEMＲＥSULT)Ｍａrshal.PtrToSｔrｕcｔure（ｐoｓ，typeｏf(OＰＣITＥMＲESULT)）；ﻫitｅmsID［i］=reｓuｌｔ。ｈSｅｒｖｅr；ﻫｐｏs=newIｎtＰtr(poｓ．TｏＩｎt32（）+Maｒshaｌ．SizeOｆ（typeoｆ（ＯPＣITEMRＥＳULＴ）））;ﻫ｝ﻫelseﻫ｛ﻫStrｉngpsｔrErｒｏｒ；ﻫpＩOＰCSerｖeｒ。ＧeｔＥrrorStriｎｇ(ｅｒrors［０］,０x４07,oｕtｐstｒErroｒ);ﻫｓuccesｓ=fａlse；ﻫｂreａk；ﻫ}

｝ﻫSetＩｔenClieｎt（ｇroupName,itｅmｓIＤ，iteｍsＩD);／/要求始终只有一个组被激活，才不会引起冲突。ﻫ｝ﻫcatｃh(Syｓtｅm．Eｘｃeptiｏnerr)//cａtchfｏｒｅrｒorinａddingiteｍs。ﻫ{ﻫsｕｃcｅss＝faｌse；ﻫ//error=”错误信息:"+error+err。Message；ﻫ}ﻫfiｎaｌlyﻫ｛

／/释放非托管内存ﻫｉf（pResulｔｓ！＝InｔPtr．Zｅｒo）ﻫ｛

Maｒshal.ＦｒeeCoＴasｋMｅm（pRｅｓｕlts）;ﻫｐＲｅｓｕｌｔs=InｔPtr.Zeｒo；ﻫ}

ｉｆ(pErｒｏrs!=IｎtＰｔr.Zero)ﻫ｛ﻫMaｒｓｈａl.ＦrｅeCoTａｓｋＭeｍ(pEｒｒors);

pEｒrｏrs=IｎtPtr。Zｅro；ﻫ｝ﻫ｝ﻫreturnsuｃcesｓ；ﻫ}

说明：使用该函数时，在类的开头，应该先声明整数数据,以用于保存由本函数返回的服务器对每一项安排的ＩｔeｍIＤ号:ﻫﻫ８、下面编写的是一个最重要的重载函数，当检测到当前活动组中的某个变量发生变化时，就会调用委托。

ﻫ／／数据变化时处理的问题ﻫpuｂlｉcｖｉrtｕalvoidOnDａｔaＣｈａnge（Int３2dｗTrａｎsｉｄ，ﻫInt32hＧrouｐ，

Int３2ｈrMaｓｔeｒｑｕaliｔy，ﻫＩnｔ32hｒMastｅrerｒｏr,ﻫInt32dwＣounｔ,

inｔ[］phClｉｅntＩｔems，

ｏｂｊeｃt[］ｐｖＶalｕes，ﻫｓhorｔ[]pwＱualities，ﻫＯpcRcw。Ｄa。FILETIME[］ｐｆtTｉｍｅStａｍpｓ,ﻫint[]pＥｒｒors）

｛ﻫdtCｈaｎge（ｐｖVaｌueｓ，pｈClientItｅms）;ﻫﻫ}ﻫ该函数的代码只有一句,即调用委托函数。ﻫ以上编写的是需要实现监控的最重要的方法，当然不完善，还有很多方法和重载函数可以编写，这里就不简略介绍.ﻫ

9、编写基本的测试程序，用于检测上面编写的异步类ＡsynSｅｒveｒﻫ

＜１〉、重新创建一个工程，添加对上面编写的异步类的引用，并在类的开头部分添加变量声明：ﻫ//声明委托ﻫprｉvateＳ7Conｎection．DataＣhａnｇｅｄt;ﻫ/／声明服务器ﻫS7Cｏｎnecｔiｏn.AsynServeｒsｅrvｅr；

ﻫ<2〉、初始化服务器数据ﻫｄt=newS７Ｃoｎnｅcｔion.DａtaＣｈａngｅ（DａｔaＣhａnge);ﻫsｅrｖer=nｅｗAsyｎSｅｒｖeｒ（Ｓ7Ｃonnectiｏｎ.ＳerveｒTｙpｅ。ＯＰC＿ＳimaticNＥＴ，ｄt）；

stｒinｇerｒ;ﻫｓerver.Oｐｅｎ（oｕtｅｒr);ﻫsｅｒver．AddGrｏｕｐ(＂maiker”，1，３00,ouｔｅrｒ);ﻫserver。ＡｄdＩtemｓ（”maｉkｅr"，m1，ｎt1）；ﻫserｖer。AｄdGrｏｕp(”maikeｒ１＂，１，300，ouｔerr）；ﻫsｅｒveｒ.AdｄIteｍs(”ｍaikeｒ1＂，m2，nt２)；ﻫnt［０］=nt1［０]；nt［1］=nｔ1[１］；ﻫ

＜３>、添加两个单选按钮，用于选择某个组，并编写相应的程序ﻫstｒingerr，erｒ1;ﻫiｆ(sｅｒｖeｒ==nｕｌｌ)return;ﻫiｆ(radｉｏButton１．Checkｅｄ）

｛nｔ［０］=ｎｔ１［０］；nt［１]=nt1［1］;ﻫｓerver．ＡcｉvｅＧrｏｕp（"ｍaiker＂，tｒue,oｕterr);ﻫserｖer。ＡcｉveＧｒoｕｐ(＂maｉkｅr１＂，faｌse,ouｔｅrr１）；ﻫﻫ｝ﻫelse

｛ﻫｎｔ[0］=nt2［0］;nt[１］＝nt2［1］；ﻫsｅrver．AｃiveGｒouｐ("maikｅｒ１"，true，ｏuterｒ）；ﻫseｒveｒ．AciｖｅGroup（＂ｍaikeｒ",ｆalsｅ,outerｒ１）；ﻫﻫ}

<４>、添加文本框、按钮等，并编写委托执行函数:

privatevoiｄDａtaＣhａngｅ(obｊｅct［］ｏbｊ,int[］ｉtｅmsIＤ）ﻫ{ﻫｆｏｒ(intj=0;j

｛

ｉｆ（iteｍｓIＤ［ｊ]==nｔ[0］)ﻫthｉｓ．textBox1.Ｔｅxt＝ｏｂj［ｊ］.ToStｒｉng（）；

if(ｉtemｓIＤ［ｊ]=＝nｔ［1］）ﻫthis．ｔextＢox4．Ｔexｔ=ｏｂj［ｊ]。ToStriｎg(）;

}

}ﻫﻫ其中参数obｊ用于返回当前发生变化的变量的结果值,而iｔemsID返回当前发生变化的变量的ID号，其与添加变量时服务器返回的ＩＤ号对应。以上就是一个基本的测试函数,其相对同步编程来说，应该还简洁一些。ﻫ

３、同步编程与异步编程的使用场合ﻫﻫ一般来讲,同步编程需要使用定时器来循环检测变量,而异步编程则不需要，当服务器检测到数据发生变化时，可以直接调用传入的函数,从这方面来讲,使用异步编程更简洁一些，但同步编程使用外部的定时器掌握，编程则会更加灵敏，一般只监控变量时可以使用异步编程，而当需要写入数据时可以使用同步编程，但这也不是肯定的,我曾编写了一个标准监控程序，没有使用异步编程。ﻫﻫ4、关于开发监控界面的说明ﻫﻫ毫无疑问，我们应该开发一系列控件,用于简化界面的设计，否则工作量会特别大。设计一个标准模块，用于第一次运行监控软件时添加变量,并可以设定当前已经组态的界面中的各控件元素与之关联，这样在以后再运行该软件时，不需要再设定，就可以直接连接变量，并进行相应的变化.否则若在编程时编写代码进行关联,其工作量将会特别大。ﻫﻫ其实该类我早已经开发了,但始终没有时间写成文章，原来想开发一系列标准控件和标准模块,但由于换到上海工作，可能不会再有时间搞这方面的讨论了。ﻫﻫ作者：吴向阳

HＹPERLＩＮK”mailtｏ：wuｙａｎg２６＠sohu.ｃom”ｗuyａng26@ｓｏｈu。cｏｍ如何开发OPCＳervｅr首先我们先来看一下什么是OＰＣOＰC（OLＥforPrｏｃｅssCoｎtrol-—用于过程掌握的OLＥ）是基于Ｍｉｃrｏsoｆt公司的DＮA（DistrｉbutedＩnｔeｒnetApｐlication）构架和ＣOM（ComponeｎｔＯｂｊecｔModeｌ)技术的一个工业标准接口，是依据易于扩展性而设计的.正在装载数据……再来了解一下ＯPC的用途OPC主要适用于过程掌握和制造自动化等应用领域。ＯPＣ是以OLE/ＣOM机制作为应用程序的通讯标准。OLE/ＣＯＭ是一种客户/HYＰERLIＮK＂hｔｔp://www.２3/Ｓerｖeｒ/Index．htm＂服务器模式,具有语言无关性、代码重用性、易于集成性等优点。OＰC规范了接口函数，不管现场设备以何种形式存在,客户都以统一的方式去访问，从而保证软件对客户的透明性,使得用户完全从低层的开发中脱离出来然后我们再来看看OPCSeｒver的组成一个设备的OPＣSerｖer主要有两部组成,一是ＯPC标准接口的实现;二是与硬件设备的通信模块。实现ＯPC标准接口［图１］在这些接口中，ＩＯPＣＳervｅｒ是ＯＰCSｅrｖer的主接口，通过它实现OPCSｅrｖｅr在操作系统中的安装和注册。此接口是必必要实现的，其全部方法也必须实现.其它的接口都是可选的我们就不做介绍了,下面主要来介绍如何实现IOPCSerｖｅr接口。在ＩOＰＣSｅrｖer接口中共有六个法：1、ＩＯPＣＳｅrｖer：:AddGｒｏuｐＨRＥＳＵＬＴAddGroup（[ｉｎ，ｓtrinｇ］LPＣWSTRsｚName，［ｉn]BOＯLbＡctｉｖｅ，［in］ＤWORＤdwRequｅstｅdUpdaｔeＲaｔe,［in］OPＣHANＤLEhCliｅntGroup,[uniqｕe，in］LONG＊pTｉmeＢiａｓ,［in］FLOAＴ*pPｅrceｎtＤeａｄｂａｎd，［in］DWORDdｗLCID，[oｕｔ］OPＣHANDＬＥ*phServｅrGroup，[ouｔ]DWＯRD*pReｖisｅdUｐdateRaｔe,[in］ＲＥFIIDrｉｉｄ，[ｏut，iid_iｓ(riid）］ＬPＵＮKNOWN*ｐｐUｎk）；此方法是在OＰCＳｅrver上建立一个组。下在我们来实现这个方法：…。…．首先要对组名（szＮaｍe）进行检查,看是否有效或是否已经有这个组.ｉｆ（ｓｚＮamｅ！＝NUＬL){RequｅstedNａmｅ＝szName；if（RｅｑｕｅstedNamｅ＝=""）RequeｓtｅdNａme=pＳｖrＯbｊｅｃt-〉DefaultGrｏｕpNamｅ（）;｝elseＲeｑuｅsｔedＮaｍe＝pＳｖrObｊect－〉DefａulｔGroｕｐNａme（）；fｏr（ｉ=０；i＜ｐSvrOｂjeｃt-＞ＮｕmbrＧｒｏuｐs(）;i)｛ｐGｒoup=ｐＳvｒObｊｅcｔ-＞GｅtＧroup(i）；ｉｆ（ReqｕeｓtedNamｅ==pGroup—〉Naｍｅ)reｔｕｒn（OＰC_E_DUPLICAＴＥNAME）；｝这需要在内存中维护ＯPＣＧroup（组）的列表（还要有OＰC项的列表）。如果ｓｚNamｅ(组名）正确并且没有建立过该组，就开头依据传过来的参数进行组的建立,建立好后将该组加到自己的组列表中以备后用.最后将新建组的接口指针返回给客户端。2、IＯＰＣＳerｖeｒ：：GetEｒｒorSｔｒｉｎｇHREＳＵＬTGetEｒrorSｔrｉng（［in]HREＳULTdwErｒor，[in]ＬCＩDdwLocale，［out，ｓtring］LＰＷSTR*ｐｐStriｎg）；为Ｓervｅr的错误代码返