Delphi 7-将base 64字符串解码为文件

Question

我试图找到一种方法来解码base64字符串，然后使用Delphi 7（此特定的Delphi版本）将其保存到文件中。

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

有人可以帮忙吗？

更新：

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

var MStream:TMemoryStream; Decoder:TIdDecoderMIME; Base64: string; begin Decoder := TIdDecoderMIME.Create(nil); MStream := TMemoryStream.Create; Base64 := 'abcd1234'; Decoder.DecodeToStream(Base64,MStream); MStream.SaveToFile('example.pdf'); FreeAndNil(Decoder); FreeAndNil(MStream); end;

Answer 1

Delphi随Indy一起提供，Indy具有TIdDecoderMIME类，用于解码base64字符串。