总结一下在VC中调用COM组件的方法
准备及条件：
COM服务器为进程内服务器，DLL名为simpCOM.dll,该组件只有一个接口IFoo,该接口只有一个方法HRESULT SayHello(void)
在SDK中调用
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
一、最简单最常用的一种，用#import导入类型库，利用VC提供的智能指针包装类
演示代码:
#import "D:\Temp\vc\simpCOM\Debug\simpCOM.dll" no_namespace
CoInitialize(NULL);
IFooPtr spFoo = NULL;
spFoo.CreateInstance(__uuidof(Foo));
spFoo->SayHello();
spFoo.Release();/*晕死了，本来智能指针就是为了让用户不用关心这个的，可是我发现如果不手工调用一下的话，程序退出后会发生内存访问错误，我是在console中做试验的，哪位大侠知道怎么回事请一定指教*/
CoUninitialize();
二、引入midl.exe产生的*.h,*_i.c文件，利用CoCreateInstance函数来调用
演示代码:
/*在工程中加入*_i.c文件，例如本例的simpCOM_i.c,该文件定义了类和接口的guid值，如果不引入的话，会发生连接错误。*/
#include "D:\Temp\vc\simpCOM\simpCOM.h"
CoInitialize(NULL);
IFoo* pFoo = NULL;
HRESULT hr = CoCreateInstance(CLSID_Foo, NULL, CLSCTX_ALL, IID_IFoo, (void**)&pFoo);
if (SUCCEEDED(hr) && (pFoo != NULL))
{
pFoo->SayHello();
pFoo->Release();
}
CoUninitialize();
三、不用CoCreateInstance，直接用CoGetClassObejct得到类厂对象接口，然后用该接口的方法CreateInstance来生成实例。
演示代码:
/*前期准备如二方法所述*/
IClassFactory* pcf = NULL;
HRESULT hr = CoGetClassObject(CLSID_Foo, CLSCTX_ALL, NULL, IID_IClassFactory, (void**)&pcf);
if (SUCCEEDED(hr) && (pcf != NULL))
{
IFoo* pFoo = NULL;
hr = pcf->CreateInstance(NULL, IID_IFoo, (void**)&pFoo);
if (SUCCEEDED(hr) && (pFoo != NULL))
{
pFoo->SayHello();
pFoo->Release();
}
pcf->Release();
}
四、不用CoCreateInstance or CoGetClassObject,直接从dll中得到DllGetClassObject，接着生成类对象及类实例（本方法适合于你想用某个组件，却不想在注册表中注册该组件）
演示代码:
/*前期准备工作如二方法所述，事实上只要得到CLSID和IID的定义及接口的定义就行*/
typedef HRESULT (__stdcall * pfnGCO) (REFCLSID, REFIID, void**);
pfnGCO fnGCO = NULL;
HINSTANCE hdllInst = LoadLibrary("D:\\Temp\\vc\\simpCOM\\Debug\\simpCOM.dll");
fnGCO = (pfnGCO)GetProcAddress(hdllInst, "DllGetClassObject");
if (fnGCO != 0)
{
IClassFactory* pcf = NULL;
HRESULT hr=(fnGCO)(CLSID_Foo, IID_IClassFactory, (void**)&pcf);
if (SUCCEEDED(hr) && (pcf != NULL))
{
IFoo* pFoo = NULL;
hr = pcf->CreateInstance(NULL, IID_IFoo, (void**)&pFoo);
if (SUCCEEDED(hr) && (pFoo != NULL))
{
pFoo->SayHello();
pFoo->Release();
}
pcf->Release();
}
}
FreeLibrary(hdllInst);
在MFC中调用
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
在MFC中除了上面的几种方法外，还有一种更方便的方法，就是通过ClassWizard利用类型库生成包装类，不过有个前提就是com组件的接口必须是派生自IDispatch
具体方法：
１、按Ctrl+W调出类向导，按Add Class按钮弹出新菜单，选From a type libarary，然后定位到simpCOM.dll，接下来会出来该simpCOM中的所有接口，选择你想生成的接口包装类后，向导会自动生成相应的.cpp和.h文件.
这样你就可以在你的MFC工程中像使用普通类那样使用COM组件了.
演示代码:
CoInitialize(NULL);
IFoo foo;
if (foo.CreateDispatch("simpCOM.Foo") != 0)
{
foo.SayHello();
foo.ReleaseDispatch();
}
CoUninitialize();
―――――――――――――――――――――――――――――――――――――――
不好意思，不小心发出去了。
_foo,我觉得不一定要调用Release，估计原因是因为spFoo智能指针对象在CoUninitialize()函数以后调用引起的。要是如下面这样调用，应该就没有问题了。
#import "D:\Temp\vc\simpCOM\Debug\simpCOM.dll" no_namespace
CoInitialize(NULL);
{
IFooPtr spFoo = NULL;
spFoo.CreateInstance(__uuidof(Foo));
spFoo->SayHello();
}
CoUninitialize();
本文来自优快云博客，转载请标明出处：http://blog.youkuaiyun.com/sinall/archive/2005/04/23/359555.aspx总结一下在VC中调用COM组件的方法
VC调用远程COM+组件
用VB6向导做成COM+，并在服务器上安装，部分代码如下：（名称为ADOMTS）
Public Function GetADORecordset() As ADOR.Recordset
Dim rsset As ADODB.Recordset
Dim cn As ADODB.Connection
Dim connectstring As String
Dim anerror As ADODB.Error
Dim Sql As String
On Error GoTo rt
connectstring = "Driver={SQL SERVER};Server=192.168.1.123;Database=pubs;UID=sa;"
Sql = "SELECT * FROM authors;"
Set cn = New ADODB.Connection
cn.ConnectionString = connectstring
cn.CursorLocation = adUseClient
cn.Open
Set rsset = cn.Execute(Sql)
Set GetADORecordset = rsset
Exit Function
rt:
For Each anerror In cn.Errors
Debug.Print anerror.Number & ": " & anerror.Description & " - " & anerror.SQLState
Next anerror
End Function
然后用VC6封装DLL(工程名为connect)，远程调用COM+组件（将服务器上的组件导出并在客户端上安装）。利用VC MFC
CLASSWIZARD添加新类，import from type library,将ADOMTS.tlb添加进去。部分代码如下：
int _stdcall GETUSPW()
{
_clsAdoRec * pAccount;
IUnknown *pUnknown;
HRESULT hr;
CoInitialize(NULL);//初始化COM环境
hr = CoInitializeSecurity(
NULL, //Points to security descriptor
-1, //Count of entries in asAuthSvc
NULL, //Array of names to register
NULL, //Reserved for future use
RPC_C_AUTHN_LEVEL_DEFAULT, //The default authentication level for proxies
RPC_C_IMP_LEVEL_IDENTIFY, //The default impersonation level for proxies
NULL, //Reserved; must be set to NULL
0, //Additional client or server-side capabilities
NULL //Reserved for future use
);
COAUTHINFO sAuthInfo;
sAuthInfo.dwAuthnSvc = RPC_C_AUTHN_DEFAULT;
sAuthInfo.dwAuthnLevel = RPC_C_AUTHN_LEVEL_DEFAULT;
//sAuthInfo.dwAuthzSvc = RPC_C_AUTHZ_DEFAULT;
sAuthInfo.dwAuthzSvc = RPC_C_AUTHZ_NONE;
// sAuthInfo.dwCapabilities = EOAC_NONE;//must be
sAuthInfo.dwImpersonationLevel = RPC_C_IMP_LEVEL_IMPERSONATE;//must be
sAuthInfo.pwszServerPrincName = NULL;
sAuthInfo.pAuthIdentityData = (COAUTHIDENTITY*)malloc(sizeof(COAUTHIDENTITY));
sAuthInfo.pAuthIdentityData->User = L"test" ;//访问远程对象所在主机的用户名，宽字符串
sAuthInfo.pAuthIdentityData->UserLength =4; //用户名的字符长度
sAuthInfo.pAuthIdentityData->Password = L"test" ;//密码，宽字符串
sAuthInfo.pAuthIdentityData->PasswordLength = 4; //密码长度
sAuthInfo.pAuthIdentityData->Domain = NULL; //远程主机的域，如果没有域则设置为NULL
sAuthInfo.pAuthIdentityData->DomainLength = 0;//域名长度
sAuthInfo.pAuthIdentityData->Flags = SEC_WINNT_AUTH_IDENTITY_UNICODE;
COSERVERINFO serverInfo;
memset(&serverInfo, 0, sizeof(COSERVERINFO));
serverInfo.pwszName = L"192.168.1.10"; //远程主机的名称
serverInfo.pAuthInfo = &sAuthInfo;
MULTI_QI qi;
memset(&qi, 0, sizeof(MULTI_QI));
qi.pIID = &IID_IUnknown;
CLSID CLSID_InsideCOM = {0xAB363305,0x981B,0x11D1,{0x92,0x92,0x00,0xAA,0x00,0x51,0x0E,0x3B}};
const IID IID_IAccount={0xB363304,0x981B,0x11D1,{0x92,0x92,0x00,0xAA,0x00,0x51,0x0E,0x3B}};
hr=CoCreateInstanceEx(CLSID_InsideCOM,NULL,CLSCTX_REMOTE_SERVER,&serverInfo,1,&qi);
pUnknown = (IUnknown *) qi.pItf;
hr = pUnknown->QueryInterface(IID_IAccount,(void**)&pAccount);
pAccount->GetADORecordset();
pUnknown->Release();
return 0;
}
调用该DLL，单步调试的时候，程序走到CoCreateInstanceEx函数时候没有问题，接着执行接口查询操作
QueryInterface，hr返回0x80070005，访问被拒绝。实在弄不明白，都已经CoCreateInstanceEx成功了，为什么 QueryInterface不成功呢？是我代码写的有问题吗？
http://hi.baidu.com/mingyueye/item/53ebecd44da76917d80e4449
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
