在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);