Delphi7 Base64 编码 UTF8 XML答案

【问题标题】：Delphi7 Base64 encode UTF8 XMLDelphi7 Base64 编码 UTF8 XML
【发布时间】：2018-06-16 20:42:54
【问题描述】：

我仍在使用 Delphi7（我知道），我需要将 UTF8 XML 编码为 Base64 格式。

我使用支持 UTF8 的 IXMLDocument 创建 XML（也就是说，如果我保存到文件中）。

由于我使用 Indy10 来 HTTP 发布 XML 请求，因此我尝试使用 TIdEncoderMIME 对 XML 进行 Base64 编码。但是有些 UTF8 字符编码不好。

尝试1：

XMLText := XML.XML.Text;
EncodedXML := TIdEncoderMIME.EncodeBytes(ToBytes(XMLText));

在上述情况下，当 XML 保存为字符串时，很可能一些 UTF8 信息/字符已经丢失。

尝试2：

XMLStream := TMemoryStream.Create;
XML.SaveToStream(XMLStream);
EncodedXML := TIdEncoderMIME.EncodeStream(XMLStream);
//or
EncodedXML := TIdEncoderMIME.EncodeStream(XMLStream, XMLStream.Size);

以上两个都返回 EncodedXML = ''（空字符串）。

我做错了什么？

【问题讨论】：

标签： delphi utf-8 base64 delphi-7 encode

【解决方案1】：

尝试改用TIdEncoderMIME.EncodeString() 方法。它有一个 AByteEncoding 参数，您可以使用该参数指定 Indy 应将字符串字符编码为所需的字节编码，例如 UTF-8，然后它然后 base64 对结果字节进行编码：

XMLText := XML.XML.Text;
EncodedXML := TIdEncoderMIME.EncodeString(XMLText, IndyTextEncoding_UTF8);

另请注意，在 Delphi 2007 及更早版本中，string 是 AnsiString，还有一个可选的 ASrcEncoding，您可以使用它指定 AnsiString 的编码（例如，如果它已经UTF-8），以便在编码为指定的字节编码之前可以正确解码为 Unicode（或者，在两种编码相同的情况下，AnsiString 可以按原样进行 base64 编码）：

XMLText := XML.XML.Text;
EncodedXML := TIdEncoderMIME.EncodeString(XMLText, IndyTextEncoding_UTF8, IndyTextEncoding_UTF8);

您在使用EncodeBytes() 时会丢失数据，因为您在使用ToBytes() 时没有为其指定任何编码参数。 ToBytes() 具有相似的 AByteEncoding 和 ASrcEncoding 参数。

在您尝试编码TMemoryStream 的情况下，您只是忘记在调用SaveToStream() 后将流的Position 重置为0，因此EncodeStream() 没有任何东西可以编码。这就是为什么它返回一个空白的 base64 字符串：

XMLStream := TMemoryStream.Create;
try
  XML.SaveToStream(XMLStream);
  XMLStream.Position := 0; // <-- add this
  EncodedXML := TIdEncoderMIME.EncodeStream(XMLStream);
finally
  XMLStream.Free;
end;

【讨论】：