OPC七日谈 点击：25715 | 回复：102
发表于：2004-02-25 10:45:00
楼主
我从北京买了一本《OPC应用程序入门》，在此之前基本上只是知道有OPC，在五月四日开始，我学了七天。其中有苦有甜。我写下来，权做休息或是练练打字。
第一天
安装了《入门》提供的东西，包括是下面几个文件。还有个批处理文件，是一个注册过程。
opccomn_ps.dll
opcproxy.dll
opcdaauto.dll
OPCTrend.ocx
OPCBar.ocx
OpcServer.exe
OPCJDADemoServer.exe
看了一阵书，知道了前三个是：通用接口，PROXY-STUB，自动化接口。不明白。
后面两个是demo 服务器。
上网，用GOOGLE，查OPC，很自然就找到了www.opcconnect.com.,又下了个free
服务器。安装了（注册）。
到了工控网，看到有人在推荐clienttools，就下了一个，叫WXOPC。运行一下，
点击连接服务器图标，立即出现了三个：
OPCJ.SAMPLESERVER.1
OPCJ.DADEMOSERVER.1
HEXATEC.PCDATA
第三个是opcconnect上download的计算机基本情况的简单程序。
点击他们，还出现了一些“item”，“value"的内容还在变，有意思。我就想这
工具还真不错，不知我能不能做到，但一想，如果这些功能都做不到，这OPC就没多少
人敢学，也就没有市场。
有一段时间没用VB了，先热了热身，看了自己过去编过的code。
第二日
今天先看书。
《OPC应用程序入门》，40元，我花了48元，从汇款到收到用了12天，拿到手上，感觉很单薄。我的看书观点是：在看的过程中迷信书，看完后怀疑书，然后忘记书。尽管这本书上我立即就发现有错误。我还是仔细地看下去。
这是一本教人们用VB编应用客户端程序的书，希望让一般工控技术员认识OPC其实不复杂，最起码编用户程序（客户端）不难。
在这之前，我对COM和DCOM技术有所了解，也是很模糊的，OPC以COM和DCOM技术为基础，主要是在服务器端（server），而在用户端并不要很在意它们。
书上对OPC体系有描述，我画了个图。
发表于：2005-05-13 11:42:00
81楼
谢谢楼主无私的奉献
利用楼主的所学的
我快速地入了门，
用DELPHI做了下实验
果然不错
实现了服务端所有ITEM的枚举
嗯很有用
准备作一个远程监控相关的项目
并且用P2P实现
还没有实施
这里把我用DELPHI做的实验代码附上
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, OPCSiemensDAAutomation_TLB, ExtCtrls,
ComCtrls;
type
TForm1 = class(TForm)
OPCServer1: TOPCServer;
Panel1: TPanel;
Button1: TButton;
StatusBar1: TStatusBar;
Timer1: TTimer;
Panel2: TPanel;
Splitter1: TSplitter;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
ListBox2: TListBox;
CheckBox1: TCheckBox;
tvOPCServers: TTreeView;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure tvOPCServersDblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ig: IOPCGroup;
vs: OleVariant;
i: integer;
tnTmp: TTreeNode;
begin
vs := OPCServer1.GetOPCServers;
for i := VarArrayLowBound(vs, 1) to VarArrayHighBound(vs, 1) do
begin
tnTmp := TTreeNode.Create(tvOPCServers.Items);
tnTmp.Text := vs[i];
tvOPCServers.Items.Add(tnTmp, vs[i]);
// listbox1.Items.Add(vs[i]);
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[0].Text := DateTimeToStr(now);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1Timer(nil);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
og: IOPCGroup;
begin
OPCServer1.OPCGroups.Add(edit1.Text);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
ig: IOPCGroup;
vs: OleVariant;
i: integer;
begin
if (tvOPCServers.SelectionCount <= 0) or (not Checkbox1.Checked) then exit;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked and (tvOPCServers.SelectionCount > 0)then
begin
OPCServer1.Connect1(tvOPCServers.Selected.Text);
Caption := Format('Connect to OPC Server %s...',
[tvOPCServers.Selected.Text]);
end
else
begin
OPCServer1.Disconnect;
Caption := Format('Disconnect OPC Server %s...',
[tvOPCServers.Selected.Text]);
end;
end;
procedure TForm1.tvOPCServersDblClick(Sender: TObject);
var
br: OPCBROWSER;
lf: OleVariant;
i: integer;
strTmp: string;
curNode, tnParent: TTreeNode;
function ExplandOPCServer(ABr: OPCBROWSER): boolean;
var
j: integer;
tnP1: TTreeNode;
begin
try
ABr.ShowBranches;
if ABr.Count > 0 then
for j := 1 to ABr.Count do
begin
tnP1 := curNode;
curNode := tvOPCServers.Items.AddChild(curNode, ABr.Item(j));
ABr.MoveDown(ABr.Item(j));
ExplandOPCServer(Abr);
curNode := tnP1;
end
else
begin
// 如果没有 Branch 了，先看有没有 Leaf
// 如果有也加到 treeview 中。
ABr.ShowLeafs(lf);
for j := 1 to ABr.Count do
begin
tvOPCServers.Items.AddChild(curNode, ABr.Item(j));
end;
// 就应该返回上一级
// ABr.ShowBranches;
ABr.MoveUp;
ABr.ShowBranches;
end;
finally
//
end;
end;
begin
// 展开相应的OPCSERVER。
tvOPCServers.Selected.DeleteChildren;
OPCServer1.Connect1(tvOPCServers.Selected.Text);
br := OPCServer1.CreateBrowser;
curNode := tvOPCServers.Selected;
tnParent := curNode;
ExplandOPCServer(br);
end;
end.
发表于：2005-09-29 16:14:00
86楼
本人是搞工程的，也干了几个opc通讯上下位的工程，一般来说ABB,西门子，施耐得的产品等公司下位都有opc server,而上位本人一般使用ifix3.5，也有opc 的驱动，只需要设置一下ifix中标签的路径和下位ABB opc server 对应现场控制站的ip，并在ifix opc server中建立一个server，然后在ifix数据库中把标签变量，全部导入一遍，opc 中的group，item全部自动生成，当然每个group的item有数量限制，我一般定义变量时就分组分好了。各位高手真是认真专研的人，文章给我启发很多，我没有时间做下来专这么多东西，希望以后各位多发些这样的文章，让大家都提高提高。
发表于：2011-12-27 10:08:16
93楼
工程项目监控软件源码集合
1.vb6开发的锅炉监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数据记录
和查询界面及相关报表功能，历史曲线查询。(下位机是西门子S7-200，以太网通讯)
2.delphi7开发的回转窑监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数
据记录和查询界面及相关报表功能。(下位机是OMRON CJ1G，以太网通讯)
3.VC++6.0开发的石灰窑监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数
据记录和查询界面及相关报表功能，历史曲线查询。（数据源是OPC Server,报表纯手工编写，具有很大
的灵活性）。
目前都已经稳定运行在自控项目上了。这些源码稍作修改就可以应用在其他项目上。
有需要的请联系QQ:790013363
EMAIL:lgr980423@126.com 可以先运行打包安装文件，查看效果。有偿服务，非诚勿扰！
发表于：2012-01-06 14:11:36
95楼
工程项目监控软件源码三合一
1.vb6开发的锅炉监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数据记录
和查询界面及相关报表功能，历史曲线查询。(下位机是西门子S7-200，以太网通讯)
2.delphi7开发的回转窑监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数
据记录和查询界面及相关报表功能。(下位机是OMRON CJ1G，以太网通讯)
3.VC++6.0开发的石灰窑监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数
据记录和查询界面及相关报表功能，历史曲线查询。（数据源是OPC Server,报表纯手工编写，具有很大
的灵活性）。
目前都已经稳定运行在自控项目上了。这些源码稍作修改就可以应用在其他项目上。
有需要的请联系QQ:790013363
EMAIL:lgr980423@126.com 可以先运行打包安装文件，查看效果。有偿服务，非诚勿扰！
发表于：2017-11-17 12:13:43
99楼
大家可到 ftp://opc.vicp.net 下载OPC基金会官方文档及OPC的VB例程（写的不是很好） 用户名 opc 密码 opc 过几天有空我会放上我写的一个通用版OPC Client程序 该程序可枚举网络上指定计算机的OPC服务器及变量，并选择指定的变量进行实时采集、设定多种EXCEL报表的格式，并最终把采集到的变量按指定EXCEL报表格式输出。 上面的FTP“网站”是我家里的电脑，所以可能不是全天开机，但一般晚上19-23点会开机，白天就看运气了，不过最近我玩vmware 和NAT正起劲，往往在公司也远程控制家里的电脑，所以白天开机的时候也挺多的。 大家白天也可试试能不能上 另外，顺便讲一句我写OPC Client的经验教训：别用write 和read函数去读变量和写变量，这两个函数的容错性极差，一有个风吹草动，程序就死掉了。
热门招聘
相关主题
- opcda协议解析的问题
[1685] - 自己做的一个OPC客户端[5283]
- OPC Server请教[1686]
- 用C#开发了Opc Xml服务器开发...[5660]
- 基于OPC及组态软件技术的OPC...[1473]
- 请教KEPWare 连接15台 OMRON...[2322]
- OPC UA[1989]
- opc的效率问题[1549]
- OPC客户端如何获取服务器端上...[1727]
- 求助：OPC的DLL[1788]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
