使用 Delphi7 TClientDataSet：是否可以让它以缩进格式保存 XML 内容？

Question

我正在使用 Delphi7 TClientDataSet 来读取和写入一些数据的 XML 文件。

但是，当我想在程序外部浏览此内容（在 Windows 资源管理器中双击 XML）时，我得到“在文本内容中发现无效字符”。错误处理资源' - 即使数据在 Delphi 中读取和写入正常。

有没有办法强制 TClientDataSet 以缩进方式而不是一行写入其内容？

这样我就可以轻松地将其打开到文本编辑器中并找到哪个字符会触发上述错误。

无论如何：我发现使用 CR/LF 和缩进来编写 XML 文件会更清晰。

Answer 1

当您使用 TCustomClientDataSet.SaveToFile 过程时，您可以选择输出格式，默认情况下该值设置为 dfBinary ，它以二进制格式对数据进行编码。

 procedure TCustomClientDataSet.SaveToFile(const FileName: string = '';
  Format: TDataPacketFormat = dfBinary);

尝试将 Format 参数更改为 dfXML 或 dfXMLUTF8

ClientDataSet1.SaveToFile('file.xml',dfXML);

如果您想格式化 XML 输出，您可以使用 FormatXMLData 函数尝试此代码

uses
 XMLDoc;

Procedure FormatXMLFile(XmlFile:string);
var
   oXml : TXMLDocument;
 begin
   oXml := TXMLDocument.Create(nil);
   try
     oXml.LoadFromFile(XmlFile);
     oXml.XML.Text:=xmlDoc.FormatXMLData(oXml.XML.Text);
     oXml.Active := true;
     oXml.SaveToFile(XmlFile);
   finally
     oXml := nil;
   end;
 end;

最终您的代码将如下所示

 ClientDataSet1.SaveToFile('test.xml',dfXML);
 FormatXMLFile('test.xml');

Answer 2

这是因为输出文件中尚未指定正确的编码（例如 ），但它包含一些带有不兼容的编码。

作为 RRUZ 提到，在写入文件时显式指定 TDataPacketFormat 为 dfXMLUTF8 肯定会解决“无效字符”错误，因为它将写入编码标记第一：
[...]
您还可以在文件开头为现有文件手动添加编码。

至于可读格式，一些读者可以阅读原始单行代码并为您进行格式化（FireFox 或 Internet Exporer 等浏览器，以及 XMLNotePad)

Answer 3

我修改了你的代码，因为我在 UTF-8 方面遇到了一些问题：

Procedure FormatXMLFile(XmlFile:string);
var
   oXml : TXMLDocument;
   s : utf8String;
begin
   oXml := TXMLDocument.Create(nil);
   try
     oXml.LoadFromFile(XmlFile);
     s :=  oxml.XML.Text;
     s  := StringReplace(s, '><', '>' + #13#10 + '<' , [rfReplaceAll]);
     //oXml.XML.Text:=xmlDoc.FormatXMLData(oxml.XML.Text);
     oxml.XML.Text := s;
     oXml.Active := true;
     oXml.SaveToFile(XmlFile);
   finally
     oXml := nil;
   end;
end;

Answer 4

dfXMLUTF8 将其用于 UTF

ClientDataSet1.SaveToFile('test.xml',dfXMLUTF8)