使用FireDAC往返于数据库的Delphi流

Question

本来我想从fastreports中保存/检索报告，为此它使用SaveToStream / LoadToStream。 我使用RAD Studio XE6（upd1）。

在数据库中，我有表Reports，索引字段为'StVn'，类型为int，字段'Definition'，类型为ntext。 数据库是MSSQL，为了保存报告，我使用：

  FDCommand.CommandText.Text:='UPDATE Reports SET Definition= :pDefinition WHERE StVn=1';
  FDCommand.Params.ParamByName('pDefinition').LoadFromStream(MyStream, ftWidememo);
  FDCommand.Execute;

并用于：

  FDQuery.SQL.Text:='SELECT * FROM Reports WHERE StVn=1';
  FDQuery.Open();
  MyStream:=FDQuery.CreateBlobStream(FDQuery.FieldByName('Definition'),bmRead);

这适用于一些简短的报告，但是对于任何真正的保存/恢复损坏的报告定义都有效。

因此，我仅使用备忘录在新表单上做一个测试用例，并尝试使用相同的数据访问设置（FDConnection，FDCommand，FDQuery）和以下代码来保存/恢复它：

procedure TForm1.BMemoSaveClick(Sender: TObject);
var TmpStream:TStream;
begin
  TmpStream:=TMemoryStream.Create;
  Memo1.Lines.SaveToStream(TmpStream);
  ShowMessage(IntToStr(TmpStream.Size));
  FDCommand1.Params.Clear;
  FDCommand1.CommandText.Text:='UPDATE Reports SET Definition= :pDefinition WHERE StVn=1';
  FDCommand1.Params.ParamByName('pDefinition').LoadFromStream(TmpStream,ftWideMemo);
  FDCommand1.Execute();
  TmpStream.Free;
end;

procedure TForm1.BMemoLoadClick(Sender: TObject);
var TmpStream:TStream;
begin
  FDQuery.SQL.Text:='SELECT * FROM Reports WHERE StVn=1';
  FDQuery.Open();
  TmpStream:=FDQuery.CreateBlobStream(FDQuery.FieldByName('Definition'),bmRead);
  ShowMessage(IntToStr(TmpStream.Size));
  Memo1.Lines.LoadFromStream(TmpStream);
  TmpStream.Free;
end;

如您所见，我已插入ShowMessage以查看保存和检索时的流大小，如果仅保存默认文本'Memo1'，则保存时将得到7的长度，而加载备忘录时将得到14的长度（始终翻倍）。

有什么想法我做错了吗？

Answer 1

注意，由于我没有MSSQL，因此我尚未验证数据库的保存/加载，但是我很确定这是原因：

默认情况下，TString使用默认编码（TEncoding.Default），这很可能是ANSI（在我的情况下是Windows-1252），因此，备注文本的长度显示为7个字节：“ Memo1”为5，CRLF为2 。

但是，您的列的类型为NTEXT，它将文本存储为UTF-16。 当您读回它时，您会将其视为斑点，并且FireDAC不会执行任何字符转换1 ，因此大小会加倍。

我建议您将报告视为二进制数据，并使用“图像”类型列将其存储为此类，并使用ftBlob而不是ftWideMemo。