本文介绍了一个使用JavaScript调用Delphi控件并传递数组参数的具体案例。通过构造一个特殊的VBArray来实现跨语言的数据交互，适用于需要集成旧组件到现代Web应用的场景。
最近做一个javascript调dephi控件,要传一个数组,下面我就把例子贴出来和大家一起分享,原以为很简单,还是花了我不少时间,但总感觉这种方法效率不高,不知哪位高手有更佳的实现方式,请指点
<html>
<body>
<OBJECT id='prt' CLASSID='CLSID:FE3CDB9F-3E30-42F4-A354-73DDF98DE292' CODEBASE='activexfpdy.dll' width='0' height='0'></OBJECT>
<script>
var aa=new Array('x', 'x0012002','8123');
var temp=GetVBArray(aa);
prt.fpdy('1006',temp);
function GetVBArray(jsArray)
{
var dict =
new ActiveXObject("Scripting.Dictionary");
for (i in jsArray)
{
dict.add(i, jsArray[i]);
}
return dict.Items();
}
</script>
</body>
</html>
<html>
<body>
<OBJECT id='prt' CLASSID='CLSID:FE3CDB9F-3E30-42F4-A354-73DDF98DE292' CODEBASE='activexfpdy.dll' width='0' height='0'></OBJECT>
<script>
var aa=new Array('x', 'x0012002','8123');
var temp=GetVBArray(aa);
prt.fpdy('1006',temp);
function GetVBArray(jsArray)
{
var dict =
new ActiveXObject("Scripting.Dictionary");
for (i in jsArray)
{
dict.add(i, jsArray[i]);
}
return dict.Items();
}
</script>
</body>
</html>
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
