Search the Community

Dear all, I am experiencing a strange error which I have narrowed down to a small piece of code (see below). I am reading a binary file into a TMemoryStream (variable ms1), through a TFileStream object (variable fs). Then I want to copy the binary data to another TMemoryStream object (ms2). This is what gives me the "stream read error" exception. Strange thing is, that if I don't load up the ms1 object with the file contents, things work fine, i.e. ms2.CopyFrom does not give me an exception.. Any help is greatly appreciated.... procedure TForm5.BitBtn1Click(Sender: TObject); var ms1: TMemoryStream; fs: TFileStream; ms2 : TMemoryStream; FilePath: string; begin FilePath := 'C:\weekcpdf_tech6.bin'; ms1 := TMemoryStream.Create; fs := nil; try ms1 := TMemoryStream.Create; fs := TFileStream.Create(FilePath, fmOpenRead); ms1.CopyFrom(fs, fs.Size); ms2 := TMemoryStream.Create; ms2.CopyFrom(ms1, ms1.Size); finally FreeAndNil(fs); FreeAndNil(ms1); end; end;