将 [字节数组] 分配给没有 Unicode 转换的 Variant

考虑以下代码片段（在 Delphi XE2 中）：

function PrepData(StrVal: string; Base64Val: AnsiString): OleVariant;
begin
  Result := VarArrayCreate([0, 1], varVariant);
  Result[0] := StrVal;
  Result[1] := Base64Val;
end;

Base64Val是一个编码为 Base64 的二进制值（所以没有null字节）。这 （OleVariant) Result自动编组并在客户端应用程序和 DataSnap 服务器之间发送。

当我使用 Wireshark 捕获流量时，我发现两者StrVal and Base64Val作为 Unicode 字符串传输。如果可以的话，我想避免 Unicode 转换Base64Val。我已经看过所有Variant类型并且看不到任何其他东西varString可以传输字符数组。

I found 这个问题 https://stackoverflow.com/a/13144162/822072显示了如何创建不同的字节数组。我想我可以使用这种技术而不是使用AnsiString。不过我很好奇，是否有另一种方法可以将非 Unicode 字符数据数组分配给 Variant，而不需要转换为 Unicode 字符串？

Delphi 的实现支持使用自定义变体类型代码将 AnsiString 和 UnicodeString 存储在 Variant 中。这些代码是 varString 和 varUString。

但互操作通常会使用标准 OLE 变体，并且 OLE 字符串 varOleStr 是 16 位编码的。这似乎就是你观察的原因。

如果您确实希望避免转换为 16 位文本，则需要将数据作为字节数组放入。这样做会使 Base64 编码变得毫无意义。停止对有效负载进行 Base64 编码并以字节数组形式发送二进制文件。