Convert TByteDynArray to TStream in Delphi

Question

如何在Delphi中将TByteDynArray转换为TStream并将其保存在数据库中

Answer 1

To save it on a Stream, create a MemoryStream and write your ByteDynArray on it :

  ResultStream := TMemoryStream.Create;
  ResultStream.Write(MyByteDynArray, Length(MyByteDynArray));
  ResultStream.Position := 0;

To save it on a database, create a query object (FDQuery, ADOQuery, ...) with a parametrized SQL statement :

update MyTable set MyColumn = :Data where Id = 1;

and load your Stream on that parameter :

MyQuery.ParamByName('Data').LoadFromStream(ResultStream);