如何使用 MemoryStream
将 Tbytes
类型转换为 二进制文件
?
最佳答案
或者直接使用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
在这里有帮助,因为它只涉及额外不必要的堆分配/释放。
关于delphi - 如何将 TByte 转换为二进制文件? (使用内存流),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6445089/