指定server地址获取Opc server 点击：2731 | 回复：16
发表于：2008-01-24 13:45:00
11楼
枚举计算机，主要用到这三个函数，实现比较简单，网上应该可以查到
1、WNetOpenEnum
2、WNetEnumResource
3、WNetCloseEnum
枚举远程OPC服务器也有两种办法：
1 枚举注册表
// search the registry for OPC entries
HKEY hk = HKEY_CLASSES_ROOT;
if( node )
{
DWORD dwR = RegConnectRegistry ((LPTSTR)node, HKEY_CLASSES_ROOT, &hk);
if( dwR != ERROR_SUCCESS )
return FALSE;
}
TCHAR key[MAX_KEYLEN];
for( int index=0; RegEnumKey(hk, index, key, MAX_KEYLEN)==ERROR_SUCCESS; index++)
{
HKEY hProgID;
TCHAR dummy[MAX_KEYLEN];
if(RegOpenKey(hk, key, &hProgID )==ERROR_SUCCESS )
{
LONG size=MAX_KEYLEN;
if(RegQueryValue(hProgID, _T("OPC"), dummy, &size)==ERROR_SUCCESS )
{
TCHAR desc[MAX_KEYLEN];
size=MAX_KEYLEN;
RegQueryValue(hk, key, desc, &size);
//得到key;
}
RegCloseKey( hProgID );
}
}
2、通过OPCNUM
IOPCServerList *gpOPC;
HRESULT hr, hr2;
IEnumGUID *pEnumGUID;
CLSID catid, clsid;
unsigned long c;
LPOLESTR pszProgID, pszUserType;
// create the enumerator object
gpOPC = CreateServerEnumerator(pathname);
if (gpOPC == NULL)
{
DoErrorMsg ( 0, "Failed to Execute OPCENUM");
// revert to search of Registry if OPCENUM fails to execute
return (GetServerListFromRegistry());
}
// use category id's to enumerate server list
catid = CATID_OPCDAServer20;
gpOPC->EnumClassesOfCategories(1, &catid,
1, &catid, &pEnumGUID);
if (pEnumGUID != NULL)
{
while (SUCCEEDED(hr = pEnumGUID->Next(1, &clsid, &c)))
{
if (!ValidCLSID(clsid))
break;
// add server name to list
//得到 clsid;
hr2 = gpOPC->GetClassDetails(clsid, &pszProgID, &pszUserType);
if (FAILED(hr2))
//错误处理
else
{
//得到pszProgID;
CoTaskMemFree(pszProgID);
CoTaskMemFree(pszUserType);
}
}
pEnumGUID->Release();
}
gpOPC->Release();
以上仅供参考
1、WNetOpenEnum
2、WNetEnumResource
3、WNetCloseEnum
枚举远程OPC服务器也有两种办法：
1 枚举注册表
// search the registry for OPC entries
HKEY hk = HKEY_CLASSES_ROOT;
if( node )
{
DWORD dwR = RegConnectRegistry ((LPTSTR)node, HKEY_CLASSES_ROOT, &hk);
if( dwR != ERROR_SUCCESS )
return FALSE;
}
TCHAR key[MAX_KEYLEN];
for( int index=0; RegEnumKey(hk, index, key, MAX_KEYLEN)==ERROR_SUCCESS; index++)
{
HKEY hProgID;
TCHAR dummy[MAX_KEYLEN];
if(RegOpenKey(hk, key, &hProgID )==ERROR_SUCCESS )
{
LONG size=MAX_KEYLEN;
if(RegQueryValue(hProgID, _T("OPC"), dummy, &size)==ERROR_SUCCESS )
{
TCHAR desc[MAX_KEYLEN];
size=MAX_KEYLEN;
RegQueryValue(hk, key, desc, &size);
//得到key;
}
RegCloseKey( hProgID );
}
}
2、通过OPCNUM
IOPCServerList *gpOPC;
HRESULT hr, hr2;
IEnumGUID *pEnumGUID;
CLSID catid, clsid;
unsigned long c;
LPOLESTR pszProgID, pszUserType;
// create the enumerator object
gpOPC = CreateServerEnumerator(pathname);
if (gpOPC == NULL)
{
DoErrorMsg ( 0, "Failed to Execute OPCENUM");
// revert to search of Registry if OPCENUM fails to execute
return (GetServerListFromRegistry());
}
// use category id's to enumerate server list
catid = CATID_OPCDAServer20;
gpOPC->EnumClassesOfCategories(1, &catid,
1, &catid, &pEnumGUID);
if (pEnumGUID != NULL)
{
while (SUCCEEDED(hr = pEnumGUID->Next(1, &clsid, &c)))
{
if (!ValidCLSID(clsid))
break;
// add server name to list
//得到 clsid;
hr2 = gpOPC->GetClassDetails(clsid, &pszProgID, &pszUserType);
if (FAILED(hr2))
//错误处理
else
{
//得到pszProgID;
CoTaskMemFree(pszProgID);
CoTaskMemFree(pszUserType);
}
}
pEnumGUID->Release();
}
gpOPC->Release();
以上仅供参考
发表于：2008-01-24 22:43:00
15楼
这是我用C++BUILDER展开IP地址显示N个OPC SERVERS的片段:
void __fastcall TFrame1::TreeView1Expanding(TObject *Sender,
TTreeNode *Node, bool &AllowExpansion)
{
int level=Node->Level;
Node->DeleteChildren(); //展开前先清除所有子节点
switch(level)
{
case 0: // 展开0层
{
DataType *data=(DataType *)Node->Data;
WideString ip=*data->Ref;
TCOMIOPCAutoServer opc=CoOPCServer::Create();
OleVariant sv=(OleVariant)opc->GetOPCServers((OleVariant)ip.c_bstr());
int i0=sv.ArrayLowBound();
int i1=sv.ArrayHighBound();
for (int i=i0;i<=i1;i++)
{
WideString opc1=(BSTR)sv.GetElement(i);
TTreeNode *node=TreeView1->Items->AddChild(Node,String(opc1));
node->Data=NULL; // 指向实例
node->HasChildren=true;
}
opc.Release();
}
break;
void __fastcall TFrame1::TreeView1Expanding(TObject *Sender,
TTreeNode *Node, bool &AllowExpansion)
{
int level=Node->Level;
Node->DeleteChildren(); //展开前先清除所有子节点
switch(level)
{
case 0: // 展开0层
{
DataType *data=(DataType *)Node->Data;
WideString ip=*data->Ref;
TCOMIOPCAutoServer opc=CoOPCServer::Create();
OleVariant sv=(OleVariant)opc->GetOPCServers((OleVariant)ip.c_bstr());
int i0=sv.ArrayLowBound();
int i1=sv.ArrayHighBound();
for (int i=i0;i<=i1;i++)
{
WideString opc1=(BSTR)sv.GetElement(i);
TTreeNode *node=TreeView1->Items->AddChild(Node,String(opc1));
node->Data=NULL; // 指向实例
node->HasChildren=true;
}
opc.Release();
}
break;
热门招聘
相关主题
- OPC技术及其在工控组态软件中...
[10589] - 用C#开发了客户端开发工具包...[6672]
- 请教OPC XML DA Gateway的开...[6812]
- FactoryTalk通过KEPServer连...[1577]
- 有人有OpcNetApi.dll和OpcNe...[2143]
- 如何根据当前冗余SERVER状态...[1385]
- 请问用QT，C++ ，如何开发OPC客...[5150]
- 写了个opc server，有兴趣的可...[1504]
- 项目合作[1536]
- OPCServer的Connect方法所需...[1514]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
