vb调用dll（急)

[gsxyy1688]

我用vb从一个dll里面的函数返回一个字符串，dll返回的类型是BSTR，但是在vb里面跟踪返回的变量里面多出里很多东西
例如:"D1*D2+D3*D4"输入dll函数却在vb里接收到"D1*D2+D3*D4onFP_NO_HOST_CHECK=NOHOMEDRIVE=C:q"这是什么原因呀能不能接收成D1*D2+D3*D4大家帮帮忙

[嗷嗷叫的老马]

dim I() as string

'设你DLL返回的内容放在变量J里面.
'同时,J里面的""符号,是CHR(0)的情况.

i=split(j,chr(0))
debug.print i(0)   'i(0)里就是你要的.

'同样的办法,也可以用于通用对话框多选时返回多个文件名.

[cbm6666]

楼上说的没错, 那个符号是 chr(0)

BSTR ?? 你在DLL里面的.cls代码,那个Function最后面你写的是什么 ? As String ? 或 As Sring() ...??

你要取前面那些字串的话你可以用

Private Sub Command1_Click()
aa = "D1*D2+D3*D4" & Chr(0)
aa = Mid(aa, 1, InStr(aa, Chr(0)) - 1)
MsgBox aa
End Sub

[supergreenbean]

从C返回BSTR字符串可以，但是在VB声明里要写成As Long，不要直接写As String，因为VB会把这些As String的参数做自动转换。
推荐的字符返回方式如下：

int __stdcall MyFunc(char* inString,char* outString)
{
...
}

Declare Function MyFunc lib "test.dll" (ByVal inString As String, ByVal outString As String) As Long
使用

Dim ret As Long
Dim sOut As String
sOut=String(255," ")'初始化用以存放输出的字符串缓冲区
ret=MyFunc("in string",sOut)

[嗷嗷叫的老马]

顶~~~~~~~~~

[嗷嗷叫的老马]

咦.

我不是发了帖吗.

CSDN搞什么鬼.

[嗷嗷叫的老马]

晕........又出现了.......

[lyserver]

从你的问题上看，应该是你的DLL有问题。
原因：VB的String数据类型即为VC的BSTR，二者是一回事，都是以长度来判断字符串的，故完全能相互传递，而不会出现你说的情况。如果出现这种情况，可能DLL并没有使用BSTR或不正确使用BSTR，比如使用了char *，就会出现楼上所说的使用left(s,instr(s,chr(0))-1)来截取字符串的方法，因为char *是以字符串中包括的“\0”字符来判断的，因此需要截取。建议贴出你的DLL源码。

[lyserver]

补充一下，char *是基于ANSI的，BSTR是基于UNICODE的。

[cbm6666]

呵呵, 谢谢楼上 lyserver 同志, 增长了一个知识了.

[zuoxingyu]

你在调用这个DLL的返回值的时候，字符串型的没有指定其长度吧
dim ret as string*12
这样再传进去，获取返回值

[darkwalkertt]

得注意类型...