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
).
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.