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;
}
<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>
<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>
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;
}
<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>
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有