TClientDataSet将Binary字段读取到TStream

Question

我已经尽我所能尝试了所有方法，但是似乎无法解决此问题。 我正在Delphi XE3中使用DBExress编写REST DataSnap Server。

我将数据存储在MSQL中的Binary（384）字段中，据我所知，Binary与BLOB / Image字段相同，因为它都是Binary数据。

尝试将此数据流传输到TStream时，我收到异常错误，并尝试了以下操作

var
STemplate : TStream;
begin
......
Template := TBlobField.Create(cdsBSUserTemplates.FieldByName('bTemplate'));
TBlobField(cdsBSUserTemplates.FieldByName('bTemplate')).SaveToStream(STemplate); //exception
......
end;

我已经尝试过

var
STemplate : TStream;
begin
......
Template := TBlobField.Create(cdsBSUserTemplates.FieldByName('bTemplate'));
STemplate := cdsBSUserTemplates.CreateBlobStream(Template, bmRead); //exception
......
end;

我可以返回值.AsString，但它是字节，然后我需要尝试修复从该字段中读取的内容。

知道我还能尝试什么吗？

Answer 1

你工作太辛苦了。 :-)

您需要正确创建流，然后让字段将其写入。

var
  Output: TMemoryStream;
  Fld: TBlobField;
begin
  // Use of variable makes it more readable
  Fld := cdsBSUserTemplates.FieldByName('bTemplate') as TBlobField;

  Output := TMemoryStream.Create;
  try
    Fld.SaveToStream(Output);
    Output.Position := 0;
    // Do whatever with the output stream
  finally
    Output.Free;
  end;
end;

在您可能未使用TBlobField的评论之后（在我发布答案之前会很高兴知道这一点），您可以尝试使用此方法（ 未经测试 ，因为我显然没有您的数据）：

var
  Output: TMemoryStream;
  Fld: TField;
  Bytes: TArray<Byte>;
begin
  Fld := ADOQuery1.FieldByName('bTemplate');
  Output := TMemoryStream.Create;
  try
    if Fld.IsBlob then
      TBlobField(Fld).SaveToStream(Output)
    else
    begin
      Fld.GetData(Bytes);
      Output.WriteData(Bytes, Length(Bytes));
    end;
    // Do whatever with output
  finally
    Output.Free;
  end;
end;