Einzelnen Beitrag anzeigen

BenjaminHelbig

Registriert seit: 23. Okt 2003
Ort: Mannheim
80 Beiträge
 
Delphi 5 Professional
 
#1

Komponente per WriteComponent in Datenbank speichern

  Alt 2. Apr 2004, 10:19
Hi DP'ler

ich habe folgendes Problem. Ich möchte eine TreeView in einer MySQL Datenbank speichern. DA ich aus der TreeView alle Formatierungen übernehmen möchte speichere ich die TreeView zuerst als Datei:

Delphi-Quellcode:
MyStream := TFileStream.Create('C:\test.tmp', fmCreate or fmShareCompat);
try Mystream.WriteComponent(tmptree);
finylls MyStream.free;
end;
daraufhin öffne ich den File mit AssignFile und lese ihn in ein DBMEmo.

Delphi-Quellcode:
AssignFile(extern, 'C:\test.tmp');
reset(extern);
while not eof(extern) do
 begin
   readln(extern, tmpvar);
   DBMemo1.Lines.Add(tmpvar);
 end;
Das Problem bei der Sache ist das beim Rückschreiben der Komponente fehler auftreten wie Stream Error usw. Wenn ich aber über WriteComponent nur in den File schreiben lasse und von dort wieder zurücklese funzt es einwandfrei.

Habt ihr eine Idee? Ich vermute mal das es daran liegt, dass er mir beim schreiben in das DBMEmo die Binärstruktur zerstört.

Grüße Benjamin
--------
Es ist schon über so viele Dinge Gras gewachsen, dass ich keinem Rasen mehr traue.
  Mit Zitat antworten Zitat