如何给ActiveX DLL类中传递一个数组?

2002-10-25 04:20:19 212 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++定义DLL，C#调用数组传递第一部分 c++ 关键程序文件： xxx.idl 1 [id(DISPID_ABOUTBOX)] void AboutBox();2 [id(4)] short IReadPort(unsigned char *inPArr1);//byte类型接口，在非托管语言中可以正常使用，托管语言中无法正常传入数组3 [id(3)] short I1(void* a1);//与c#的传... 阅读详情

我在类中声明了一个数组变量.
因为在类中,数组不能声明为public,就
private dblA(3,4) as double
但没有办法从外界给他传值。

...全文

Delphi编写ActiveX控件及程序中嵌入word方案 ActiveX控件编写 1.ActiveX控件由来在创建包括ActiveX程序时，主要的工作就是组件，一个可以自足的在ActiveX网络（现在的网络主要包括 Windows和Mac）中任意运行的程序。这个组件就是ActiveX近控件。ActiveX是Microsoft为抗衡Sun Microsystems的JAVA技术而提出的，此控件的功能和JAVA applet功能类似。阅读详情

siyunying

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

Zhang_1978 2002-10-26

打赏
举报

其实照说应该用属性

不过我觉得不叫麻烦，所以我在做的时候用的是传字符串，中间有分隔符如（·），到里面或者返回后再分割

zxinlin 2002-10-26

打赏
举报

然后再用IsArray作判断。

zxinlin 2002-10-26

打赏
举报

都可以。
把形参设置成Varian的。

siyunying 2002-10-26

打赏
举报

to myhfit:
是不是，数组根本不可以通过类属性的方式传递？？？

我写的一个类中，其它参数都是用属性的方式传递，
类中有一个二维数组，如果也用属性的方式传递，那么
数据输入的方式就一致了。
我不想用“类的方法“这种方法来传递数组。

经过我自己的实验，我是发现通过属性的方式传递数组是不行，
但我想可能有一些细节我没有想到。

其它方法是什么？我想洗耳恭听.
非常感谢你的回复!

myhfit 2002-10-26

打赏
举报

不应用Let给数组赋值
应做为函数
Public Function XXX(T1() as double) as long
用时应为
dim a() as double
...
XXX(a())
其实有很多方法
如
Public Function XXX(T1 as variant) as long
variant是可以传入数组的
dim a as variant
a=array()
...
XXX(a)
也可用传入地址的方法
Public Function XXX(T1 as long,lb as long) as long
中间用函数CopyMemory把T1代表的地址按lb的长度复制到一个数组中
比如
redim tmpXXX(lb) as double
copymemory tmpxxx(0),byval t1,lb*8
'注意Double占8个字节
使用时
dim a() as double
XXX(varptr(a(0)),ubound(a)+1)

其实还有其他办法

wdxing 2002-10-26

打赏
举报

您把参数设置为Collection类型，传递collection很好操作的。

siyunying 2002-10-26

打赏
举报

edwardpro 2002-10-26

打赏
举报

编一个函数不就可以了？
public function arb()as long()
arb=target()
end function
或者在主程序中放一个模块定义一个public的数组不也可以？

siyunying 2002-10-26

打赏
举报

To zxinlin
感谢你给出问题的关键，把形参设置为Variant。问题解决。
to zhang_1978
你这种做法，在数据个数不是固定的时候，是一个非常好的作法。
我曾做我一个类。为了方便工具条的图标的更改。我就像你这样传
工具条的按钮的名字。在用split函数解析。感觉非常不错。

siyunying 2002-10-25

打赏
举报

To daviddivad:
Get 是得到属性的值
我这样试过不行
Private dblA(3,4) as double
Public Property Let A(byRef dblTemp() as double)
dblA=dblTemp
End Property
编译DLL时,出现错误，"不能给数组赋值"

我就这样改写,
Public Property Let A(byRef dblTemp() as double)
dim i as integer,j as integer
for i=0 to 3
for j=0 to 4
dblA(i,j)=dblTemp(i,j)
next j
next i
End Property
编译通过，但我通过一个工程测试时，
dim clsCal as new clsDLL
dim bb(3,4) as double
clsCal.A=bb
测试工程编译时，出现不能给数组赋值。

你实际使用过给类传数组吗?

holydiablo 2002-10-25

打赏
举报

按地址传送（通上），这种方法的数据会很快，不过我一向认为接口间传数组实在不是好办法

daviddivad 2002-10-25

打赏
举报

写个属性，通过属性来获取

public property get ArrayDbl(byref dblTemp() as double)
'把DBLA(3,4)的内容复制到DBLTEMP中去，就行了
end property

如何给ActiveX DLL类中传递一个数组?

相关推荐