Delphi调用COM

[zpskm]

各位大侠:

我用.net2003做了一ActiveX控件,里面有下面接口:
HRESULT GetFyData([out] VARIANT* data,[out,retval] BOOL*IsSucceed);

在Delphi6里导入后变成了下面的形式:
function GetFyData(out Data: OleVariant): Integer; safecall;

传过来的数据其实是一BYTE型数组,请问如何从Data: OleVariant中提取出来。

第二个问题:
HRESULT GetFyDataString([out, retval] BSTR* szData);

在DELPHI里对应接口function GetFyDataString: WideString; safecall;

但是调用时,WideString返回为空,并且调试时,在GetFyDataString处会提示 inaccessible value

请问要怎么做,才能返回数据 啊.

请大家帮忙啊，急死我了。
谢谢！！！

[gjw310]

不懂，帮顶，学习

[珍惜生命远离CPP]

[code=PASCAL]
p_var:OleVariant;
c:array[0..254]of byte;



writeln( VarArrayDimCount( p_var ) );

for i:=VarArrayLowBound( p_var , 1 ) to VarArrayHighBound( p_var , 1 ) do
begin
c[i] := p_var[i];
end;
[/code]

[珍惜生命远离CPP]

第二个问题我觉得应该是控件的问题,先想办法确定控件没有问题.