OPC Client 核心源码（MFC） 点击：10516 | 回复：38
typedef
class OPCGrp
{
public:
String GrpName; // 组名
int Rate; // 更新速率
IUnknown * ptrGroup; // 组指针
IOPCSyncIO * ptrSyncIO;
wchar_t ** Item; // 项名数组
int ItemCount; // 项数
IOPCItemMgt * ptrItem; // 项指针
DWORD * hItem; // 项句柄数组
OPCITEMSTATE * Data; // 存放数据
void ReadGrp(); // 读一组数据
void ReadBuf(VARIANT v[]); // 读一组数据到缓冲
void Read(int i,VARIANT &v); // 读一个数据,第i个
void Write(int i,VARIANT v); // 写一个数据,第i个
void Write(int i,int n,VARIANT v[]); // i起，写N个
OPCGrp();
OPCDATASOURCE DataSource; // 数据源 OPC_DS_CACHE/DEVICE
} OPCGrp;
typedef
class OPCServer
{
public:
String ID; // OPC标识串
String IP; // 远程 IP,本地为空
IOPCServer *opcObject;
OPCGrp *opcGrp[10]; // OPCGrp *[]
int GrpCount; // 组数
bool AddGrp(OPCGrp *grp); // 增加组对象
bool Connected; // 是否已联接
bool Connect(); // 连接
void Disconnect(); // 断开并释放资源
OPCServer();
} OPCServer;
//调用举例
OPCServer *opc=NULL;
void __fastcall TForm1::Button3Click(TObject *Sender)
{
bool opc_connected=false;
opc=new OPCServer;
opc->ID="KEPware.KEPServerEx.V4";
opc->IP=IP->Text.Trim();
opc_connected=opc->Connect();
if (!opc_connected)
{
ShowMessage("Connect Failed!");
return;
}
wchar_t *items[]={
L"Channel_4.Device_6.Word_2",
L"Channel_2.Device_3.Tag_2",
L"Channel_1.Device_1.Bool_1"
};
OPCGrp *grp1=new OPCGrp();
grp1->GrpName="Group1";
grp1->Rate=100;
grp1->Item=items;
grp1->ItemCount=3;
if (!opc->AddGrp(grp1))
{
ShowMessage("Add Group Failed!");
return;
}
VARIANT v[3];
while (opc->Connected && !Application->Terminated)
{
opc->opcGrp[0]->Read(0,v[0]);
opc->opcGrp[0]->Read(1,v[1]);
opc->opcGrp[0]->Read(2,v[2]);
Label1->Caption=v[0].iVal;
Label2->Caption=v[1].iVal;
Label3->Caption=v[2].boolVal?1:0;
Application->ProcessMessages();
}
}
C/C++ codeif(b_enable)
{
hRet=pOPCSync->Read(OPC_DS_CACHE,2,hServerAI,&pItemValue,&pErrors);
if(hRet!=S_OK)
{
KillTimer(2);
MessageBox("通信失败");
}
CoTaskMemFree(pErrors);
m_bStartEnd=V_BOOL(&pItemValue[0].vDataValue);
m_bTongPhoto=V_BOOL(&pItemValue[1].vDataValue);
//m_nPlcSystemTimeSecond=V_R4(&pItemValue[1].vDataValue);
m_LABEL1.Format("%d",m_bStartEnd);
UpdateData(false);
}
有关释放的程序Assembly code if(b_enable)
{
pOPCItemMgt->RemoveItems(2,hServerAI,&pErrors);
pOPCItemMgt->RemoveItems(2,hServerAO,&pErrors);
pServer->RemoveGroup(hOPCServerGroup,TRUE);
pOPCSync->Release();
pOPCItemMgt->Release();
pServer->Release();
ppUnknown->Release();
}
工程项目监控软件源码三合一
1.vb6开发的锅炉监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数据记录
和查询界面及相关报表功能，历史曲线查询。(下位机是西门子S7-200，以太网通讯)
2.delphi7开发的回转窑监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数
据记录和查询界面及相关报表功能。(下位机是OMRON CJ1G，以太网通讯)
3.VC++6.0开发的石灰窑监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数
据记录和查询界面及相关报表功能，历史曲线查询。（数据源是OPC Server,报表纯手工编写，具有很大
的灵活性）。
目前都已经稳定运行在自控项目上了。这些源码稍作修改就可以应用在其他项目上。
有需要的请联系QQ:790013363
EMAIL:lgr980423@126.com 可以先运行打包安装文件，查看效果。有偿服务，非诚勿扰！
- 关于 从opc基金会下载一些c＋...
[1797] - OPC Client 核心源码（MFC）[10371]
- DCOM 配置 --1[1478]
- OPC Server &Client ToolKit...[1392]
- OPC访问的80070005错误！急！...[2437]
- 外部应用程序无法执行DDE方法...[1652]
- WINCC之OPC通信------[4158]
- 一个不错的OPC测试工具[4515]
- 哪里有OPC服务器的源码？谢谢...[1546]
- 那位有OPC .NET API 1.30 SD...[1376]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
