Richedit + formatierter Text in DB speichern

[UweR]

Hallo Sascha,

hast du mal mit der Property PlainText rumgespielt. Da kannst du angeben (zumindest laut Hilfe) ob die Formatierungsfunktionen jetzt beachtet werden oder nicht.

[Akut-Programming]

Hallo Uwe,

wenn ich die Eigenschaft "PlainText" auf True setze, schreibt er wieder nur noch den eigentlichen Text in das Blobfeld der Tabelle.

[UweR]

Wenn ich die Hilfe richtig interpretiere würde ich an deiner Stelle mal probieren beim Lesen und Schreiben aus und in die RichEdit-Komponente PlainText mal auf FALSE zu setzen und anschließend wieder auf TRUE. Aber ausprobiert habe ich das selber auch noch nicht.

[Akut-Programming]

Wenn ich sie beim schreiben auf TRUE setze, dann schreibt er auch nur den eigentlichen Text, ohne Formatierungsinformationen in die Datenbank.

[UweR]

Zitat:

Wenn ich sie beim schreiben auf TRUE setze, dann schreibt er auch nur den eigentlichen Text, ohne Formatierungsinformationen in die Datenbank.

Deshalb solltest du sie ja auch eigentlich auf FALSE setzen.

[Akut-Programming]

Ahso judi, dann hab ichs falschrum gemacht! Sorry. Werds gleich mal versuchen..

[Akut-Programming]

Leider klappt es so rum auch nich.

[UweR]

Ich habe mich irgendwann mal vor Jahr und Tag damit rumgequält und krieg es so aus dem Stehgreif auch nicht mehr zusammen. Es kann sein das du bei dem Zugriff über WriteToFile oder WriteToStream gehen mußt damit dir dein RichEdit die Formatierung mit reinbastelt. Ich buddele heut abend noch mal und schaue mal ob ich was finde.

[Akut-Programming]

Moin Uwe!

Also das hier ist der Code, den ich beim auslesen ausführe:

Delphi-Quellcode:

TmpMemoryStream:= TMemoryStream.Create;
TmpStringList:= TStringList.Create;
try
   TmpStringList.Text:= dstGetReadme.Fields.Fields[1].AsString;
   TmpStringList.SaveToStream(TmpMemoryStream);
   TmpMemoryStream.Position:= 0;
   reReadme.PlainText:=true;
   reReadme.Lines.LoadFromStream(TmpMemoryStream);
finally
       TmpMemoryStream.Free;
       TmpStringList.Free;
end;

und das der Code beim speichern:

Delphi-Quellcode:

TmpMemoryStream:= TMemoryStream.Create;
TmpStringList:= TStringList.Create;
try
   reReadme.Lines.SaveToStream(TmpMemoryStream);
   TmpMemoryStream.Position:= 0; 
   TmpStringList.LoadFromStream(TmpMemoryStream);
   reReadme.PlainText:=false;
   cmdSaveReadme.CommandText:='update readme_tbl set readme = '''+TmpStringList.Text+''' where projekt = '''+SelectetProject+'''';
   cmdSaveReadme.Execute;
finally
       TmpMemoryStream.Free;
       TmpStringList.Free;
       StatusBar1.SimpleText:='Readme: Eintrag für "'+SelectetProject+'" wurde gespeichert';
       Timer1.Enabled:=true;
end;

Gruß,
Sascha

[UweR]

Hallo Sascha,

ich glaube ich hab's gefunden. Vor dem Schreiben in die RichEdit-Komponente setzt du Plain-Text auf True.

Zitat:

Delphi-Quellcode:

reReadme.PlainText:=true;
reReadme.Lines.LoadFromStream(TmpMemoryStream);

Ansonsten habe ich das damals glaube ich genauso gemacht. Du solltest auch Plaintext eigentlich auch immer auf False lassen, sonst siehst du die Steuerzeuchen in der RichEditkomponente im Klartext.