Delphi, FileStream y MemoryStream

Question

Quiero copiar una parte de un FileStream a una secuencia de memoria.

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

¿Es eso correcto? no funciona para mí

Answer 1

usted tiene que leer() desde el FileStream en un búfer separado y luego escribir() que a la MemoryStream, es decir:

var 
    Buffer: PByte; 

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

Dado que se trata de dos objetos TStream, sería más fácil utilice el método TStream.CopyFrom() en su lugar, es decir:

MemoryStream.CopyFrom(FileStream, NumberOfBytes);