3

私は、サード パーティの Web サービスにアップロードするために、作業期間から行を取得し、単一の XML ファイルに変換する必要がある Delphi アプリケーションを開発しています。

それを行うために利用できるコンポーネントまたはライブラリはありますか? そうでない場合、その DB2XML コンバーターを構築するためのコードの最良のアプローチは何ですか?

XML に関する質問のほとんどは、XML を別の種類のデータに変換する方法に関するものであることに気付きました。

注: データベースは MySQL または Firebird になります。

4

2 に答える 2

8

TDataSetProviderコンポーネントを使用TClientDataSetして TDataSet コンテンツを入力し、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;
于 2012-08-28T03:36:45.190 に答える
0

テーブルを TClientDataSet に配置し、XMLData プロパティを使用して XML としてエクスポートできます。

于 2012-08-28T03:32:54.603 に答える