delphi - 如何将字节数组转换为变体

Question

如何将字节数组转换为 Variant？我有一个 WebService 应该接收一个字节数组，但它只接受 VARIANT 类型的变量，我想知道如何转换以便将其作为 Web 服务的参数传递。

谢谢

Answer 1

根据评论线索，您需要创建一个SAFEARRAY字节。在 Delphi 中是这样完成的:

V := VarArrayCreate([0, N-1], varByte);

或者，如果 SAFEARRAY 需要从 1 开始的索引:

V := VarArrayCreate([1, N], varByte);

然后，您可以使用 V[i] := ... 在循环中填充数组。

如果您有一个 Delphi 动态 字节数组，并且预期的 SAFEARRAY 使用基于 0 的索引，那么您可以简单地编写:

V := a;

如果您有大量数据需要传输，那么逐个元素地提取 RTL 提供的数据几乎是没有希望的。即使是简单的 v := a 方法也会导致逐个元素的复制，这对于大量数据来说会非常慢。

在你的位置上，我会一次性删除数组。像这样:

var
  i: Integer;
  a: array of Byte;
  V: Variant;
  SafeArray: PVarArray;
....
// populate a
V := VarArrayCreate([0,high(a)], varByte);
SafeArray := VarArrayAsPSafeArray(V);
Move(Pointer(a)^, SafeArray.Data^, Length(a)*SizeOf(a[0]));

或者，如果您需要使用基于 1 的索引:

V := VarArrayCreate([1,Length(a)], varByte);
SafeArray := VarArrayAsPSafeArray(V);
Move(Pointer(a)^, SafeArray.Data^, Length(a)*SizeOf(a[0]));