delphi - 在 Delphi XE7 中使用 NetEncoding 对字符串进行 Base64 解码？

Question

在Delphi XE7 Update 1中，当尝试在VCL程序中执行此代码时:

uses System.NetEncoding;
...
tempstring := TNetEncoding.Base64.Decode(tempstring);

我收到此错误消息:

那么如何使用 NetEncoding 对字符串进行 Base64 解码？

Answer 1

您正在调用接受 Base64 编码文本并返回字符串的 Decode 重载。 Decode方法的实现方式如下:

1. 将 Base64 解码为二进制。
2. 将二进制文件视为 UTF-8 编码文本。
3. 将 UTF-8 字节解码为文本。

您的错误消息表明步骤 1 生成的二进制文件不是有效的 UTF-8。为了弄清楚为什么会这样，需要了解 Base64 编码文本的起源。

您当前的代码假设发生了以下过程来创建 base64 编码值:

1. 将一些文本编码为 UTF-8 字节。
2. 对这些字节进行 Base 64 编码。

问题不一定出在您要解码的代码中。问题是您的解码与最初编码的过程不匹配。错误可能出在原始编码或解码中。您需要检查 base64 值的编码方式。是否使用上述步骤进行编码？

如果我必须猜测，我会怀疑原始数据实际上不是文本。我的猜测是原始数据是二进制的，即字节流。我怀疑您从一些在 AnsiString 变量中保存二进制数据的代码开始。以这种方式滥用字符串的 Delphi 代码是很常见的。由于历史原因，AnsiString 可用于保存二进制数据似乎已被写入传说中。我想这一切都是从 Delphi 2 引入 AnsiString 开始的，当时还没有动态数组。

无论如何，如果您以前一直使用 AnsiString 来保存二进制数据，那么您应该借此机会停止这样做。例如，使用 TBytes 即可达到此目的。在这种情况下，您将使用:

var
  bytes: TBytes;
....
bytes := TNetEncoding.Base64.DecodeStringToBytes(...);

将您的 Base64 值解码为二进制。

因此，假设您拥有的 base64 实际上是 ANSI 编码文本。然后你可以像这样解码它:

var
  bytes: TBytes;
  text: string;
....
bytes := TNetEncoding.Base64.DecodeStringToBytes(...);
text := TEncoding.ANSI.GetString(bytes);

这假定您解码的机器上流行的 ANSI 代码页。如果您需要指定 ANSI 代码页，那么您可以这样编写:

var
  bytes: TBytes;
  text: string;
  Encoding: TEncoding;
....
bytes := TNetEncoding.Base64.DecodeStringToBytes(...);
Encoding := TEncoding.GetEncoding(CodePage);
try
  text := Encoding.GetString(bytes);
finally
  Encoding.Free;
end;

如您所见，我现在只能猜测。如果您想取得进展，您将了解您的数据是如何编码的。