E
eire
Unregistered / Unconfirmed
GUEST, unregistred user!
我在DELPHI中写的DLL其中一个函数返回类型为OLEVARIANT, VC 怎么读取?
请大侠们指点.
请大侠们指点.
W
wql
Unregistered / Unconfirmed
GUEST, unregistred user!
你实际知道是和内心的！例如是 String，就是 Char *
是 整形就是 Integer * 等等!
是 整形就是 Integer * 等等!
S
showphee
Unregistered / Unconfirmed
GUEST, unregistred user!
我以前也遇到过
如果是变体类型数组你可以参考下面方法：
VRet:=ND70Conn.GetEnrollData(2,9527,2,0,dwMachinePrivilege,dwEnrollData,dwPassWord);
if VRet=true then
begin
if VarIsArray(dwEnrollData)then
for i:= VarArrayLowBound(dwEnrollData,1) to VarArrayHighBound (dwEnrollData,1)do
Str:=Str+String(dwEnrollData) ;
edit1.Text:=IntToStr(length(str));
StrMsg.Lines.Add(Str);
如果是变体类型数组你可以参考下面方法：
VRet:=ND70Conn.GetEnrollData(2,9527,2,0,dwMachinePrivilege,dwEnrollData,dwPassWord);
if VRet=true then
begin
if VarIsArray(dwEnrollData)then
for i:= VarArrayLowBound(dwEnrollData,1) to VarArrayHighBound (dwEnrollData,1)do
Str:=Str+String(dwEnrollData) ;
edit1.Text:=IntToStr(length(str));
StrMsg.Lines.Add(Str);
E
eire
Unregistered / Unconfirmed
GUEST, unregistred user!
似乎没说明白,补充一下.我在DELPHI中写了一个DLL在VC调用
function Test
levariant;
var
A: Variant;
begin
A := VarArrayCreate([0, 4], varVariant);
A[0] := 1;
A[1] := 1234.5678;
A[2] := 'Hello world';
A[3] := True;
A[4] := VarArrayOf([1, 10, 100, 1000]);
Result:=A;
end;
VC怎么读取Test 返回的VARIANT类型数组.??
function Test
levariant;var
A: Variant;
begin
A := VarArrayCreate([0, 4], varVariant);
A[0] := 1;
A[1] := 1234.5678;
A[2] := 'Hello world';
A[3] := True;
A[4] := VarArrayOf([1, 10, 100, 1000]);
Result:=A;
end;
VC怎么读取Test 返回的VARIANT类型数组.??
加
加油+加油
Unregistered / Unconfirmed
GUEST, unregistred user!
给楼上一个网址:
http://blog.csdn.net/wildwolf113/archive/2007/06/08/1643482.aspx
对你的问题可能会有帮助
http://blog.csdn.net/wildwolf113/archive/2007/06/08/1643482.aspx
对你的问题可能会有帮助
E
eire
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢各位,但还是不知如何在VC中读取DELPHI 的OLEVARIANT 数组类型
E
eire
Unregistered / Unconfirmed
GUEST, unregistred user!
[red]OK[/red]
E
eire
Unregistered / Unconfirmed
GUEST, unregistred user!
接受大案