首先创建一个COM组件，插入一个双接口Itest，在此接口上实现以下三个方法：
returnS_OK;
}
STDMETHODIMPCtest::test1(BSTRa1)//有一个字符串输入参数
{
//Todo:在此添加实现代码
MessageBox(NULL,a1,MB_OK);
returnS_OK;
}
STDMETHODIMPCtest::test3(BSTRa1)//有一个BSTR输出参数
{
//Todo:在此添加实现代码
MessageBox(NULL,L"test3",MB_OK);
*a1=::SysAllocString(L"烽火连三月家书抵万金");
returnS_OK;
}
COM 中的上述三个方法分别演示无输入输出参数、有一个输入参数、有一个输出参数三种情况。程序编制好后，用regsvr32在系统中注册组件，然后就可以在IE中用javascript调用com 组件的方法了，分两种情况掉用，示例如下：
1、直接调用com方法
<script language="javascript">
document.write("")
var xml=new ActiveXObject("atldll.test.1")
xml.test()
xml.test1("向com方法中传递参数并调用com方法")
var str=xml.test3() //从com方法中返回参数
document.write("str"+str)
document.write(“”)
2、在javascript函数中调用com方法
<script type="text/javascript">
function displaymessage()
{
document.write("")
var xml=new ActiveXObject("atldll.test.1")
xml.test()
xml.test1("向com组件传递字符串")
var str=xml.test3() //从com组件返回字符串
document.write("str"+str)
document.write(“”)
}
注意编写的com组件供其他系统调用，因此输入输出参数字符串应是BSTR类型。
3、设置com组件的属性的方法
BSTR m_bstr;
右键单击接口，选择“赠加”-〉“添加属性”在”添加属性向导中“输入属性类型” 中输入参数类型“BSTR” ，“属性名”输入“bstr",向导自动生成属性函数put_bstr和get_bstr,如下：
STDMETHODIMP Ctest::put_bstr(BSTR newVal)
{
// Todo: 在此添加实现代码
m_bstr=newVal;
下面的代码演示在IE的javascript脚本中设置和获得属性
<script type="text/javascript">
function displaymessage()
{
document.write("")
var xml=new ActiveXObject("atldll.test.1")
xml.bstr="满园春色锁不住一枝红杏出墙来" //属性是bstr,C++ 中属性设置是put_bstr(...)
document.write("属性返回值是："+xml.bstr) //c++中获得属性值get_bstr(变量指针)
document.write("")
}
