使用 Delphi 从 VarArray 获取数据

Question

我有一个返回Variant 的WebService，它有一个Array，即varArray，想知道如何获取varArray的数据。

感谢您的帮助。

Answer 1

要获取 varArray 的内容，您必须使用 VarArrayLowBound 和 VarArrayHighBound 函数，然后使用循环迭代数组以获取数据。

试用此示例

var
 i : integer;
 s : string; 
begin
  for i := VarArrayLowBound(vArray, 1) to VarArrayHighBound(vArray, 1) do
    s:=vArray[i];//copy the the content of the array i element into a string

Answer 2

假设底层数据类型为 Byte ，并且数组是 1 维的，我解决这个问题的方法如下：

function GetBytesFromVariant(const V: Variant): TBytes;
var
  Len: Integer;
  SafeArray: PVarArray;
begin
  Len := 1+VarArrayHighBound(vArray, 1)-VarArrayLowBound(vArray, 1);
  SetLength(Result, Len);
  SafeArray := VarArrayAsPSafeArray(V);
  Move(SafeArray.Data^, Pointer(Result)^, Length(a)*SizeOf(a[0]));
end;

如果底层元素类型是其他类型，例如 Word、Integer等，如何修改它以匹配应该是显而易见的。