在Delphi中将TByteDynArray转换为TStream

Question

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

Answer 1

要将其保存在Stream上，请创建一个MemoryStream并在其上写入ByteDynArray：

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

要将其保存在数据库中，请使用参数化的SQL语句创建查询对象（FDQuery，ADOQuery等）：

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

并在该参数上加载Stream：

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