delphi - Delphi 7 - 将 Base64 字符串解码为字节数组

Question

我正在制作一个构建器/存根应用程序。构建器用 XE2 编码，而存根用 Delphi 7 编码。

在 XE2 中，当我使用“EncdDecd”时，它具有编码 EncodeBase64 和 DecodeBase64 的功能。但是在 Delphi 7 中，当我使用 EncdDecd 时，它没有我需要的 DecodeBase64 函数。

在我的构建器中，我将文件加载到流中并将其编码为 B64 AnsiString 并将其添加到存根的资源中。目标是让存根将此 B64 AnsiString 解码为字节数组，并最终将其写入磁盘上的文件。

Answer 1

All versions of Delphi from v6 onward ship with Indy preinstalled. Its IdCoderMIME unit has TIdEncoderMIME and TIdDecoderMIME classes for encoding/decoding base64 content.

Answer 2

有很多 base64 免费的 Delphi 代码可供您使用。TurboPower LockBox 3还具有 base64 的实现。这可以在 Delphi 7 中编译。