總結一下在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();

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