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

我正在开发一个 Delphi 应用程序，该应用程序需要从一段工作中获取行并将其转换为单个 XML 文件，以便上传到第三方 Web 服务。

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

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

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

您可以使用TDataSetProvider http://docwiki.embarcadero.com/Libraries/en/Datasnap.Provider.TDataSetProvider组件来填充TClientDataSet http://docwiki.embarcadero.com/Libraries/en/Datasnap.DBClient.TClientDataSet与 TDataSet 内容，然后使用SaveToFile http://docwiki.embarcadero.com/Libraries/en/Datasnap.DBClient.TCustomClientDataSet.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;