http://download1.csdn.net/down3/20070613/13093058219.rar由于项目的需要,将一组事务封装成Activex控件(使用传统的delphi),总结来前人的经验供后来人分享:
1.制作activex控件:
delphi提供的强大的activex的制作功能,很轻松的就可以完成一个ocx的制成,提醒一点的是,生成了.ocx后需要注册才能使用,否则打开网页无法看到的。注册方式如下:
将你的.oxc放在windows目录下(或则system),
然后使用命令: regsvr32 ****.ocx 如果成功会提示你注册成功。
2.javascript的调用:
<HTML>
<H1> 测试ActiveX与JavaScript的交互 </H1><p><HR>
<center>
点击按钮CopyToHtml可以把ActiveX中的文本内容拷贝到html中.
<P>
<OBJECT
id=TestAX
classid="clsid:8001E397-52A3-485E-A32C-A3A2623273DA"
codebase="http://LSY/ff/ActiveFormProj1.ocx#version=1,0,2,0" //这一句实际可以不要
width=360
height=159
align=center
hspace=0
vspace=0
>
</OBJECT>
<HR>
<BR>
点击按钮CopyToAX可以把html中的文本内容拷贝到ActiveX中.
<BR><input type="text" name="txtTest" size="50"><BR>
<input type="button" value="CopyToAX" name="B3" onClick="MyClick()">
<HR>
</body>
<SCRIPT LANGUAGE="JavaScript">
<!--
function MyClick() {
document.all.TestAX.MyStr = document.all["txtTest"].value ;
}
//-->
</SCRIPT>
<script language="javascript" for=TestAX event=onclick>
txtTest.value = TestAX.MyStr ;
</script>
</HTML>
3.打开浏览器,恭喜你,成功了@!