Delphi，FileStream和MemoryStream

Question

我想將FileStream的一部分複製到內存流中。

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; 

既然你處理兩個T流對象，它會更容易請使用TStream.CopyFrom（）方法，即：

MemoryStream.CopyFrom(FileStream, NumberOfBytes);