delphi - How can I move data from TDataSet to TClientDataSet? I need XML representation of the data

Question

How can I easily move data from TDataSet to TClientDataSet? I need XML representation of the data in TClientDataSet.XMLData property.

Answer 1

使用 ClientDataSet 将a 拖放TDataSetProvider到表单或数据模块上，将 ClientDataSets 属性设置ProviderName为TDataSetProvider. 将 的DataSet属性设置TDataSetProvider为另一个数据集。打开客户端数据集。

Answer 2

这是从 TClientDataset 派生的角度来看的。

procedure TMyClientDataset.CopyFromDatasetProvider(Dataset: TDataset);
 var DataSetProvider : TDataSetProvider;
begin
  DataSetProvider := nil;
  try
    Close;
    DataSetProvider := TDataSetProvider.Create(nil);
    DatasetProvider.Options := [poNoReset];
    StoreDefs := False;
    DataSetProvider.DataSet := Dataset;
    SetProvider(DataSetProvider);
    Open;
    First;
    SetProvider(nil);
   finally
    if Assigned(DataSetProvider)
     then DataSetProvider.Free;
   end;

end;