delphi - 如何将 TByte 转换为二进制文件? (使用内存流)

Question

如何使用 MemoryStream 将 Tbytes 类型转换为 二进制文件？

Answer 1

或者直接使用TFileStream来减少创建的中间对象的数量:

procedure SaveBytesToFile(const Data: TBytes; const FileName: string);
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    if Data <> nil then
      Stream.WriteBuffer(Data[0], Length(Data));
  finally
    Stream.Free;
  end;
end;

我不认为使用 TMemoryStream 在这里有帮助，因为它只涉及额外不必要的堆分配/释放。