Delphi2010-从XML文档解码Base64编码的图像

你用一个字符串来存储二进制数据;德尔福2010的unicode缺陷可能是这里的“罪魁祸首”。

尝试使用支持解码到流的base64解码器,并直接解码到流 TFileStream ; 我用 JclMime

作为 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;

阿尔索 OmniXML 具有OmniXMLUtils.pas单元和各种XML实用程序函数。

编辑:

您可以使用TStringStream或使用AnsiStrings执行任务。只要你坚持,编码/解码将正常工作。

你也可以用我的 SimpleStorage 为你做所有的工作。从XML读取图像需要完成以下简单任务:

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

很简单,不是吗(在这个过程中它也会被解压)

在代码中,确保在读取流之前将其位置设置为0。

StrStream.Seek(0, soFromBeginning);

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

另外,由于Delphi2010支持unicode字符串,因此在处理二进制数据时可能需要使用AnsiStrings。将多字节字符类型与单字节数据混合时要小心。