使用 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

这是因为您的输出文件中尚未指定正确的编码（如<?xml version="1.0" encoding="UTF-8"?> ），但它包含一些编码不兼容的字符。

正如RRUZ 所提到的，在写入文件时明确指定TDataPacketFormat为dfXMLUTF8肯定会解决“无效字符”错误，因为它将首先写入编码标签：
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <DATAPACKET Version="2.0">[...]
您还可以在文件开头为现有文件手动添加编码。

至于可读格式，一些读者可以读取原始一行代码并执行格式化你（浏览器如Firefox或Internet Explorer的，像XML编辑器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)