Я пишу OPC-клиент для получения и отправки тегов на OPC-сервер, и у меня есть эта ошибка:
WTclient — не удалось выполнить OPCENUM
Мой код очень прост, и я следую примеру приложения, которое я нашел в Интернете, которое работает отлично.
Моя программа отлично компилируется и запускается, но когда достигает Numbr = NumberOfOPCServers (TRUE, MachineName); строка, что ошибка выскакивает.
Мой .ccp это:
#include "stdafx.h"#include "opcda.h"#include "opc_ae.h"#include "wtclientapi.h"#include "OPC2.h"
int _tmain(int argc, _TCHAR* argv[])
{
int Numbr;
MachineName = "";
Numbr = NumberOfOPCServers(TRUE, MachineName);
return 0;
}
Подробно отлаживая еще один пример из интернета, я обнаружил, что ошибка исходит от этой функции:
int CWTclientApp::GetServerListFromOPCENUM(CString pathname)
{
IOPCServerList *gpOPC;
HRESULT hr, hr2;
IEnumGUID *pEnumGUID;
CLSID catid, clsid;
unsigned long c;
LPOLESTR pszProgID, pszUserType;
int i;
OPCSVRDESCR *pSvr;
for (i=0; i<MyServerList.GetSize(); i++)
{
pSvr = (OPCSVRDESCR *)MyServerList.GetAt(i);
delete (pSvr);
}
MyServerList.RemoveAll();
// 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());
}
............................................
которая вызывается из функции NumberOfOPCServers ():
_declspec(dllexport) int WINAPI NumberOfOPCServers (bool UseOPCENUM, LPCSTR MachineName)
{
CWTclientApp *pApp;
CString path;
path = MachineName;
path.MakeUpper();
if (path == "LOCAL")
path = "";
else
path = MachineName;
pApp = (CWTclientApp *)AfxGetApp();
if (UseOPCENUM)
return (pApp->GetServerListFromOPCENUM(path));
else
return (pApp->GetServerListFromRegistry());
}
Есть идеи, почему у меня есть эта ошибка? Похоже, OPCenum.exe не перечисляет мой OPC-сервер, работающий на моей машине (локальный сервер), но почему? (с загруженным приложением делает, а с моим нет)
Спасибо!!!!
РЕДАКТИРОВАТЬ ————————————————- ————————
CreateServerEnumerator ():
IOPCServerList *CWTclientApp::CreateServerEnumerator (CString PathName)
{
HRESULT r2;
MULTI_QI mqi;
COSERVERINFO sin, *sinptr;
DWORD clsctx;
// set up server info
//
if (PathName.GetLength() > 0)
{
sinptr = &sin;
sin.dwReserved1 = 0;
sin.dwReserved2 = 0;
sin.pwszName = WSTRFromCString (PathName, FALSE);
sin.pAuthInfo = 0;
clsctx = CLSCTX_REMOTE_SERVER;
}
else
{
sinptr = 0; // pointer should be NULL if local
clsctx = CLSCTX_LOCAL_SERVER;
}
// set up mqi
//
mqi.pIID = &IID_IOPCServerList;
mqi.hr = 0;
mqi.pItf = 0;
r2 = CoCreateInstanceEx(CLSID_OPCServerList, NULL,
clsctx, sinptr, 1, &mqi);
if (PathName.GetLength() > 0)
WSTRFree (sin.pwszName, FALSE);
if (FAILED(r2) || FAILED(mqi.hr))
return (NULL);
return (IOPCServerList*)mqi.pItf;
}
Просто позвоните CoInitialize (https://msdn.microsoft.com/en-us/library/windows/desktop/ms678543(v=vs.85).aspx) или CoInitializeEx (https://msdn.microsoft.com/en-us/library/windows/desktop/ms695279(v=vs.85).aspx) в каждом потоке, который использует COM (OPC Classic), перед вызовом любых других функций COM.
CoInitialize устарел, поэтому вы должны использовать CoInitializeEx.
Microsoft говорит в своей документации на эту функцию: «CoInitializeEx должен вызываться как минимум один раз, и обычно вызывается только один раз, для каждого потока, который использует библиотеку COM».