VC++ : VS2008 使用ATL开发COM组件
新建ATL Project,工程名命名为MyAtlCom;
出现工程 向导,一路“Next”;
Add class,点击添加 ATL Simple Object , 类名CStatistic, 接口IStatistic,“Next”到底;
打开类视图,可以看到ATLCOM下新增了CStatistic类和IStatistic接口;
在ISample上右键,Add->Add Method (或Add Property...)来丰富接口了,然后在CStatistic内实现相应的的方法(属性)即可。
增加一个Add方法:
STDMETHOD(Add)(LONG nNum1, LONG nNUm2, LONG* nRet); STDMETHODIMP CStatistic::Add(LONG nNum1, LONG nNUm2, LONG* nRet)
{
// TODO: Add your implementation code here *nRet = nNum1 + nNUm2;
return S_OK;
}
编译运行,生成MyAtlCom.dll,并注册到Windows中去。
下面,测试上述生成的COM组件MyAtlCom.dll
新建一个Win32控制台应用程序,取名MyAtlComTest
#include "stdafx.h"
#include<iostream>
using namespace std;
#include "../MyAtlCom/MyAtlCom_i.h"
#include "../MyAtlCom/MyAtlCom_i.c" int _tmain(int argc, _TCHAR* argv[])
{
IStatistic * pIStatisticATL = NULL;
HRESULT hr = CoInitialize(NULL); //初始化COM //使用SUCCEEDED宏并检查我们是否能得到一个接口指针
if(SUCCEEDED(hr))
{
hr = CoCreateInstance(CLSID_Statistic,
NULL,
CLSCTX_INPROC_SERVER,
IID_IStatistic,
(void **)&pIStatisticATL);
//如果成功,则调用Add方法,否则显示相应的出错信息
if(SUCCEEDED(hr))
{
LONG nReturnValue;
pIStatisticATL->Add(, , &nReturnValue);
cout << "The Add result for 8 + 9 is " << nReturnValue << endl;
pIStatisticATL->Release();
}
else
{
cout << "CoCreateInstance Failed." << endl;
}
}
CoUninitialize(); //释放COM
return ;
}
结果:

或使用IDispath接口
#include "stdafx.h" #include <atlbase.h>
#include <atlcom.h>
#include <iostream>
using namespace std; #include "../MyAtlCom/MyAtlCom_i.h"
#include "../MyAtlCom/MyAtlCom_i.c" int _tmain(int argc, _TCHAR* argv[])
{
CoInitializeEx(NULL, COINIT_MULTITHREADED); CComPtr<IStatistic> spCar;
spCar.CoCreateInstance(CLSID_Statistic); // use IDispatch
DISPID PropertyID[] = {};
BSTR PropName[]; PropName[] = SysAllocString(L"Add");
HRESULT hr = spCar->GetIDsOfNames(IID_NULL, PropName, , LOCALE_SYSTEM_DEFAULT, PropertyID); SysFreeString(PropName[]); CComVariant avarParams[];
avarParams[].vt = VT_I4;
avarParams[] = ; avarParams[].vt = VT_I4;
avarParams[] = ; LONG vTotal = ;
avarParams[].vt = VT_I4 | VT_BYREF;
avarParams[] = &vTotal; DISPPARAMS params = { avarParams,
NULL, // Dispatch identifiers of named arguments.
, // Number of arguments.
}; // Number of named arguments.
CComVariant Result;
hr = spCar->Invoke(PropertyID[], IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, ¶ms, &Result, NULL, NULL); cout << "The Add function result is " << (int)(*params.rgvarg->plVal) << endl; spCar.Release(); CoUninitialize(); cin.get();
return 0;
}
结果:

使用COleDispatchDriver封装类
#include "stdafx.h" #include <atlbase.h>
#include <atlcom.h>
#include <iostream>
using namespace std; #include "../MyAtlCom/MyAtlCom_i.h"
#include "../MyAtlCom/MyAtlCom_i.c" int _tmain(int argc, _TCHAR* argv[])
{
CoInitialize(NULL); COleDispatchDriver disp;
COleException *e = new COleException; try {
// Create instance of MyAtlCom Control by using CLSID.
if (disp.CreateDispatch(CLSID_Statistic, e))
{
static BYTE params[] = VTS_I4 VTS_I4 VTS_I4;
LONG nNum1 = ;
LONG nNum2 = ;
LONG nAdd = ; disp.InvokeHelper(0x01,
DISPATCH_METHOD,
VT_EMPTY,
NULL,
params,
nNum1, nNum2, &nAdd); if (nAdd == nNum1 + nNum2)
AfxMessageBox(_T("InvokerHelper successed!"));
else
{
CString cStr;
cStr.Format(_T("InvokerHelper Failed! Error %d"), GetLastError());
AfxMessageBox(cStr);
}
}
else
throw e; } //Catch control-specific exceptions.
catch (COleDispatchException * e)
{
CString cStr; if (!e->m_strSource.IsEmpty())
cStr = e->m_strSource + " - ";
if (!e->m_strDescription.IsEmpty())
cStr += e->m_strDescription;
else
cStr += "unknown error"; AfxMessageBox(cStr, MB_OK,
(e->m_strHelpFile.IsEmpty())? :e->m_dwHelpContext); e->Delete();
} e->Delete(); CoUninitialize(); cin.get();
return ;
}
本文源码下载:仅供学习参考
百度云:http://pan.baidu.com/s/1pL13D03 密码:88ix
VC++ : VS2008 使用ATL开发COM组件的更多相关文章
- 用ATL开发和部署ActiveX网页控件
用ATL开发和部署ActiveX网页控件 摘 要 ActiveX插件技术广泛的运用于B/S系统中,本文通过一个项目实例,详细介绍用ATL开发和部署ActiveX网页控件的过程.学习使用ActiveX让 ...
- ATL实现COM组件
参考文献:https://blog.csdn.net/Marcus2006/article/details/41978799 ATL实现COM组件比较简单,关键是在程序中如何调用该组件. vs2010 ...
- VC 中的ATL ActiveX 和 MFC ActiveX 有什么区别
原文转自 https://www.cnblogs.com/zhwl/archive/2012/11/29/2794509.html ATL是ActiveXTemplateLibrary的缩写,它是一套 ...
- ATL开发 ActiveX控件的 inf文件模板
ATL开发 ActiveX控件的 inf文件模板
- iOS开发之组件化架构漫谈
前段时间公司项目打算重构,准确来说应该是按之前的产品逻辑重写一个项目.在重构项目之前涉及到架构选型的问题,我和组里小伙伴一起研究了一下组件化架构,打算将项目重构为组件化架构.当然不是直接拿来照搬,还是 ...
- 使用OC开发phonegp 组件
使用OC开发phonegp 组件 1. 使用oc 对phonegp中的组件近些开发,首先具体的pgonegp跟nativecode之间的一些优劣就不说了,开发phonegp 对应的组件主要就是使用na ...
- 【小程序】小程序开发自定义组件的步骤>>>>>>>>>小程序开发过程中报错:jsEnginScriptError
报错:jsEnginScriptError VM6342: jsEnginScriptError Component is not found in path "component/spac ...
- web前端开发常用组件
web前端开发常用组件 1. 对话框(dialog):jbox(适合对话框等其它功能).colorbox(也很强大,可以弥补jbox图片轮播的落点), 这二者基本能搞定所有对话框的情况 2. ...
- 038——VUE中组件之WEB开发中组件使用场景与定义组件的方式
<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8&quo ...
随机推荐
- linux系统信息查询及相关概念
1.查看机器可以插几根内存条: /sbin/lspci -v 或dmesg 或 dmidecode(需要root) 2.查看机器有几块盘,是否做raid: blkid 或 fdisk -l 或 s ...
- Chisel Tutorial(七)——模块
下面内容根据2015-7-10版的Chisel 2.2 Tutorial整理 Chisel中的模块与Verilog HDL中模块的概念十分相似,都是用层次结构描写叙述电路.Chisel中的module ...
- 窗体彻底关闭事件FormClosed
//Application.Exit()是退出整个应用程序 Application.ExitThread();//强制中止调用线程上的所有消息,同样面临其它线程无法正确退出的问题 System.Dia ...
- ny737 石子合并(一) 总结合并石子问题
描述: 在一个圆形操场的四周摆放着n 堆石子.现要将石子有次序地合并成一堆. 规定每次只能选相邻的2 堆石子合并成新的一堆,并将新的一堆石子数记为该次合并的得分. 试设计一个算法,计算出将n堆石子合并 ...
- django:DateTimeField如何自动设置为当前时间并且能被修改 ——django日期时间字段的使用
创建django的model时,有DateTimeField.DateField和TimeField三种类型可以用来创建日期字段,其值分别对应着datetime().date().time()三中对象 ...
- Web攻防系列教程之文件上传攻防解析(转载)
Web攻防系列教程之文件上传攻防解析: 文件上传是WEB应用很常见的一种功能,本身是一项正常的业务需求,不存在什么问题.但如果在上传时没有对文件进行正确处理,则很可能会发生安全问题.本文将对文件上传的 ...
- js JSON对象与字符串相互转换
从服务器接收到数据一般是字符串的形式.如果是JSON格式的字符串,就需要先将其转换成JSON对象.JSON对象在浏览器输出为objcet,我们看不到具体的数据.所以将JSON对象转换成字符串. 下面将 ...
- org.eclipse.jdt.internal.compiler包下的类找不到
到maven库上下载jar包:org.eclipse.jdt.core-3.13.jar <!-- https://mvnrepository.com/artifact/org.eclipse. ...
- 【iOS】TableView的footerView不随cell滚动而停留在tableView底部的问题
苹果官方给我提供TableView的FooterView和HeaderView停留在顶部的非常不错效果,有时候我们不须要这些FooterView和HeaderView停留在底部或者上部,如今就以Foo ...
- QT4.8.5 QComboBox 增加选择菜单记录
QT4.8.5 QComboBox 增加选择菜单记录 因为软件需要测试多个UART ,多个LAN,当要测试多个同样功能的时候就可以使用QComboBox类实现一个菜单选择功能. 步骤如下: 1. 在U ...