有谁用过SIEMENS SIMATIC SOFT NET 6GK1704-1CW60-3AA0吗？ 点击：2512 | 回复：17
发表于：2004-06-28 13:15:00
9楼
我打算delphi编程控制S7-200,用profibus,上位机用5611,是不是不用soft net 就不行啊？delphi怎么和soft net 一起工作？能说说么？
"SOFT NET"是SMATIC NET的最新版本,提供给用户两种标准HANDLE,一个是APPLICATION,一个是OPC HANDLE.APPLICATION是提供给STEP7,西门子系列软件调用的接口.OPC是提供给外部软件或远程调用的接口.
用CP5611的PROFIBUS和DELPHI编程,不用SOFT NET 而用SMATIC 6.2软件也可以,可用西门子早期的OPC SERVER.然后用DELPHI写客户程序.
用SOFT NET的PC STATION中CP5611绑定OPC SERVER比较好用,因在SOFT NET中西门子提供了OPC访问的ACTIVEX,决对比原先的OPC SERVER 产品好用.
另西门子早期的OPC SERVER好像有BUG.特别是对多个访问进程时,在程序初始化时出错,数据传输都为零,需重新起动!!
以上是个人关点,仅供产考.
欢迎有项目的同行能提供点项目给俺,有钱一块赚吗???
发表于：2006-02-23 13:04:00
11楼
我一直就想用自己写的上位机程序通过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用什么来做这事？？？？？
发表于：2006-02-23 13:05:00
12楼
我一直就想用自己写的上位机程序通过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用什么来做这事？？？？？
热门招聘
相关主题
- s7-200plc与PC通过RS485通信...
[21280] - 求教计算偏心轮偏心距公式1[7227]
- 三菱PLC视频教程70合集[11906]
- 三菱全系列编程软件SW8D5C-G...[9209]
- OMRON PLC的引脚上的NC与COM...[11865]
- PLC的电池无电了，原程序会丢...[26167]
- 什么是Anybus?[11369]
- 如何上传永宏PLC程序到计算机...[13039]
- 送给初学者 自编“FX-TRN-BEG...[16465]
- S7-200通过自由口控制Modbus...[22291]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
