Stream.CopyFrom » Lesefehler. Was ist falsch?

[Thunderchild]

Hallo, Gemeinde.

Ich habe eben nach CopyFrom gesucht und alles Möglich durchgelesen, jedoch fand ich nix Schlüssiges für mein Problem. Nur einen nützlichen Codeschnipsel vom Luckie hab ich gefunden, aber der macht was ganz anderes (trotzdem danke :stupid:).

Ich möchte eine Anzahl Datensätze in einer Datei speichern. Dazu gehört ein "normaler" String und eine StringList (Lines eines RTF-Eingabefeldes).
Einen String zu laden und zu speichern geht. Jedoch habe ich folgendes Problem mit der Stringlist.

Delphi-Quellcode:

type pItemData=^tItemData;
     tItemData=record
       Description:tStringList;
       Image:tPicture;
     end;

[...]

procedure SaveFile;
var s:string; i:integer; b:byte;
  n:tTreeNode; p:pItemData;
  mem:tMemoryStream; stream:tFileStream;

procedure WriteItem(n:tTreeNode);
var c:integer;
begin
  b:=ord(n.ImageIndex=DirectoryImageIndex); // Ordner?
  stream.Write(b,1);                        // Ordner- bzw. Datei-Startzeichen
  WriteString(n.Text);                      // Schreiben von Strings inkl. Längenangabe
  p:=n.Data;
  // die alte Variante, aber die speichert keine RTF-Formatierungen:
  // WriteString(p^.Description.CommaText);
  mem.clear; p^.Description.SaveToStream(mem);
  c:=mem.Size; stream.Write(c,sizeof(c));
  if c>0 then stream.CopyFrom(mem,c);       // HIER BEKOMME ICH DEN LESEFEHLER
  if b=1 then begin                         // Ordner? » Unterelemente abgehen
    for c:=0 to n.Count-1 do WriteItem(n.Item[c]);
    b:=2; stream.Write(b,sizeof(b));        // Ordner-Endezeichen
  end;
end;

begin
  // Erzeugen der beteiligten Streams
  // Aufruf von WriteItem
  // Freigeben der Streams
end;

tStrings.SaveToStream überschreibt alle anderen Daten, deswegen habe ich einen extra MemoryStream erstellt, in dem ich die Lines zwischen speichere, um diese dann in den FileStream zu buchsieren. Aber bei dem CopyFrom kommt dann wie gesagt der Fehler. Wo liegt das Problem?

Da fällt mir ad-hoc gleich noch folgende Frage ein:
Ich möchte auch ein Bild zu jedem Eintrag speichern. Ist es da der richtige Ansatz, in den Record ein tImage zu legen? Es werden i.d.R. JPegs oder GIFs sein.

Schonmal dongä für eventuelle hilfreiche Antworten.

[Muetze1]

Moin!

Nach dem SaveToStream() steht der Positionszeiger auf Ende des Streams und daher kann er nix mehr lesen. Da du bei CopyFrom() auch nicht 0 angibst, will er von der aktuellen Position kopieren. Gebe bei dem CopyFrom( , 0) an, dann seek'ed er automatisch auf Position 0 und liest den kompletten Stream.

MfG
Muetze1

[Thunderchild]

Vielen Dank, das hat geholfen.