VC知识库文章 - 使用ATL编写一个简单的COM服务器

   本文的对象是COM编程初学者，其目的旨在描述如何用ATL创建COM服务器，以及如何在VC或VB编写的客户端应用程序中调用COM服务器。为了不给初学者增加负担，本文不打算深入讨论COM和IDL的细节，而是展示用ATL创建简单的COM对象所需要的步骤。希望通过这篇文章能刺激你学习COM编程的欲望。

第一步：运行ATL COM向导（参见图一）
   你要做的第一件事情是启动VC创建一个新的工程。选择“ATL COM AppWizard”。注意这个向导创建的工程并没有包含任何初始的COM对象，在完成这个向导之后，要从“ClassView”中用“New ATL Object”命令来指定你想要增加到这个工程中的对象类型。
在“Project name”编辑框中为工程取个名字：“Simple_ATL”。在“Location”编辑框中指定工程的存放位置，如“E:\samples\Simple_ATL”，然后单击OK按钮。
--------------------next---------------------
在“Short Name”文本编辑框中输入“First_ATL”。注意向导会自动填写其余的文本编辑框。单击“Attributes”标签。其中有几组单选按钮选项和几个复选框。第一组单选按钮是线程模型“Threading Model”，我们取缺省值“Apartment Model”。第二组单选按钮是接口“Interface”，单击“Dual”，也就是双接口。最后，第三组单选按钮是聚合“Aggregation”，因为我们不想涉及接口的聚合，所以在此选择“No”。至于底下的三个复选框，我们不用管它，单击OK按钮让向导创建新的“ATL Simple Object”

第三步：添加方法
   如果你单击工作间的“ClassView”标签，你会注意到向导在里面添加了一些内容。添加一个方法很容易，（图六）选中“IFirst_ATL”后单击右键并选择“Add Method”。
--------------------next---------------------
在“Return Type”编辑框中（已成灰色）这个方法的返回值已经缺省为 “HRESULT”。大多数情况下都应该是这个值类型。下一个编辑框是方法名“Method Name”，输入方法名“AddNumbers”。最后一个编辑框是要你输入希望使用的参数“Parameters”。由于我们打算将两个数字相加，然后返回相加结果，所以要使用三个参数。最后一个参数是一个指针。现在你不用去关心繁杂的接口定义语言IDL，只要在这个参数编辑框中输入如下内容：

[in] long Num1, [in] long Num2, [out] long *ReturnVal
它的意思是声明两个long类型输入[in]参数和一个指针返回值[out]（刚开始可能会不习惯这样怪怪的写法，但等你阅读了一两本关于COM的书之后，会慢慢接收它的）。单击OK按钮。展开所有“ClassView”的节点“+”号。从这个视图可以清楚地了解Simple_ATL各个类之间的层次关系。双击最上面“IFirst_ATL”（接口）节点下的“AddNumbers”（方法）节点，右边屏幕将会显示这个方法的实现代码。添加如下的代码：
STDMETHODIMP CFirst_ATL::AddNumbers(long Num1, long Num2, long *ReturnVal)
{
// TODO: Add your implementation code here
*ReturnVal = Num1 + Num2;

return S_OK;
} 

第四步：编译这个DLL 
  不管你想不相信，到目前为止，我们用ATL所创建的COM服务器已经完全能运行！当然，还需要编译它才行。按下“F7”功能键，几秒钟之后，VC++便会完成编译并注册你所创建的DLL服务器。这样其它的应用程序就可以使用这个COM服务器了。试一试吧！

第五步：用VB测试这个服务器
   为了用VB来测试COM服务器，首先你必须安装VB的开发环境。（如果你没有安装VB或不想用VB测试，可以跳过这一步到下一步：用VC++测试COM服务器。）首先启动VB，选择创建标准EXE“Standard EXE”工程。在对话框中放一个按钮。然后我们要引用COM服务器。单击“Project”菜单并选择“References”。然后下翻页直到可以看见“Simple ATL 1.0 Type Library”（如图八），然后选中它。

--------------------next---------------------
单击OK按钮。现在双击前面在对话框中创建的命令按钮，VB将会带你到这个按钮的代码窗口。然后添加以下代码：
Private Sub Command1_Click()
Dim objTestATL As SIMPLE_ATLLib.First_ATL
Set objTestATL = New First_ATL

Dim lngReturnValue As Long

objTestATL.AddNumbers 5, 7, lngReturnValue

MsgBox "The value of 5 + 7 is: " & lngReturnValue

Set objTestATL = Nothing
End Sub

如果你是个VB程序员，这对你来说简直太容易了。声明变量和对象，调用COM服务器的“AddNumbers”方法，然后显示结果。按下“F5”功能键运行这个VB工程，单击对话框中的命令按钮，你会看到输出的结果。（如图九）
（图九） 下面再让我们用VC++测试这个COM服务器。

第六步：用VC测试这个服务器
   保存并关闭Simple_ATL工程，然后创建一个新的Win32 控制台应用程序。选择“Win32 Console Application”并取名为“Test_ATL”。单击OK按钮并接受对话框中的缺省设置（空的工程）。单击“Finish”按钮，然后再按OK按钮。这样就创建好了一个空的工程。按下“Control+N”键向工程中添加一个文件。从弹出的窗口中选择“C++ Source File”并为它取名为“Test_ATL.cpp”。按下OK按钮。这样工程中就有了一个空的.CPP文件。我们要在这个文件中添加一些测试COM服务器的代码：

// 将头文件的目录指到Simple_ATL工程所在的目录

#include "..\Simple_ATL\Simple_ATL.h"
#include
// 从Simple_ATL 工程所在目录的Simple_ATL_i.c 文件中拷贝以下内容
// 注意: 你也可以不拷贝这些东西，而是把文件Simple_ATL_i.c包含进来。
// 我之所以将它拷进来，是想更清楚地展示这些敞亮来自什么地方一击它们的代码
const IID IID_IFirst_ATL = 
{0xC8F6E230,0x2672,0x11D3,{0xA8,0xA8,0x00,0x10,0x5A,0xA9,0x43,0xDF}};

const CLSID CLSID_First_ATL = 
{0x970599E0,0x2673,0x11D3,{0xA8,0xA8,0x00,0x10,0x5A,0xA9,0x43,0xDF}};

void main(void)
{
// 声明HRESULT和Simple_ATL接口指针
HRESULT hr;
IFirst_ATL *IFirstATL = NULL;

// 初始化COM
hr = CoInitialize(0);

// 使用SUCCEEDED 宏并检查我们是否能得到一个接口指针 
if(SUCCEEDED(hr))
{
hr = CoCreateInstance( CLSID_First_ATL, NULL, CLSCTX_INPROC_SERVER,
IID_IFirst_ATL, (void**) &IFirstATL);

// 如果成功，则调用AddNumbers方法，否则显示相应的出错信息
if(SUCCEEDED(hr))
{
long ReturnValue;

IFirstATL->AddNumbers(5, 7, &ReturnValue);
cout << "The answer for 5 + 7 is: " << ReturnValue << endl;
IFirstATL->Release(); 
}
else
{
cout << "CoCreateInstance Failed." << endl;
}
}
// 释放COM
CoUninitialize();
}

第七步：编译并运行测试程序
   按下“F5”功能键，编译测试程序，然后按“Control+F5”功能组合键运行测试程序。在DOS窗口中，你应该能看到输出的结果。
--------------------next---------------------

我在进行"新建ATL对象"的时候,提示错误信息:"Error Invoking ATL Object wizard Component"的消息框.意思应该是说向导出错.急~~~
我的毕业论文要用这个.
我系统是WinXp,VC6.0是全安装的,还安装了vs.net
不知道问题出在哪里.
我的QQ:87052309
邮箱:[e-mail]
希望问题能得到解决:) ( liziwen1982 发表于 2005-12-12 14:50:00)
 
强烈支持 
最近在做这些东西 特别需要资料 ( thinkz 发表于 2005-12-5 18:41:00)
 
我试了一下在Delphi5中使用此COM服务器的方法：
在Delphi中使用使用Project菜单的Import Type Library项：引入此类型库（要记住你放在了那个palatte中哦，默认是ActiveX控件面板），在Delphi中新建一个工程，在form中加入一个button，把ActiveX控件面板中的Simple_ATL加入form中：button的onclick相应代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
  myint:integer;
begin
  First_ATL1.AddNumbers(5,7,myint);
  Showmessage(inttostr(myint));
end;
试试吧，祝菜鸟成功。 ( ygm99 发表于 2005-5-21 8:42:00)
 
真的，太感谢你了，特别是对于Vc的客户端测试程序的编写。
( HelioSubdue 发表于 2005-4-28 8:58:00)
 
再次感谢您的无私贡献 ( ikohl 发表于 2004-7-23 10:38:00)
 
谢谢，虽然简单但是讲的很好。真心感谢。 ( ayanami 发表于 2004-5-13 17:06:00)
 
运行通过,供参考

#include 
#include "..\Simple_ATL\_simple_ATL.h"
#define MIDL_DEFINE_GUID(type,name,l,w1,w2,b1,b2,b3,b4,b5,b6,b7,b8) \
        const type name = {l,w1,w2,{b1,b2,b3,b4,b5,b6,b7,b8}}

MIDL_DEFINE_GUID(IID, IID_IFirst_ATL,0x24FF5ED1,0x608C,0x4C91,0xA4,0x5D,0xE6,0xE6,0xDC,0x28,0x2D,0x4F);

MIDL_DEFINE_GUID(CLSID, CLSID_First_ATL,0xD5318932,0xC911,0x448A,0xAA,0xC9,0x4F,0xB0,0x9E,0xBA,0x43,0x86);
( mike3w 发表于 2003-8-14 14:19:00)
 
右键添加方法后，为什么没有自动生成函数代码框架啊？？？在下载的工程里可以，我自己新建的就不行，到底是怎么回事啊 ( 飞花落叶 发表于 2003-7-6 1:49:00)
 
请问众位:
加上那个Simple_ATL_i.c后就不用
const IID IID_IFirst_ATL = 
{0xC8F6E230,0x2672,0x11D3,{0xA8,0xA8,0x00,0x10,0x5A,0xA9,0x43,0xDF}};

const CLSID CLSID_First_ATL = 
{0x970599E0,0x2673,0x11D3,{0xA8,0xA8,0x00,0x10,0x5A,0xA9,0x43,0xDF}};
他们了吗?那么如何获得类与接口ID呀 ( yingkou 发表于 2003-6-13 11:04:00)
 
加入#include "Simple_ATL_i.c"

就可以替代以下语句
const IID IID_IFirst_ATL = 
{0xC8F6E230,0x2672,0x11D3,{0xA8,0xA8,0x00,0x10,0x5A,0xA9,0x43,0xDF}};

const CLSID CLSID_First_ATL = 
{0x970599E0,0x2673,0x11D3,{0xA8,0xA8,0x00,0x10,0x5A,0xA9,0x43,0xDF}};



( 知秋一叶 发表于 2003-5-12 22:39:00)
 
.......................................................

--------------------next---------------------