关于在com组件里接受数组参数和返回数组的一个例子：.txt

C&C++论坛精华

作者：netmini
日期：00-6-12 上午 09:36:37
1.在VB6新建一个ActiveX DLL
2.健入
  Public Function test(myarray As Variant) As Variant
  Dim i As Integer
  For i = 0 To UBound(myarray)
    myarray(i) = myarray(i) + 1
  Next
  test = myarray
  End Function
3.编译
4.编写ASP
  <%
set obj=server.createobject("testcom1.rs")
dim myarray(5)
for i=0 to 5
  myarray(i)=i
  response.write myarray(i)&"<br>"
next
dim newarray
newarray=obj.test(myarray)
for i=0 to 5
  response.write newarray(i)&"<br>"
next
%>
一切搞定，例子比较很简单（如果返回自定义类型就麻烦一些），不过希望起到抛砖引玉的作用。