OPC是OLE for Process Control的缩写，即把OLE应用于工业控制领域，OPC是建立在OLE规范之上，它为工业控制领域提供了一种标准的数据访问机制。OPC服务器由三类对象组成：服务器(Server)、组(Group)、数据项(Item)。服务器对象(Server)拥有服务器的所有信息，同时也是组对象(Group)的容器。组对象(Group)拥有本组的所有信息，同时包容并逻辑组织OPC数据项(Item)。在这里数据项(Item)就是指所有的PLC信号的输入与输出。OPC组对象(Group)提供了客户组织数据的一种方法。客户可对之进行读写，还可以设置客户端的数据更新速率。当服务器缓冲区内的数据发生改变时，OPC将向客户发出通知，客户得到通知后再进行必要的处理。而无须浪费大量的时间进行查询。OPC规范定义了两种组对象：公共组和局部组(私有组)。公共组由多个客户共有，局部组只隶属于一个OPC客户。一般来说，客户和服务器的一对连接只需要定义一个组对象。在每个组对象中，客户可以加入多个OPC数据项(Item)。OPC数据项(Item)是服务器端定义的对象，通常指向设备的一个寄存器单元。OPC客户对设备寄存器的操作都是通过其数据项来完成的，通过OPC数据项(Item)，OPC规范尽可能地隐藏了设备的特殊信息，也使OPC服务器的通用性大大增强。OPC数据项(Item)并不提供对外接口，客户不能直接对之进行操作，所有的操作都是通过组对象进行的。每个OPC数据项(Item)的数据结构包括三个成员变量：即数据值、数据质量和时间戳。数据值是以Variant形式表示的。

Delphi7.0加载Siemens动态库：
1.打开Delphi7.0，点击Project->Import Type Library
2.在Import Type Library里面找到Siemens OPC DAAutomation 2.0 (Version 1.0)，在Class Nams里面可以看三个类方法(TOPCGroups,TOPCGroup,TOPCServer)，默认的Palette Page为ActiveX，单击Install…

Delphi7.0中编写客户端程序：
1.连接OPC服务器
  在Form上面添加三个OPC控件:
  OPCGroup1: TOPCGroup;
  OPCGroups1: TOPCGroups;

  OPCServer1: TOPCServer;

Delphi/Pascal code
?
1
2
3
4
5
6
7
8
9
10
11
var
   Group:OPCGroup;
   testItem:OPCItem;
   OPCItems: string ;
   OPCItemsValues: string ;
 
   OPCServer1 . Connect1( 'OPC服务名称(Intellution.OPCiFIX.1)' , '结点名称(OPC主机名称)' ); //连接OPC服务器
   OPCServer1 . OPCGroups . DefaultGroupUpdateRate:= 500 ; //设置更新频率
   Group:=OPCServer1 . OPCGroups . Add( 'MyGroup' );  //添加Group
   
   testItem:=Group . OPCItems . AddItem( 'SCADA.YPA1_SILO_CHARGEWEIGHTACT.F_CV' , 1 ); //添加OPC数据项


2.读取OPC数据项
Delphi/Pascal code
?
1
2
3
4
var
   myvalue,myquality,mytimestamp:OleVariant;
   testItem . Read(OPCDevice,myvalue,myquality,mytimestamp);
   Edit1 . Text:=myvalue;


3.写OPC数据项
Delphi/Pascal code
?
1
2
3
var
   myvalue:OleVariant;
   testItem . Write (myvalue);


4.断开OPC
Delphi/Pascal code
?
1
2
   OPCServer1 . OPCGroups . RemoveAll;
   OPCServer1 . Disconnect;
完整代码：
Delphi/Pascal code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
unit  Unit1;
 
interface
 
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, OPCSiemensDAAutomation_TLB, OleServer;
 
type
   TForm1 =  class (TForm)
     OPCGroup1: TOPCGroup;
     OPCGroups1: TOPCGroups;
     OPCServer1: TOPCServer;
     Button1: TButton;
     Edit1: TEdit;
     Button2: TButton;
     Button3: TButton;
     ListBox1: TListBox;
     ListBox2: TListBox;
     Button4: TButton;
     procedure  Button1Click(Sender: TObject);
     procedure  Button3Click(Sender: TObject);
     procedure  Button2Click(Sender: TObject);
     procedure  Button4Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end ;
 
var
   Form1: TForm1;
   Group:OPCGroup;
   testItem:OPCItem;
   OPCItems: string ;
   OPCItemsValues: string ;
 
implementation
 
{ $R  *.dfm}
 
procedure  TForm1 . Button1Click(Sender: TObject);
begin
   //连接OPC
   OPCServer1 . Connect1( 'Intellution.OPCiFIX.1' , 'OPSServer01' );
   OPCServer1 . OPCGroups . DefaultGroupUpdateRate:= 500 ;
   Group:=OPCServer1 . OPCGroups . Add( 'MyGroup' );
   testItem:=Group . OPCItems . AddItem( 'SCADA.YPA1_SILO_CHARGEWEIGHTACT.F_CV' , 1 );
end ;
 
procedure  TForm1 . Button3Click(Sender: TObject);
begin
   //断开OPC
   OPCServer1 . OPCGroups . RemoveAll;
   OPCServer1 . Disconnect;
end ;
 
procedure  TForm1 . Button2Click(Sender: TObject);
var
   myvalue,myquality,mytimestamp:OleVariant;
begin
   //读OPC数据项
   testItem . Read(OPCDevice,myvalue,myquality,mytimestamp);
   Edit1 . Text:=myvalue;
end ;
 
procedure  TForm1 . Button4Click(Sender: TObject);
var
   myvalue:OleVariant;
begin
   //写OPC数据项
   testItem . Write (myvalue);
end ;
 
end .



Logo
向您推荐>>Eolink开发者社区

权威｜前沿｜技术｜干货｜国内首个API全生命周期开发者社区

更多推荐

ELK实现containerd的容器日志采集展示【基于logging的全栈监测】

企业级ELK Stack构建介绍

avatar 云原生

深入理解 Mocha 测试框架：从零实现一个 Mocha

前言什么是自动化测试自动化测试在很多团队中都是Devops环节中很难执行起来的一个环节，主要原因在于测试代码的编写工作很难抽象，99%的场景都需要和业务强绑定，而且写测试代码的编写工作量往往比编写实际业务代码的工作量更多。在一些很多业务场景中投入产出比很低，适合写自动化测试的应该是那些中长期业务以及一些诸如组件一样的基础库。自动化测试是个比较大的概念，其中分类也比较多，比如单元测试，端对端测试，集

avatar 云原生

(20200916 Solved)docker-compose up创建容器自动退出

问题描述如题，创建容器后自动退出了。并且docker start container无效解决方案原因是缺失了控制终端的配置，需要在docker-compose.yml中增加tty:true ，有时候这样也不行，需要再增加一个command:/bin/bash，命令不一定是这个，需要是一个不会退出的命令，然后用-d后台启动容器。Referencesdocker-compose启动容器后自动退出...

avatar 云原生