Delphi 7 - 将 Base 64 字符串解码到文件

Question

我正在尝试找到一种方法来解码 Base64 字符串，然后使用 Delphi 7(此特定的 Delphi 版本)将其保存到文件中。

base64 字符串本身是一个 PDF 文件，编码为 base64 作为 HL7 消息的一部分。我发现的几乎所有示例都不与 Delphi 7 兼容。

有人可以帮忙吗？

更新:

按照 Remy Lebeau 建议使用 TidDecoderMIME。这是解码并保存到二进制文件的正确方法吗？


变量
MStream:TMemoryStream;
解码器:TIdDecoderMIME；
Base64:字符串；
开始
解码器 := TIdDecoderMIME.Create(nil);
MStream := TMemoryStream.Create;
Base64 := 'abcd1234';
解码器.DecodeToStream(Base64,MStream);
MStream.SaveToFile('example.pdf');
FreeAndNil(解码器);
FreeAndNil(MStream);
结束；

Answer 1

Delphi 附带了 Indy，它有一个用于解码 Base64 字符串的 TIdDecoderMIME 类。