哪位朋友用过西门子的OPC SERVER 点击：4098 | 回复：12
发表于：2006-02-23 13:15:00
3楼
我一直就想用自己写的上位机程序通过PPI电缆来监视和修改西门子的PLC 的内存 ,于是就买了个西门子的PC AccessV1.0.2.26 OPC软件，回家一看，好家伙，没加密的。可以随便装。安装好后我的电脑就有OPC服务器了，还有个用VB写的客户程序例子。我打开VB6编译运行，果然可以监视和修改西门子的PLC 的内存。
细看这个VB例子，
'建立与OPC服务器的连接
Set QOpcServer = New OPCServer
Call QOpcServer.Connect("S7200.OPCServer") 'S7200.OPCServer是西门子OPC服务器的名称
Set QGroups = QOpcServer.OPCGroups ' Get OPCGroups Collection Object from QOPCServer
' Set Default Properties for Group Collection
' These Properties are used to set the Properies for new Groups
QGroups.DefaultGroupIsActive = False ' Set Default Group Active State to Inactive
Set QGroup = QGroups.Add("QGroup1") ' Add a new Group to the Group Collection
' Set Group Properties
QGroup.IsSubscribed = True ' Enable Callbacks
QGroup.UpdateRate = 100 '这个群组的刷新速度是100ms
'下面再往群组里添加要传送的地址单元
请教Vb里用New来创建类的实例，但我搞不清Delphi用什么来做这事？？？？？
细看这个VB例子，
'建立与OPC服务器的连接
Set QOpcServer = New OPCServer
Call QOpcServer.Connect("S7200.OPCServer") 'S7200.OPCServer是西门子OPC服务器的名称
Set QGroups = QOpcServer.OPCGroups ' Get OPCGroups Collection Object from QOPCServer
' Set Default Properties for Group Collection
' These Properties are used to set the Properies for new Groups
QGroups.DefaultGroupIsActive = False ' Set Default Group Active State to Inactive
Set QGroup = QGroups.Add("QGroup1") ' Add a new Group to the Group Collection
' Set Group Properties
QGroup.IsSubscribed = True ' Enable Callbacks
QGroup.UpdateRate = 100 '这个群组的刷新速度是100ms
'下面再往群组里添加要传送的地址单元
请教Vb里用New来创建类的实例，但我搞不清Delphi用什么来做这事？？？？？
发表于：2008-06-26 10:29:49
9楼
引用电烙铁 的回复内容:我一直就想用自己写的上位机程序通过PPI电缆来监视和修改西门子的PLC 的内存 ,于是就买了个西门子的PC AccessV1.0.2.26 OPC软件，回家一看，好家伙，没加密的。可以随便装。安装好后我的电脑就有OPC服务器了，还有个用VB写的客户程序例子。我打开VB6编译运行，果然可以监视和修改西门子的PLC 的内存。
细看这个VB例子，
'建立与OPC服务器的连接
Set QOpcServer = New OPCServer
Call QOpcServer.Connect("S7200.OPCServer") 'S7200.OPCServer是西门子OPC服务器的名称
Set QGroups = QOpcServer.OPCGroups ' Get OPCGroups Collection Object from QOPCServer
' Set Default Properties for Group Collection
' These Properties are used to set the Properies for new Groups
QGroups.DefaultGroupIsActive = False ' Set Default Group Active State to Inactive
Set QGroup = QGroups.Add("QGroup1") ' Add a new Group to the Group Collection
' Set Group Properties
QGroup.IsSubscribed = True ' Enable Callbacks
QGroup.UpdateRate = 100 '这个群组的刷新速度是100ms
'下面再往群组里添加要传送的地址单元
请教Vb里用New来创建类的实例，但我搞不清Delphi用什么来做这事？？？？？
细看这个VB例子，
'建立与OPC服务器的连接
Set QOpcServer = New OPCServer
Call QOpcServer.Connect("S7200.OPCServer") 'S7200.OPCServer是西门子OPC服务器的名称
Set QGroups = QOpcServer.OPCGroups ' Get OPCGroups Collection Object from QOPCServer
' Set Default Properties for Group Collection
' These Properties are used to set the Properies for new Groups
QGroups.DefaultGroupIsActive = False ' Set Default Group Active State to Inactive
Set QGroup = QGroups.Add("QGroup1") ' Add a new Group to the Group Collection
' Set Group Properties
QGroup.IsSubscribed = True ' Enable Callbacks
QGroup.UpdateRate = 100 '这个群组的刷新速度是100ms
'下面再往群组里添加要传送的地址单元
请教Vb里用New来创建类的实例，但我搞不清Delphi用什么来做这事？？？？？
发表于：2012-03-14 09:55:42
12楼
我公司针对西门子以太网通讯模块BCNet-S7PPI、BCNet-S7MPI，开发了专用的BCNet OPC服务器，凡支持OPC通道的组态软件都可以轻松实现同西门子控制器的通讯。对于多台S7-200/300的OPC通讯，可实现多台上位机同步通讯 ，且通讯速度比PC Access、Simatic Net还要快。若用户自己用VB、VC等开发上位机软件，我们也将提供通讯方式如TCP/IP、MODBUS TCP、OPC的技术支持，详细请登陆我公司网站www.beichen-automation.com。
热门招聘
相关主题
- PLC的LIN总线通讯解决方案
[1979] - 关于:RPR加弹机[1419]
- 谈现场总线技术国家自主化的...[1932]
- 标准使世界更安全？[3303]
- S7-200与ACS510MODBUS通讯例...[1448]
- P-NET系列讲座（六）：协议优势...[1937]
- PROFIBUS从站开发[1890]
- 低压配电自动化发展浅谈(转载...[4459]
- 影响RS485总线通讯速度和可靠...[2011]
- 我应采用哪种总线，大家帮帮忙...[4570]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
