哪位朋友用过西门子的OPCSERVER

引用电烙铁的回复内容:我一直就想用自己写的上位机程序通过PPI电缆来监视和修改西门子的PLC的内存,于是就买了个西门子的PCAccessV1.0.2.26OPC软件，回家一看，好家伙，没加密的。可以随便装。安装好后我的电脑就有OPC服务器了，还有个用VB写的客户程序例子。我打开VB6编译运行，果然可以监视和修改西门子的PLC的内存。细看这个VB例子，'建立与OPC服务器的连接SetQOpcServer=NewOPCServerCallQOpcServer.Connect("S7200.OPCServer")'S7200.OPCServer是西门子OPC服务器的名称SetQGroups=QOpcServer.OPCGroups'GetOPCGroupsCollectionObjectfromQOPCServer'SetDefaultPropertiesforGroupCollection'ThesePropertiesareusedtosettheProperiesfornewGroupsQGroups.DefaultGroupIsActive=False'SetDefaultGroupActiveStatetoInactiveSetQGroup=QGroups.Add("QGroup1")'AddanewGrouptotheGroupCollection'SetGroupPropertiesQGroup.IsSubscribed=True'EnableCallbacksQGroup.UpdateRate=100'这个群组的刷新速度是100ms'下面再往群组里添加要传送的地址单元请教Vb里用New来创建类的实例，但我搞不清Delphi用什么来做这事？？？？？