firedac数据集序列为流

firedac数据集序列为流

uses FireDAC.Stan.Intf, FireDAC.Comp.Client;

function firedac2stream(dataset: TFDAdaptedDataSet): TStream;
begin
  Result := TMemoryStream.Create;
  dataset.SaveToStream(Result, TFDStorageFormat.sfBinary);
  Result.Position := 0;
end;