如何将数据库查询的行转换为 XML 文件？答案

【问题标题】：How to convert rows of a database query to a XML file?如何将数据库查询的行转换为 XML 文件？
【发布时间】：2012-08-27 23:06:16
【问题描述】：

我正在开发一个 Delphi 应用程序，它需要从一段时间的工作中提取行并将它们转换为单个 XML 文件，以便上传到第 3 方网络服务。

有没有可用的组件或库来做到这一点？如果不是，那么构建 DB2XML 转换器的最佳代码方法是什么？

我注意到大多数 XML 问题都是关于如何将其转换为另一种类型的数据。

注意：数据库将是 MySQL 或 Firebird。

【问题讨论】：

执行此操作的代码如此简单，您为什么要使用库？只需滚动您自己的代码。

标签： xml database delphi delphi-xe2

【解决方案1】：

您可以使用TDataSetProvider 组件将TDataSet 内容填充到TClientDataSet，然后使用SaveToFile 方法创建xml 文件。

试试这个示例

procedure DataSetToXML(DataSet  : TDataSet; const FileName:string);
var
 LProvider : TDataSetProvider;
 LClient   : TClientDataSet;
begin
   LProvider:=TDataSetProvider.Create(nil);
   try
     LProvider.DataSet:=DataSet;
     LClient:=TClientDataSet.Create(nil);
     try
       DataSet.DisableControls;
       try
        if not DataSet.Active then
          DataSet.Active:=True;
        LClient.SetProvider(LProvider);
        LClient.Active:=True;
        LClient.SaveToFile(FileName, dfXMLUTF8);
       finally
         DataSet.EnableControls;
       end;
     finally
       LClient.Free;
     end;
   finally
     LProvider.Free;
   end;
end;

【讨论】：

非常好。然后我应该放的任何东西，只需打开文件并插入更多数据...
+1，现在我想知道TXMLTransformClient 和相关的含义（也许还有一些老派？）。
XMLTransportClient 的使用时间比 ClientDataSet 少得多（在 D3、IIRC 的更高 SKU 中可用），并且在 D5 中更广泛地可用。我相信 XMLTransportClient 是为了支持 SOAP/WSDL 而添加的（我认为在 D3 发布时还没有 SOAP）。

【解决方案2】：

您可以将表放在 TClientDataSet 中，然后使用 XMLData 属性导出为 XML。

【讨论】：