转载自: http://dhailin.blog.163.com/blog/static/230738322011128102043880/
首先创建一个COM组件,插入一个双接口Itest,在此接口上实现以下三个方法:
[cpp] view plaincopy
- STDMETHODIMP Ctest::test(void) //无输入输出参数
- {
- // TODO: 在此添加实现代码
- MessageBox(NULL,L"test",L"test",MB_OK);
- return S_OK;
- }
- STDMETHODIMP Ctest::test1(BSTR a1) //有一个字符串输入参数
- {
- // TODO: 在此添加实现代码
- MessageBox(NULL,a1,L"test",MB_OK);
- return S_OK;
- }
- STDMETHODIMP Ctest::test3(BSTR* a1) //有一个BSTR* 输出参数
- {
- // TODO: 在此添加实现代码
- MessageBox(NULL,L"test3",L"test",MB_OK);
- *a1=::SysAllocString (L"烽火连三月家书抵万金");
- return S_OK;
- }
COM 中的上述三个方法分别演示无输入输出参数、有一个输入参数、有一个输出参数三种情况。程序编制好后,用regsvr32在系统中注册组件,然后就可以在IE中用javascript调用com 组件的方法了,分两种情况掉用,示例如下:
1、 直接调用com方法
建立一个html文本,并输入以下内容:
[html] view plaincopy
- <html>
- <head>
- <title> 调用com组件的方法示例 </title>
- <script language="javascript">
- document.write("<hr>")
- var xml=new ActiveXObject("atldll.test.1")
- xml.test()
- xml.test1("向com方法中传递参数并调用com方法")
- var str=xml.test3() //从com方法中返回参数
- document.write("str"+str)
- document.write(“<hr>”)
- </script>
- </head>
- <body>
- 演示IE脚本程序中调用com组件的方法
- </body>
- </html>
2、 在javascript函数中调用com方法
建立一个html文本,并输入以下内容:
[html] view plaincopy
- <html>
- <head>
- <title> donghailin active object </title>
- <script type="text/javascript">
- function displaymessage()
- {
- document.write("<hr>")
- var xml=new ActiveXObject("atldll.test.1")
- xml.test()
- xml.test1("向com组件传递字符串")
- var str=xml.test3() //从com组件返回字符串
- document.write("str"+str)
- document.write(“<hr>”)
- }
- </script>
- </head>
- <body>
- <form>
- <input type="button" value="Click me!" onclick="displaymessage()" >
- </form>
- </body>
- </html>
注意编写的com组件供其他系统调用,因此输入输出参数字符串应是BSTR类型。
3、设置com组件的属性的方法
首先在com组件中设置属性。在接口类中赠加属性变量
BSTR m_bstr;
右键单击接口,选择“赠加”-〉“添加属性”在”添加属性向导中“输入属性类型” 中输入参数类型“BSTR” ,“属性名”输入“bstr",向导自动生成属性函数put_bstr和get_bstr,如下:
[cpp] view plaincopy
- STDMETHODIMP Ctest::get_bstr(BSTR* pVal)
- {
- // TODO: 在此添加实现代码
- *pVal=m_bstr;
- return S_OK;
- }
- STDMETHODIMP Ctest::put_bstr(BSTR newVal)
- {
- // TODO: 在此添加实现代码
- m_bstr=newVal;
- MessageBox(NULL,m_bstr,L"属性测试",MB_OK);
- return S_OK;
- }
下面的代码演示在IE的javascript脚本中设置和获得属性
[html] view plaincopy
- <html>
- <head>
- <title> donghailin active object </title>
- <script type="text/javascript">
- function displaymessage()
- {
- document.write("<hr>")
- var xml=new ActiveXObject("atldll.test.1")
- xml.bstr="满园春色锁不住一枝红杏出墙来" //属性是bstr,C++ 中属性设置是put_bstr(...)
- document.write("属性返回值是:"+xml.bstr) //c++中获得属性值get_bstr(变量指针)
- document.write("<hr>")
- }
- </script>
- </head>
- <body>
- <table align=center width=50>
- <form>
- <input type="button" value="Click me!" onclick="displaymessage()" >
- </form>
- </table>
- </body>
- </html>
时间: 2024-09-20 19:16:11