Delphi, FileStream и MemoryStream

Question

Я хочу скопировать часть FileStream в поток памяти.

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

Это правильно? это не работает для меня.

Answer 1

Вы должны читать() из FileStream в отдельный буфер, а затем Write(), что в 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);