ActiveX 返回数组的问题

Delphi(Pascal) code

function TComA.GetArray(Param1: OleVariant): OleVariant;var  val:Variant;  i:Integer;begin  VariantInit(Result);  val    := VarArrayCreate([0,1], VT_BSTR);  val[0] := '1';  val[1] := '2';  //Result := val;  TVarData(Result).VType := VT_ARRAY;  TVarData(Result).VArray := TVarData(val).VArray;end;

=========================================
以前D7 也是这样用的, D2010编译没有问题
可以我用php ,取不到数据

[解决办法]
不如直接用指针