TRichEdit RTF Laden und Speichern in DB

[DeddyH]

Klappt es evtl. mit
FEditorForm.RichEdit1.Lines.Text := LText.DataString;

[Bummi]

Ich mache derartiges mir allen möglichen Arten von Daten ständig, allerdings mit MSSQL (IB konnte ich für mich bisher vermeiden), zudem verwende ich keine StringStream und Blobfields.
Hast Du es mal mit Speicherung in ein VarBinary- Feld, so es dort so heißt versucht

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
 ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
   Richedit1.Lines.SaveToStream(ms);
   ms.Position := 0;
   DS.Edit;
   TBlobField(DS.FieldByName('TEXT')).LoadFromStream(ms);
   DS.Post;
  finally
    ms.Free;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
 ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
   TBlobField(DS.FieldByName('TEXT')).SaveToStream(ms);
   ms.Position := 0;
   Richedit2.Lines.LoadFromStream(ms);

  finally
    ms.Free;
  end;
end;

[Mavarik]

Warum nimmst Du nicht einfach direkt ein DBRichEdit?

Grüsse

[Meta777]

Hallo DeddyH,

Zitat von DeddyH:

Klappt es evtl. mit
FEditorForm.RichEdit1.Lines.Text := LText.DataString;

Das funktioniert leider nicht, da zeigt er mir dann das RTF mark-up an.


Die Lösung: Ich lese das field jetzt .AsString in einem TStringStream und rufe dann RichEdit1.Lines.LoadFromStream() auf.
TIBQuery.CreateBlobStream() was von meiner LoadBlob() aufgerufen wird macht aus dem TextBlob-Feld automatisch Unicode.


@Mavarik: Ich verwende den DB-Zugriff gewrapped zur Laufzeit und habe kein Dataset-Komponente.


Danke euch allen für die Tipps

Shalom

[mschaefer]

Hallo,

auch wenn das schon etwas länger her ist, lege ich mal meine TDBRichMemo Komponente bei. Sicherlich ausbaufähig, aber einige Ideen finden sich auch darin.

Grüße // Martin