// RemoteClient.cpp : Defines the entry point for the console application.file://#include "stdafx.h" // added _WIN32_DCOM#include // get "cout"#include // get _com_error#include // get time_t// extract definitions from server project#include "..\RemoteServer\RemoteServer.h"#include "..\RemoteServer\RemoteServer_i.c"// forward reference for status display methodvoid ShowStatus( HRESULT hr );int main(int argc, char* argv[])
{
HRESULT hr; // COM error code IGetInfo *pI; // pointer to interface // Get the server name from user char name[32]; cout << "Enter Server Name:" << endl; gets( name ); _bstr_t Server = name; // remote server info COSERVERINFO cs; // Init structures to zero memset(&cs, 0, sizeof(cs)); // Allocate the server name in the COSERVERINFO struct cs.pwszName = Server; // structure for CoCreateInstanceEx MULTI_QI qi[1]; memset(qi, 0, sizeof(qi)); // initialize COM hr = CoInitialize(0); ShowStatus( hr ); // macro to check for success if (SUCCEEDED(hr))
{
// set a low level of security hr = CoInitializeSecurity(NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_NONE, RPC_C_IMP_LEVEL_IMPERSONATE,NULL, EOAC_NONE, NULL); // init security ShowStatus( hr );
} if (SUCCEEDED(hr)) { // Fill the qi with a valid interface qi[0].pIID = &IID_IGetInfo; // get the interface pointer hr = CoCreateInstanceEx( CLSID_GetInfo, // clsid NULL, // outer unknown CLSCTX_SERVER, // server context &cs, // server info 1, // size of qi qi ); // MULTI_QI array ShowStatus( hr ); } if (SUCCEEDED(hr)) { BSTR bsName; // Basic style string // Extract the interface from the MULTI_QI strucure pI = (IGetInfo*)qi[0].pItf; // Call a method on the remote server hr = pI->GetComputerName( &bsName ); ShowStatus( hr ); // Convert name to a printable string _bstr_t bst( bsName ); cout << "Server Name :" << bst << endl; // get time from remote computer time_t tt; hr = pI->GetTimeT(&tt ); ShowStatus( hr ); // display time_t as a string cout << "Server Time :" << ctime( &tt ) << endl; // Release the interface pI->Release(); } // Close COM CoUninitialize(); // Prompt user to continue cout << "Press ENTER to continue" << endl; getchar(); return 0;
} // Display detailed status information void ShowStatus( HRESULT hr ) { if (SUCCEEDED(hr)) { cout << "OK" << endl; } else { // construct a _com_error using the HRESULT _com_error e(hr); char temp[32]; // convert to hexidecimal string and display sprintf( temp, "0x%x", hr ); cout << "Error : " << temp << endl; // The hr as a decimal number cout << "Decimal : " << hr << endl; // show the 1st 16 bits (SCODE) cout << "SCODE : " << HRESULT_CODE( hr ) << endl; // Show facility code as a decimal number cout << "Facility: " << HRESULT_FACILITY( hr ) << endl; // Show the severity bit cout << "Severity: " << HRESULT_SEVERITY( hr ) << endl; // Use the _com_error object to format a message string. This is // Much easier then using ::FormatMessage cout << "Message : " << e.ErrorMessage() << endl; } }相对于DCOM的创建，一个明显的改动是我们指定了服务器计算机的名字。以下就是我们必须加入到客户端的东西：
。指定服务器计算机名字的方法。它将载入到COSERVERINFO结构体
。调用CoCreateInstanceEx()代替CoCreateInstance()。这将包括有一些不同的参数和一个称为MULTI_QI的结构体
通过COSERVERINFO指定服务器
进行远程DCOM连接时，你必须指定服务器计算机的名字。计算机的名字可以是一个标准的UNC计算机名字或者是一个TCP/IP地址。我们将要求用户输入计算机的名字。我们的例子是一个控制台应用，因此我们将使用一个简单的输入流(include
| // Get the server name from user char name[32]; cout << "Enter Server Name:" << endl; gets( name ); |
该服务器的名字将会被载入到一个COSERVERINFO结构体中。这个结构体需要一个指向宽字符（wide-character）的指针以得到服务器的名字。我们将使用_bstr_t copy构造器来转换该字符，在与BSTRs和宽字符配合时，_bstr_t是一个很有用的类。要注意到COSERVERINFO结构体会通过memset()函数初始化为0。
| // remote server info COSERVERINFO cs; // Init structures to zero memset(&cs, 0, sizeof(cs)); // Allocate the server name in the COSERVERINFO struct // use _bstr_t copy constructor cs.pwszName = _bstr_t(name); |
通过MULTI_QI指定接口
我们一般通过调用CoCreateInstance得到一个接口指针。对于DCOM来说，我们需要使用扩展的版本CoCreateInstanceEx。这个扩展的函数对于本地的COM服务器调用也是适用的。CoCreateInstanceEx有几个重要的区别。首先，它可让你指定服务器的名字；第二，通过一次调用，它可让你得到超过一个的接口。
我们已经设置好COSERVERINFO结构体。我们将把它传送到CoCreateInstanceEx以指定服务器（如果你将该参数设置为NULL，你将使用本地的计算机）。
以一般的版本不同，CoCreateInstanceEx可一次返回超过一个接口。它通过传送MULTI_QI结构体的一个数组来做到这一点。数组的每个元素指定了一个单一的接口。CoCreateInstanceEx将会填入到数据请求中。
| // structure for CoCreateInstanceEx MULTI_QI qi[2]; // Array of structures // set to zero memset(qi, 0, sizeof(qi)); // Fill the qi with a valid interface qi[0].pIID = &IID_IGetInfo; qi[1].pIID = &IID_ISomeOtherInterface; // get the interface pointer hr = CoCreateInstanceEx( CLSID_GetInfo, // clsid NULL, // outer unknown CLSCTX_SERVER, // server context &cs, // server info 2, // size of qi qi ); // MULTI_QI array |
......
剩余的代码只是一般的COM客户代码。一旦你连接到服务器，DCOM的代码就没有什么特别的。
在远程连接中，命名解析是一个恼人的问题。大部分人都想直接使用“\\RAOUL”或者“\\SERVER”的名字进行工作，而不是TCP/IP地址。将可读的名字转换为一个网络地址的过程就称为命名解析，在某些系统配置上，它可能是非常复杂的。一个简单的解决办法是通过服务器的TCP/IP地址来访问它。这将可以消除许多命名解析问题--这个问题已经超出了本文的讨论。在COSERVERINFO结构体中，你可以使用TCP/IP地址来代替标准的计算机名字。
你也可以从TRACERT（跟踪路由）工具中得到有趣的信息。如果你有一个复杂的网络配置，跟踪结果可能是：
C:\> TRACERT www.iftech.com
Tracing route to www.iftech.com 216.27.33.21
over a maximum of 30 hops:
1 184 ms 169 ms 182 ms ct1.intercenter.net [207.211.129.2]
2 182 ms 189 ms 188 ms ts-gw1.intercenter.net [207.211.129.1]
3 195 ms 192 ms 161 ms ilan-gw1.intercenter.net [207.211.128.1]
4 220 ms 178 ms 206 ms 206.152.70.33
5 188 ms 207 ms 216 ms 207.211.122.2
6 196 ms 189 ms 205 ms 216.27.1.71
7 * * * Request timed out.
8 201 ms 221 ms 197 ms rampart.iftech.com [216.27.12.142]
9 210 ms 205 ms 192 ms www.iftech.com [216.27.33.21]
Trace complete.
C:\>
就象你看到的，你的DCOM包到目的地的路由可以是很复杂的。
要特别留意网关、路由器、代理和防火墙，因为它们经常会阻塞你的连接。特别是防火墙，因为它们经常会阻塞DCOM包，可与网络管理员一起检查一下。
问题：不知道用vb是怎么来创建DCOM的？大家可以给我点建议吗？