*(00)*

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

本人学习了一下.Net,恰好,51自学网,又要用这个。而网上很多VC6,VB6,VB .Net的但,很少C#的。现在研究一下,给出例子:

测试平台,是VS2008,KEPServer,OpcNetApi.dll和OpcNetApi.Com.dll。当然我也同时安装了,51自学网,西门子的Net2006和Step7,其中Net2006是负责OPC的,可能会在系统中创建一些dll之类的,自学,因为我的程序换到一台没有Net2006的机子上既然有问题,不知其电脑问题还是因为没装Net2006。不过,理论上,OpcNetApi.dll和OpcNetApi.Com.dll足矣。还有,Net2006的安装路径下会有写dll和例子。例如我的是默认安装,C:\Program Files\Siemens\SIMATIC.NET\opc2\samples下有Automation、Custom、dotnet、xml四种应用的例子,有兴趣的可以研究研究。

下面给出我的代码,是基于控制台的,代码不长,如果 您有C#经验和OPC基础应不难理解,而且还有注释,希望您能喜欢:)

以下是Program.cs,有些测试操作我注释掉了,大家也可以玩玩。

  1 using System;
  2 using System.Collections.Generic;
  3 using System.Linq;
  4 using System.Text;
  5 using System.Threading;
  6 using Opc;
  7 using Opc.Da;
  8 using OpcCom;
  9 
 10 namespace OPCAPITest
 11 {
 12   class Tester
 13   {
 14     private Opc.Da.Server m_server = null;//定义数据存取服务器
 15     private Opc.Da.Subscription subscription = null;//定义组对象(订阅者)
 16     private Opc.Da.SubscriptionState state = null;//定义组(订阅者)状态,相当于OPC规范中组的参数
 17     private Opc.IDiscovery m_discovery = new OpcCom.ServerEnumerator();//定义枚举基于COM服务器的接口,用来搜索所有的此类服务器。
 18     public void Work()
 19     {
 20       //查询服务器
 21       Opc.Server[] servers = m_discovery.GetAvailableServers(Specification.COM_DA_20,"TX1" , null);
 22       //daver表示数据存取规范版本,Specification.COMDA_20等于2.0版本。
 23       //host为计算机名,null表示不需要任何网络安全认证。
 24       if (servers != null)
 25       {
 26         foreach (Opc.Da.Server server in servers)
 27         {
 28           //server即为需要连接的OPC数据存取服务器。
 29           if (String.Compare(server.Name,"TX1.KEPware.KEPServerEx.V4",true) == 0)//为true忽略大小写
 30           //if (String.Compare(server.Name, "localhost.KEPware.KEPServerEx.V4", true) == 0)//不带计算机名为本地访问
 31           {
 32             m_server = server;//建立连接。
 33             break;
 34           }
 35         }
 36       }
 37 
 38       //连接服务器
 39       if (m_server != null)//非空连接服务器
 40         m_server.Connect();
 41       else
 42         return;
 43 
 44       //设定组状态
 45       state = new Opc.Da.SubscriptionState();//组(订阅者)状态,相当于OPC规范中组的参数
 46       state.Name = "测试";//组名
 47       state.ServerHandle = null;//服务器给该组分配的句柄。
 48       state.ClientHandle = Guid.NewGuid().ToString();//客户端给该组分配的句柄。
 49       state.Active = true;//激活该组。
 50       state.UpdateRate = 100;//刷新频率为1秒。
 51       state.Deadband = 0;// 死区值,设为0时,服务器端该组内任何数据变化都通知组。
 52       state.Locale = null;//不设置地区值。
 53 
 54       //添加组
 55       subscription = (Opc.Da.Subscription)m_server.CreateSubscription(state);//创建组
 56       //定义Item列表
 57       //对应类型为:{Byte,Byte,Char,Short,String,Word,Boolean}
 58       string[] itemName = { "BPJ.DB1.dbb0", "BPJ.DB1.dbb1", "BPJ.DB1.dbc2", "BPJ.DB1.dbi3",
 59                   "BPJ.DB1.dbs4", "BPJ.DB1.dbw5", "BPJ.DB1.dbx6" };
 60 
 61       //定义item列表
 62       Item[] items = new Item[7];//定义数据项,即item
 63       int i;
 64       for (i = 0; i < items.Length; i++)//item初始化赋值
 65       {
 66         items[i] = new Item();//创建一个项Item对象。
 67         items[i].ClientHandle = Guid.NewGuid().ToString();//客户端给该数据项分配的句柄。
 68         items[i].ItemPath = null; //该数据项在服务器中的路径。
 69         items[i].ItemName = itemName[i]; //该数据项在服务器中的名字。
 70       }
 71 
 72       //添加Item
 73       subscription.AddItems(items);
 74 
 75       //注册回调事件
 76       subscription.DataChanged += new Opc.Da.DataChangedEventHandler(OnDataChange);
 77 
 78       //以下测试同步读
 79       //以下读整个组
 80       ItemValueResult[] values = subscription.Read(subscription.Items);
 81       //以下检验item的quality
 82       /*if (values[0].Quality .Equals(Opc.Da.Quality.Good))
 83         Console.WriteLine("检测质量成功!");*/
 84       //以下读部分组
 85       Item[] r_items=new Item[2];
 86       for (i = 1; i < 3; i++)
 87         r_items[i-1] = subscription.Items[i];
 88       ItemValueResult[] values2 = subscription.Read(r_items);
 89       //以下遍历读到的全部值
 90       /*foreach (ItemValueResult value in values2)
 91       {
 92         Console.WriteLine("同步读:ITEM:{0},value:{1},quality:{2}", value.ItemName, value.Value, value.Quality);
 93       }*/
 94 
 95       //以下测试异步读
 96       IRequest quest=null ;
 97       subscription.Read(subscription.Items,1,this.OnReadComplete,out quest ) ;
 98 
 99       //以下测试同步写
100       //以下写整个组
101       ItemValue[] itemvalues= new ItemValue[subscription.Items.Length];
102       for (i = 0; i < subscription.Items.Length; i++)
103         itemvalues[i] = new ItemValue((ItemIdentifier)subscription.Items[i]);
104       itemvalues[0].Value = 255;
105       itemvalues[1].Value = 126;
106       itemvalues[2].Value = 'A';
107       itemvalues[3].Value = -128;
108       itemvalues[4].Value = "Good Lucky!";
109       itemvalues[5].Value = 65535;
110       itemvalues[6].Value = true;
111       subscription.Write(itemvalues);
112       Thread.Sleep(500);//暂停线程以让DataChange反映
113       //以下写部分组
114       ItemValue[] itemvalues2 = new ItemValue[3];
115       itemvalues2[0] = new ItemValue((ItemIdentifier)subscription.Items[1]);//TItem类要先转成ItemIdentifier,才能转成ItemValue
116       itemvalues2[1] = new ItemValue((ItemIdentifier)subscription.Items[2]);//TItem类要先转成ItemIdentifier,才能转成ItemValue
117       itemvalues2[2] = new ItemValue((ItemIdentifier)subscription.Items[3]);//TItem类要先转成ItemIdentifier,才能转成ItemValue   
118       itemvalues2[0].Value = 12;
119       itemvalues2[1].Value = 112;
120       itemvalues2[2].Value = 122;
121       subscription.Write(itemvalues2);
122 
123       //以下测试异步写
124       Thread.Sleep(500);//暂停线程以让DataChange反映
125       subscription.Write(itemvalues, 1, this.OnWriteComplete, out quest);
126 
127       //END
128       Console.WriteLine("************************************** hit <return> to close...");
129       Console.ReadLine();
130 
131       //取消回调事件
132       subscription.DataChanged -= new Opc.Da.DataChangedEventHandler(this.OnDataChange);
133       //移除组内item
134       subscription.RemoveItems(subscription.Items);
135       //结束:释放各资源
136       m_server.CancelSubscription(subscription);//m_server前文已说明,通知服务器要求删除组。
137       subscription.Dispose();//强制.NET资源回收站回收该subscription的所有资源。
138       m_server.Disconnect();//断开服务器连接
139     }
140 
141     //DataChange回调
142     public void OnDataChange(object subscriptionHandle, object requestHandle, ItemValueResult[] values)
143     {
144       Console.WriteLine("_____________________DataChange事件");
145       foreach (ItemValueResult item in values)
146       {
147         Console.WriteLine("发生DataChange事件");
148         Console.WriteLine("ITEM:{0},value:{1}", item.ItemName,item.Value);
149         Console.WriteLine("ITEM:{0},value:{1}", item.Quality,item.Timestamp);
150         Console.WriteLine("事件信号句柄为{0}", requestHandle);
151 
152       }
153 
154     }
155 
156     //ReadComplete回调
157     public void OnReadComplete(object requestHandle, Opc.Da.ItemValueResult[] values)
158     {
159       /*Console.WriteLine("发生异步读name:{0},value:{1}", values[0].ItemName, values[0].Value);
160       if ((int)requestHandle == 1)
161         Console.WriteLine("事件信号句柄为{0}", requestHandle);*/
162     }
163 
164     //WriteComplete回调
165     public void OnWriteComplete(object requestHandle, Opc.IdentifiedResult[] values)
166     {
167       /*Console.WriteLine("发生异步写name:{0},value:{1}", values[0].ItemName, values[0].GetType());
168       if ((int)requestHandle == 2)
169         Console.WriteLine("事件信号句柄为{0}", requestHandle);*/
170     }
171 
172     static void Main(string[] args)
173     {
174       Tester tst = new Tester();
175       tst.Work();
176     }
177   }
178 }

 

 

用OpcNetApi.dll连接上opc服务器后,如何展现opc服务器上所有的数据项名。
是不是用BrowseElement[] elements = m_server.Browse(itemID, m_filters, out position)函数,如果是这个函数怎么用啊,参数是什么?有没有例子?

http://bbs.csdn.net/topics/390777396

 Opc.Da.BrowseFilters filters = new Opc.Da.BrowseFilters();
            filters.BrowseFilter = Opc.Da.browseFilter.all;
            Opc.Da.BrowsePosition pos = null;

            Opc.Da.BrowseElement[] elements = m_server.Browse(null, filters,out pos);

 

posted on 2017-02-10 16:05  *(00)*  阅读(2953)  评论(0编辑  收藏  举报