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 dynamic array of Byte，并且预期SAFEARRAY使用基于 0 的索引，那么您可以简单地编写：

V := a;

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

在你的位置上，我会一口气把数组blit。像这样：

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]));