VC++如何使用这个函数返回的值类型？？？？？？？？？？？？？？？？？？？？？？

[Jera]

用Delphi编写了一个dll里面有这样一个函数我把它简化帖出来：

Function Get_Records(Name:phar):OleVariant;Stdcall;
begin
result:= VarArrayCreate([0,2],varVariant);
result[0]:='1234567';
result[1]:='adsfasdf';
result[2]:='asdfasdf';
end;

VC如个使用这个函数返回的值并且得到里面具体的值??

[longx]

C++ 的函数申明应当是:
VARIANT* Get_Records(char* name);
使用:
VARIANT* t=Get_Records(char* name);
BSTR b1=t->bstrVal;
t++;
BSTR b2=t->bstrVal;
t++;
BSTR b3=t->bstrVal;

可能是这样，没有验证过.

[fzzzf]

先取的函数的入口地址，再计算出各个变量的地址，从而得到里面的值！

[Jera]

to longx()　
我去试试看 :)

[Jera]

up

[Jera]

高手呢？？？？

[lwg7603]

phar是啥东西?

[aizb]

其实很简单啦！很多API都有这种情况啦！你需要在函数中用Var参数返回数组长度：
Function Get_Records(Name:phar;Var iLength:Integer):OleVariant;Stdcall;
begin
result:= VarArrayCreate([0,2],varVariant);
result[0]:='1234567';
result[1]:='adsfasdf';
result[2]:='asdfasdf';
Length:=3;
end;

然后在调用时先给字符串数组类型的变量分配内存，再赋值！

[Jera]

你把我的意思搞错了，这是我一个Dll的简化例子

我主要的问题是VC++如何使用COleVariant这个类来使用这个函数

[Sunny_lin]

Delphi我不懂，
但是DLL返回值只能是32为的DWORD数值，

兄弟你用的，倒有点象是需要使用OLE、ACTIVEX之类的！！

[Jera]

up

[haofox]

请到：http://www.csdn.net/expert/topic/167/167323.shtm来解决问题！

[artgolf]

急死我了，拿不到分。我以前也遇到过同样的问题，问了csdn后都不会，后来到microsoft的新闻组给解决了，那里高人多多，可惜现在他给我的答案找不到了，不然就可以挣到3000分了。
强烈建议去microsoft或borland去查询新闻组，很多人问safearray的问题，保你一天就解决。

[Jera]

up

[Jera]

Dll的代码在这里:

202.96.112.122/plastic/jera/dll.zip

[Jera]

分在
http://www.csdn.net/expert/topic/167/167849.shtm
http://www.csdn.net/expert/topic/167/167848.shtm
http://www.csdn.net/expert/topic/167/167846.shtm
http://www.csdn.net/expert/topic/167/167844.shtm
http://www.csdn.net/expert/topic/167/167838.shtm
http://www.csdn.net/expert/topic/167/167842.shtm
http://www.csdn.net/expert/topic/167/167835.shtm
http://www.csdn.net/expert/topic/167/167843.shtm
http://www.csdn.net/expert/topic/167/167833.shtm
http://www.csdn.net/expert/topic/167/167837.shtm

[Jera]

up

[我不是大明]

UP是什么意思！

[Jera]

提前

[pipai]

在C++Builder下如下调用可以实现，而为了在VC中调用，必须提供Variant类的实现，可以从C++Builder中拷贝复制该类的实现（参考C++Builder的include/vcl/sysdefs.h和source/vcl/variant.cpp作简化修改），这样应该可以，而由于COleVariant的实现不同于Variant，故应该不能套用OleVariant，只能自己在VC中实现Variant类，并用下面方法调用
typedef Variant ( pascal* GetRecordsProc)( char *name );
HMODULE hInst;
GetRecordsProc Get_Records;

hInst = LoadLibrary( "testdll.DLL" );
if ( hInst == 0 ) {
ShowMessage( "不能找到动态链接库!");
return;
}

try {
Get_Records = (GetRecordsProc)GetProcAddress( hInst, PSTR(MAKELONG( 100, 0)) );
if (0 == Get_Records) {
ShowMessage( "不存在函数Get_Records");
FreeLibrary( hInst );
return;
}

Variant v;
Variant *vx;

v = Get_Records( NULL );
vx = (Variant *)v.ArrayLock();
ShowMessage( vx[2] );
v.ArrayUnlock();
FreeLibrary( hInst );
}
catch (... ) {
FreeLibrary( hInst );
}

[pipai]

sorry, 上面的一句有笔误：“...而由于COleVariant的实现不同于Variant，故应该不能套用OleVariant，只能自己在VC中实现Variant类...”应为“...而由于COleVariant的实现不同于Variant，故应该不能套用COleVariant，只能自己在VC中实现Variant类...”,C++Builder另定义了OleVariant类（从Variant派生），它不同于COleVariant类。你也可在VC中实现OleVariant类(方法参我的前一贴)，这样你可直接使用OleVariant代替Variant