Delphi 2010 - 从 XML 文档解码 Base64 编码图像

Question

我正在尝试从我的应用程序中的 XML 文档中解码 base64 编码的 EMF 图像并将其呈现在屏幕上，但是它似乎从未出现过。

如果我将 XML 文档中的数据复制/粘贴到 Notepad++ 中并使用Base64 Decode 选项并将文件另存为.emf，它会在 mspaint 中正常打开。所以我认为问题在于我如何解码它。

我尝试了这些文章中描述的以下解码方法：

How to encode / decode Base 64 string
http://www.swissdelphicenter.ch/torry/showcode.php?id=1223

我也尝试了TIdDecoderMIME 类，但无济于事。

有谁知道从 XML 解码 base64 编码字符串的最可靠方法？

示例

procedure TXmlSerializer.SaveImageFromString(const AValue: string);
var
  StrStream: TStringStream;
  Decoder: TIdDecoderMIME;
begin
  // AValue is base64 encoded string from XML doc
  Decoder := TIdDecoderMIME.Create(nil);
  try
    StrStream := TStringStream.Create(Decoder.DecodeString(AValue));
    try
      StrStream.SaveToFile('MyPath\Image.emf');
    finally
      StrStream.Free;
    end;
  finally
    Decoder.Free;
  end;
end;

为什么上述方法不起作用，但将原始数据复制到 Notepad++ 并解码并保存为.emf 有效？

Answer 1

您正在使用字符串来存储二进制数据； Delphi 2010 的 unicode-ness 可能是这里的“责备”。

尝试使用支持解码为流的base64解码器，直接解码为TFileStream；我使用JclMime（Jedi 的 JCL 的一部分），但如果没有适用于流而不是字符串的 Indy MIME 方法，我会感到惊讶。

由于JclMime 仅支持流到流解码，我在从 XML 有效负载中解码 base64 数据时使用以下包装器：

procedure MimeDecode(const inputString: string; const outputStream: Tstream);
var
  ss: TStringStream;
begin
  ss := TStringStream.Create(inputString);
  try
    JclMime.MimeDecodeStream(ss, outputStream);
  finally
    ss.free;
  end;
end;

Answer 2

TIdDecoderMIME 工作得很好。尝试和测试。看看 Indy 提供的代码示例就知道了。

OmniXML 还具有 OmniXMLUtils.pas 单元，其中包含用于 XML 的各种实用程序功能。 在里面你可以找到独立的 Base64 编码/解码功能。您可以复制粘贴它们或按原样使用它们。

否则使用 TIdDecoderMIME 发布代码。一定是你的代码有错误。

编辑：

您必须注意将字符串以单字节顺序写入流。 Base64 适用于字节（ASCII 字符），如果您使用 2 字节 unicode 字符串提供它，它将无法正常工作。如果您将 Base64 编码序列作为字符串并将其按原样写入流中，则会出现错误，因为此类流的长度将是原始长度的两倍。

您可以使用 TStringStream 或使用 AnsiStrings 来完成任务。只要你坚持编码/解码就可以正常工作。

您也可以使用我的SimpleStorage，它会为您完成所有工作。从 XML 中读取图像非常简单：

  Jpeg := TJPEGImage.Create;
  try
    Jpeg.LoadFromStream(SrcStorage.Get('Image').Filter('gzip').AsBinary.Stream);
  finally
    Jpeg.Free;
  end;

是不是很简单（在这个过程中它也被解压了）。 :)

Answer 3

确保您只解码属性值而不是整个 XML。

在您的代码中，请务必在读取之前将流的位置设置为 0。

StrStream.Seek(0, soFromBeginning);

我不熟悉 TStringStream 的 SaveToFile() 方法。你确定吗？

此外，由于 Delphi 2010 支持 unicode 字符串，您可能希望在处理二进制数据时使用 AnsiStrings。将多字节字符类型与单字节数据混合时要小心。