我一直就想用自己写的上位机程序通过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用什么来做这事？？？？？