Delphi:将文件流复制到内存流

Question

我想将 FileStream 的一部分复制到 MemoryStream。

FileStream.Write(Pointer(MemoryStream)^, MemoryStream.Size);
FileStream.Read(Pointer(MemoryStream)^, count);

是吗？这对我不起作用。

Answer 1

您必须从 FileStream 读取()到单独的缓冲区中，然后将其写入到 MemoryStream，即:

var
  Buffer: PByte;

GetMem(Buffer, NumberOfBytes);
try
  FileStream.ReadBuffer(Buffer^, NumberOfBytes);
  MemoryStream.WriteBuffer(Buffer^, NumberOfBytes);
finally
  FreeMem(Buffer);
end;

由于您正在处理两个 TStream 对象，因此使用 TStream.CopyFrom() 方法会更容易，即:

MemoryStream.CopyFrom(FileStream, NumberOfBytes);