有人用Delphi编写过OPC自动化客户端吗？ 点击：2175 | 回复：6
发表于：2006-02-23 12:54:00
2楼
我一直就想用自己写的上位机程序通过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
'下面再往群组里添加要传送的地址单元
z在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
'下面再往群组里添加要传送的地址单元
z在Vb里,是用New来创建类的实例，但我搞不清Delphi用什么来做这事？？？？？哪位大哥知道？
发表于：2006-02-23 12:55: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用什么来做这事？？？？？
发表于：2006-05-04 11:46:00
4楼
这段代码用Delphi编写如下：
其中定义如下
var
MyOPCAutoServer : IOPCAutoServer; //OPC服务器
MyOPCGroups : OPCGroups; //OPC组集合
MyOPCGroup : OPCGroup; //OPC组，
MyOPCItems : OPCItems; //OPC标签集合
begin
MyOPCAutoServer:=CoOPCServer.Create；
MyOPCAutoServer.Connect('ProgID','NodeName');
MyOPCGroups:=MyOPCAutoServer.OPCGroups;
MyOPCGroups.Set_DefaultGroupUpdateRate(500);//更新频率500ms
MyOPCGroup:=MyOPCGroups.Add('OPCGroup'); //新添加的OPC
MyOPCGroup.Set_IsActive(true);
MyOPCGroup.Set_IsSubscribed(True);
MyOPCItems:=MyOPCGroup.OPCItems; //建立OPC标签集合
end；
其中定义如下
var
MyOPCAutoServer : IOPCAutoServer; //OPC服务器
MyOPCGroups : OPCGroups; //OPC组集合
MyOPCGroup : OPCGroup; //OPC组，
MyOPCItems : OPCItems; //OPC标签集合
begin
MyOPCAutoServer:=CoOPCServer.Create；
MyOPCAutoServer.Connect('ProgID','NodeName');
MyOPCGroups:=MyOPCAutoServer.OPCGroups;
MyOPCGroups.Set_DefaultGroupUpdateRate(500);//更新频率500ms
MyOPCGroup:=MyOPCGroups.Add('OPCGroup'); //新添加的OPC
MyOPCGroup.Set_IsActive(true);
MyOPCGroup.Set_IsSubscribed(True);
MyOPCItems:=MyOPCGroup.OPCItems; //建立OPC标签集合
end；
发表于：2006-05-17 17:50:00
6楼
var
MyOPCAutoServer : IOPCAutoServer; //OPC服务器
MyOPCGroups : OPCGroups; //OPC组集合
MyOPCGroup : OPCGroup; //OPC组，
MyOPCItems : OPCItems; //OPC标签集合
begin
MyOPCAutoServer:=CoOPCServer.Create；
MyOPCAutoServer.Connect('ProgID','NodeName');
MyOPCGroups:=MyOPCAutoServer.OPCGroups;
MyOPCGroups.Set_DefaultGroupUpdateRate(500);//更新频率500ms
MyOPCGroup:=MyOPCGroups.Add('OPCGroup'); //新添加的OPC
MyOPCGroup.Set_IsActive(true);
MyOPCGroup.Set_IsSubscribed(True);
MyOPCItems:=MyOPCGroup.OPCItems; //建立OPC标签集合
end；
为何我执行上述代码MyOPCAutoServer:=CoOPCServer.Create；时会出错,提示内存分配访问无效,但vb代码正常
MyOPCAutoServer : IOPCAutoServer; //OPC服务器
MyOPCGroups : OPCGroups; //OPC组集合
MyOPCGroup : OPCGroup; //OPC组，
MyOPCItems : OPCItems; //OPC标签集合
begin
MyOPCAutoServer:=CoOPCServer.Create；
MyOPCAutoServer.Connect('ProgID','NodeName');
MyOPCGroups:=MyOPCAutoServer.OPCGroups;
MyOPCGroups.Set_DefaultGroupUpdateRate(500);//更新频率500ms
MyOPCGroup:=MyOPCGroups.Add('OPCGroup'); //新添加的OPC
MyOPCGroup.Set_IsActive(true);
MyOPCGroup.Set_IsSubscribed(True);
MyOPCItems:=MyOPCGroup.OPCItems; //建立OPC标签集合
end；
为何我执行上述代码MyOPCAutoServer:=CoOPCServer.Create；时会出错,提示内存分配访问无效,但vb代码正常
热门招聘
相关主题
- 西门子OPC_PC STATION配置
[3261] - 携手推动ＯＰＣ[5704]
- wincc与OPC通讯[2976]
- 有人有OpcNetApi.dll和OpcNe...[2143]
- 怎么清除“破\\\解”版kepware...[4538]
- 如何用OPC SERVER把PLC中的信...[3800]
- Modbus OPCServer[2215]
- 支持汉字的OPC服务器开发包W...[1954]
- OPC发展史[2796]
- OPC C++ 版的演示源程序.[1539]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
