Delphi, FileStream và MemoryStream

Question

Tôi muốn sao chép một phần của một FileStream vào luồng bộ nhớ.

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

Có đúng không? nó không làm việc cho tôi.

Answer 1

Bạn phải đọc() từ FileStream vào một bộ đệm riêng biệt và sau đó Viết() đó đến MemoryStream, ví dụ:

var 
    Buffer: PByte; 

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

Vì bạn đang đối phó với hai đối tượng TStream, nó sẽ dễ dàng hơn để sử dụng phương thức TStream.CopyFrom() để thay thế, ví dụ:

MemoryStream.CopyFrom(FileStream, NumberOfBytes);