MemoryStream in Filestream sichern - Datenschrott !?

[moelski]

Moin !

Hmm, ich glaub ich steh auf der Leitung. Aber so tuts auch ned :

Delphi-Quellcode:

procedure TForm10.dxBarButton6Click(Sender: TObject); 
var fs: TFileStream; 
    ms: TMemoryStream; 
begin 
  ms := TMemoryStream.Create;                     // Memory Stream für Objekt erzeugen 
  fs := TFileStream.Create('test.dat',fmCreate);  // Filestream erzeugen in dem alles abgelegt wird 

  aqDockingManager1.SaveToStream(ms);             // aqDockingManager1 - Daten in dem Stream ablegen 

  fs.CopyFrom(ms, ms.Size);                     // aqDockingManager1 abspeichern 

  fs.Free; 
  ms.Free; 
end;

Da kriege ich einen Stream Lesefehler