Delphi调用COM

Question

各位大侠: 我用.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请问要怎么做,才能返回数据 啊.请大家帮忙啊，急死我了。 
谢谢！！！

Answer 1

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;