Delphi, FileStream 및 MemoryStream

Question

FileStream의 일부를 메모리 스트림에 복사하려고합니다.

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

맞습니까? 그것은 나를 위해 일하지 않습니다.

var 
    Buffer: PByte; 

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

두은 TStream 객체를 처리하고 있기 때문에, 그것을보다 쉽게 ​​될 것이다 :

Answer 1

당신은 즉, MemoryStream을에) 저를 별도의 버퍼로하여 FileStream()에서 읽은 후 (작성해야 TStream.CopyFrom() 메서드를 대신 사용하십시오 :

MemoryStream.CopyFrom(FileStream, NumberOfBytes);