Delphi 7 - 使用 TIdDecoderMIME 解码 Base64

Question

好吧，这让我发疯，哈哈。

我有一个 Base64 字符串，并尝试使用 TIdDecoderMIME 将其解码为 TMemoryStream。

我当前的代码如下:

Var MStream:TMemoryStream; Decoder:TIdDecoderMIME;
begin
  Decoder := TIdDecoderMIME.Create(nil);
  MStream := TMemoryStream.Create;
  Decoder.DecodeToStream(BSting,MStream);
end;

其中 BString = 我的 Base64 字符串。

现在，当代码运行时，我收到一条错误消息，指出“DecodeToString 中的大小不均匀。”

有什么想法吗？

非常感谢任何帮助。谢谢。

Answer 1

您要向 DecodeToStream 函数传递一个长度不是 4 倍数的 Base64 字符串。换句话说，您传递的字符串无效。