js中调用ActiveX控件的函数,如何处理类似DataBuf的输入参数

Question

JavaScript 不可以
如果是 Variant 的输入参数, VBScript 可以

Answer 1

谢谢wcwtitxu！想按你说的用vbscript调用一下BufRead，需要在事件里实现。VB的源码这样触发是成功的,
Private Sub OBJNAME_OnEvent1(ByVal Port As Long, ByVal EventType As Long, ByVal DataLen As Long)
    Dim strbuf As String * 1000
    n% = OBJNAME.BufRead(Port, strbuf, 900)
End Sub我的vbscript如下,
<script   language="vbscript">  
Private Sub OBJNAME_OnEvent1(ByVal Port As Long, ByVal EventType As Long, ByVal DataLen As Long)
    Dim strbuf As String * 1000   
    OBJNAME.BufRead(Port, strbuf, 900)    
End Sub
</script>可是还没执行到函数调用这块,第一行就出错了,行125,char41,错误:缺少')'又是为什么啊代码看着挺通顺阿。

Answer 2

<script  language="vbscript">  
Private Sub OBJNAME_OnEvent1(ByVal Port As Long, ByVal EventType As Long, ByVal DataLen As Long) 
    Dim strbuf
    Call OBJNAME.BufRead(Port, strbuf, 900)    
End Sub 
</script>
这个输入参数不是 Variant 类型的, VBScript 还是不行的.如果定要使用,或者你输要再开发一个第三方的 OCX 来包装这个方法, 把参数包装成 Variant 类型的

Answer 3

上面的那段有错
Sub OBJNAME_OnEvent1(ByVal Port, ByVal EventType, ByVal DataLen) 
    Dim strbuf
    Call OBJNAME.BufRead(Port, strbuf, 900)    
End Sub不过,这样子估计还不能调用成功