VS创建ATL项目,ActiveX控件

1. 前言

最近一直在做浏览器控件相关,面向IE浏览器。虽然IE有各种缺点,但是还是有很多项目是基于IE的。呃呃呃,比如需要与硬件交互,可以需要多个控件配合,最起码我遇到了(签名控件VCTK和一些远程验签的控件)。刚开始我是维护读取证书控件(USBKey),惭愧,当时连PKCS11和国密接口以及CSP接口是什么都不知道。直到做签名控件的时候,才慢慢区别这三种。以前我一直是这三种混用,维护的代码是这样的混用的。但我真正创建一个新项目用集成的时候,发现PKCS11用的好麻烦,而且不同USBKey厂家支持的属性可能不一样,除非跨平台,不然我不会考虑用PKCS11的。我建议厂家如果实现了国密接口,就用国密的,因为国密文档清晰而且少,PKCS11文档都261页,相当于一本书了,国密的文档才42页。当然也可以使用CSP,我现在没有这么使用CSP,就不谈这个了。下面回到正题。

2. 正题

2.1. 创建项目

(1)点击创建项目,选择ATL,选中ATL项目。输入项目名称,选择项目位置。

VS创建ATL项目,ActiveX控件_第1张图片

 (2)点击确定,然后在点击下一步(这个就不截图了)。勾选合并代理(因为开发的浏览器控件),勾选MFC(可以不选,按个人情况),点击完成。

VS创建ATL项目,ActiveX控件_第2张图片

(3)VS给我们生成的目录结构是这样的

VS创建ATL项目,ActiveX控件_第3张图片

 (4) 先做项目做一些配置,选中项目,点击属性。

VS创建ATL项目,ActiveX控件_第4张图片

${ProjectDir}代表 F:\blog\ATLDemo\ATLDemo(在我这个项目里面),另外存放头文件的目录只放自己写的头文件和第三方的,不要移动VS生成的文件,因为可能出错。要建四个目录,记住。当然这步可以不用设置,本人习惯而已。

VS创建ATL项目,ActiveX控件_第5张图片

VS创建ATL项目,ActiveX控件_第6张图片

2.2 添加接口

(1)点击类视图-》添加-》类-》ATL-》ATL简单对象-》添加

VS创建ATL项目,ActiveX控件_第7张图片

 (2)只需要输入两个框,其他默认就可以了。

VS创建ATL项目,ActiveX控件_第8张图片

(3) 这个地方不设置,直接下一步。

VS创建ATL项目,ActiveX控件_第9张图片

(4)默认即可,点击完成。

VS创建ATL项目,ActiveX控件_第10张图片

 (5)选是

VS创建ATL项目,ActiveX控件_第11张图片

(6)找到自己刚才输入的名称的头文件,在上面添加IE安全支持。我的头文件是ATLSample.h。

VS创建ATL项目,ActiveX控件_第12张图片

找到ATLSample.cpp,添加上图两个方法的实现,直接复制即可。记住改类名!

STDMETHODIMP CATLSample::GetInterfaceSafetyOptions(REFIID riid,
	DWORD *pdwSupportedOptions,
	DWORD *pdwEnabledOptions)
{
	ATLTRACE(_T("CObjectSafetyImpl::GetInterfaceSafetyOptions\n"));
	if (!pdwSupportedOptions || !pdwEnabledOptions)
		return E_FAIL;
	LPUNKNOWN pUnk;
	if (_InternalQueryInterface (riid, (void**)&pUnk) == E_NOINTERFACE) {
		// Our object doesn't even support this interface.
		return E_NOINTERFACE;
	}else{
		// Cleanup after ourselves.
		pUnk->Release();
		pUnk = NULL;
	}
	if (riid == IID_IDispatch) {
		// IDispatch is an interface used for scripting. If your
		// control supports other IDispatch or Dual interfaces, you
		// may decide to add them here as well. Client wants to know
		// if object is safe for scripting. Only indicate safe for
		// scripting when the interface is safe.
		*pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER;
		*pdwEnabledOptions = m_dwCurrentSafety &
			INTERFACESAFE_FOR_UNTRUSTED_CALLER;
		return S_OK;
	}else if ((riid == IID_IPersistStreamInit) ||
		(riid == IID_IPersistStorage)) {
			// IID_IPersistStreamInit and IID_IPersistStorage are
			// interfaces used for Initialization. If your control
			// supports other Persistence interfaces, you may decide to
			// add them here as well. Client wants to know if object is
			// safe for initializing. Only indicate safe for initializing
			// when the interface is safe.
			*pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_DATA;
			*pdwEnabledOptions = m_dwCurrentSafety &
				INTERFACESAFE_FOR_UNTRUSTED_DATA;
			return S_OK;
	}else{
		// We are saying that no other interfaces in this control are
		// safe for initializing or scripting.
		*pdwSupportedOptions = 0;
		*pdwEnabledOptions = 0;
		return E_FAIL;
	}
}
STDMETHODIMP CATLSample::SetInterfaceSafetyOptions(REFIID riid,
	DWORD dwOptionSetMask,
	DWORD dwEnabledOptions)
{
	ATLTRACE(_T("CObjectSafetyImpl::SetInterfaceSafetyOptions\n"));
	if (!dwOptionSetMask && !dwEnabledOptions) return E_FAIL;
	LPUNKNOWN pUnk;
	if (_InternalQueryInterface (riid, (void**)&pUnk) == E_NOINTERFACE) {
		// Our object doesn't even support this interface.
		return E_NOINTERFACE;
	}else{
		// Cleanup after ourselves.
		pUnk->Release();
		pUnk = NULL;
	}
	// Store our current safety level to return in
	// GetInterfaceSafetyOptions
	m_dwCurrentSafety |= dwEnabledOptions & dwOptionSetMask;
	if ((riid == IID_IDispatch) &&
		(m_dwCurrentSafety & INTERFACESAFE_FOR_UNTRUSTED_CALLER)) {
			// Client wants us to disable any functionality that would
			// make the control unsafe for scripting. The same applies to
			// any other IDispatch or Dual interfaces your control may
			// support. Because our control is safe for scripting by
			// default we just return S_OK.
			return S_OK;
	}else if (((riid == IID_IPersistStreamInit) ||
		(riid == IID_IPersistStorage)) &&
		(m_dwCurrentSafety & INTERFACESAFE_FOR_UNTRUSTED_DATA)) {
			// Client wants us to make the control safe for initializing
			// from persistent data. For these interfaces, this control
			// is safe so we return S_OK. For Any interfaces that are not
			// safe, we would return E_FAIL.
			return S_OK;
	}else{
		// This control doesn't allow Initialization or Scripting
		// from any other interfaces so return E_FAIL.
		return E_FAIL;
	}
}

2.3 开始写接口

(1)添加方法,找到以I开头的的类,添加方法。

VS创建ATL项目,ActiveX控件_第13张图片

(2)一定要先选择参数特性,in 代表输入,out代表输出,retval代表把这个参数当做返回值来用。返回值参数一定要最后一个参数再添加。

VS创建ATL项目,ActiveX控件_第14张图片

VS创建ATL项目,ActiveX控件_第15张图片

(3) 点击下一步,可以输入 帮助信息(helpString)。

VS创建ATL项目,ActiveX控件_第16张图片

(4)查看生成的方法,在 ATLDemo.cpp中找到自己刚才填写的方法。

VS创建ATL项目,ActiveX控件_第17张图片

(5)自己写一些代码,我自己写的比较简单,只是返回一个版本号。

VS创建ATL项目,ActiveX控件_第18张图片

编译项目,如果装了360,选择允许本次操作。代码已经写完了,该写测试页面了。

2.4 html测试页面

(1)首先找到CLSID,将其复制下来。本例中是A69D19E6-E1EE-4F1E-9DC9-DA77AB35C103

VS创建ATL项目,ActiveX控件_第19张图片

(2)编写html页面,将步骤1中的CLSID复制到html中,如图所示:

VS创建ATL项目,ActiveX控件_第20张图片

 (3)用IE打开页面,看看是否正常调用。(PS:正常)

VS创建ATL项目,ActiveX控件_第21张图片

2.5 带页面调试

 (1)先配置项目属性,选择调试-》填写命令和参数。如图:

VS创建ATL项目,ActiveX控件_第22张图片

(3)启动调试,这个时候IE会自动打开。

VS创建ATL项目,ActiveX控件_第23张图片

 (4)附加到进程,这样断点才会有效。

VS创建ATL项目,ActiveX控件_第24张图片

VS创建ATL项目,ActiveX控件_第25张图片

(5) 点击页面,调用方法。

VS创建ATL项目,ActiveX控件_第26张图片

3. 总结

总的来说,按照向导创建ATL项目其实不难,如果遇到不懂的,可以先写上,慢慢琢磨。现在ActiveX资料比较少,有时间的话可以去看看书。

 

你可能感兴趣的:(ATL)