使用ATL编写一个简单的COM服务器

核心提示： STDMETHODIMP CFirst_ATL::AddNumbers(long Num1, long Num2, long *ReturnVal){// TODO: Add your implementation code here*ReturnVal = Num1 + Num2;ret

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”（如图八），然后选中它。

（图八）

单击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