求救：我在VC里写的DLL，得到一字符串，我在VB里怎么样才能取出来？谢谢！！！！

[niqiu]

[niqiu]

没有人捧场么？

[jack_zhan]

如果,把该字符串作为一个EXPORTS函数的值,在VB中调用,不知道可以吗?

[niqiu]

是呀，我就是这么做的呀，可是就是传不回来！！！

[niqiu]

__declspec(dllexport) LPCTSTR test()
{
return (LPCTSTR) "test";

}

[jack_zhan]

你的DLL引用书写对吗?

[jack_zhan]

你用EXPORTS宏(在.DEF文件中)输出该函数,试一下!

[niqiu]

private declare function test lib "a.dll" ()

[wb197]

test.cpp
#include <windows.h>
#include <winnls.h>

BSTR _stdcall TestString( BSTR a );
BSTR _stdcall TestString( BSTR a )
{

BSTR b;
LPSTR pA, pB = "这里是pB";

pA = (LPSTR) a;
MessageBox ( 0, pA, 0, MB_OK );

b = SysAllocString( ( BSTR ) pB );
return b;
}

test.def
LIBRARY Testdll
EXPORTS
TestString 01

[wb197]

VB

Public Declare Function TestString Lib "testdll.dll" (ByVal a As String) As String

[TechnoFantasy]

Public Declare Function TestString Lib "testdll.dll" (ByVal a As String) As Long
调用后获得一个Long类型，然后利用api函数copymemory将这个数值指向的地址拷贝到一个
字符串中，另外你的TestString 参数中最好包含一个参数，返回返回的字符串的长度。

[wb197]

已经不需要copymemory，返回的直接就是一个string , VB完全认识，并且程序运行以后没有任何内泄漏。

[niqiu]

谢谢你们！用SysAllocString 就可以解决了！
我要给分给你们！