vba调用c++的dll时,参数是指针数组,无法匹配.求助!

[illfar]

c++代码:long　functionA (class a, struct1 *IDINFO, struct2 * NameINFO)
{
...
a->add(IDINFO,NameINFO);
...
}
IDINF是入力的，NameINFO是出力的，主要问题是NameINFO这个结构体里有数组指针
struce NameINFO
{
wchar *　STR[１１]
long　num
}


VBA代码:
Private Declare Function functionA Lib "functionA.dll" (ByVal objptr As Long, ByRef ID As IDINFO, ByRef Name As NameINFO) As Long

在vba中定义了这个结构体
Private Type NameINFO
str(1 To 11) As String
num As Long
End Type

然后用vba调用这个函数后，原来在c＋＋里时，STR［１］到［１１］里面是放的字符串，如

STR［１］是＂我们＂

STR［１］是＂agd＂
．．．．
可是vba出来后，值感觉都只有２个字符了
STR［１］是＂w．＂
STR［１］是＂a．＂
．．．．

感觉应该是vba接口这个函数时，结构体定义时的类型和c＋＋的不匹配吧
但不知道则么改
请教高手,急！！

[bigriverhorse]

3楼的应该没有错误，

我倒是觉得是楼主的DLL代码存储时用错了，

要确定这个问题，就要看看楼主用C++时，是怎么调用DLL的呢，贴出来看看？

[illfar]

还是不行啊
感觉出来是被截取的字符串
是不是和wchar 有关阿

[bdzwj]

那试试下面的代码

Private Type NameINFO
str(1 To 11) As long
num As Long
End Type

dim s1 as string
dim s() as byte
dim info as nameinfo
s1 = "adb"

s = s1
info.str(1) = varptr(s(0))

[illfar]

按照3楼的做法
dim s1 as string
dim info as nameinfo
s1 = "adb"
info.str(1) = strptr(s1)

functionA(Long, IDINFO, info)

info是输出的
可是这样，里面的str(1)等的值还不对，像被截了都只有2位

[illfar]

7楼出来答案
str都是long型的一串数字

[bdzwj]

晕， NameINFO结构中的str声明的是长整型，那只是保存了一个指针， 如果你想显示字符串，那需要将指针转换为字符串

[illfar]

vb里则么转换阿

[illfar]

试过的
不行
字符串不对的，有“．”的乱码
我字符串因该有中文字的
而且这样改了，后面的num值也不对了

[bdzwj]

Private Type NameINFO
str(1 To 11) As long
num As Long
End Type

dim s1 as string
dim info as nameinfo
s1 = "adb"

info.str(1) = strptr(s1)

[illfar]

还是不行呀
出来的是数字2089552

[threenewbee]

Private Type NameINFO
str As String * 11
num As Long
End Type

[bdzwj]

http://hi.baidu.com/kyky6/blog/item/095626974e0bf36854fb9632.html

[Saingel]

class a不是引用，也不是指针，vb应该不能调，
除非用vC再包一层去掉第一个参数。。。。

[dengyl01]

用CopyMemory将指针转换为字符串可还是不行