0

我已经尝试了所有其他相关主题的所有可用帮助,但没有解决问题,代码如下

VB6(DLL 代码):

Public Function enterorder(vals() As Variant, ordhdr() As Variant) As String
................... code ............
enterorder = "done"
End Function

ASP:

SET objdll = server.createobject("dllproname.classname")

Dim values(1, 4)
Dim ordhdr(1)
dim ret
ordhdr(0) = "1012"
ordhdr(1) = "ASP TESTING descript"
values(0, 0) = "testing "
values(0, 1) = "testing 2"
values(0, 2) = "HO"
values(0, 3) = "2.0000"
values(0, 4) = "12.0000"

values(1, 0) = "testing part 2 "
values(1, 1) = "testing again"
values(1, 2) = "HO"
values(1, 3) = "2.0000"
values(1, 4) = "12.0000"

ret = objdll.EnterOrder(values(), ordhdr())
response.write("Done")

代码给出错误:

Microsoft VBScript 运行时错误“800a0009”下标超出范围

我试过删除多维数组,只发送普通数组,同样的错误仍然存​​在。

我还尝试在传递数组时删除括号(),例如(objdll.EnterOrder(values , ordhdr)

) 它给出类型不匹配错误。

我的 VB6 代码接受字符串数组,但我按照一些关于帮助主题的指南将其更改为变体类型,这也没有帮助。

相同的代码有效,如果我将此 dll 添加到 vb6 项目引用中,然后调用相同的函数,它会完美运行。但是与 asp 相同的代码不起作用。

谢谢。

4

2 回答 2

0

声明为变体时删除 ()

Public Function enterorder(vals As Variant, ordhdr As Variant) As String
于 2013-05-21T10:35:19.007 回答
0

好的,谢谢您的帮助,但我已经解决了。我做了一些研究,得到的答案是,在将参数从 asp 传递到 dll(由 vb6 制作)时,唯一有效的数据类型是“Variant”。其次,将数组传递给 dll 非常困难(我不会说这是不可能的,我在某处读到它不允许将数组从 asp 传递给 vb6 dll)。所以我用这些值制作了字符串并在vb6代码中进行了拆分,所以我在拆分后得到了数组。

例如 ASP 代码:

dim values
values = "a,b,c,d,e|f,g,h,i,j" 
strlen = "1,4"
ret = objdll.EnterOrder((values), (dsordhdr),(strlen))

主要的事情是在传递参数时,我把变量用括号括起来,因为没有它它就不起作用,用参数包装它使它像一个表达式,所以它起作用了。

VB6 代码

Public Function enterorder(ByVal valstring As Variant, ByVal ordhdrstring As Variant,     ByVal arrlenstr As Variant) As Variant
    Dim vals() as string
    Dim arrlen() As String
    arrlen = Split(arrlenstr, ",")
    ReDim vals(arrlen(0), arrlen(1)) As String
    valarry = Split(valstring, "|")
    For ind = 0 To UBound(valarry)
        orval = Split(valarry(ind), ",")
        For sind = 0 To UBound(orval)
            vals(ind, sind) = orval(sind)
            outstr = outstr & orval(sind) & ","
        Next

    Next

所以它就是这样工作的。Redim 是必要的,因为我第一次声明数组并且在做 redim 时我放置了数组的索引。没有它就行不通。

于 2013-05-21T11:08:06.217 回答