[Delphi] RTF do databáze

[dyžon]

zdravím,
potřeboval bych dostat formátovanej text RTF do databáze a zpět.
zkoušel jsem použít DBRichEdit i obyčejný TRichEdit
Ukládal jsem ho jak do WARCHAR, tak i do BLOB, PlainText:= True i False.
TRichEdit do BLOB:

Kód: Vybrat vše

//uložit
var ms: TMemoryStream;
//         .....
  ms := TMemoryStream.Create;
  RichEdit1.Lines.SaveToStream(ms);
  ms.Seek(0, soFromBeginning) ;
 
  IBQuery1.Active:= True;
  IBQuery1.Insert;
  TBlobField(IBQuery1.FieldByName('POPIS')).LoadFromStream(ms);
  IBQuery1.Post;

  FreeAndNil (ms);
end;

//načíst
var ms: TMemoryStream;
//         .....
  ms := TMemoryStream.Create;
  IBQuery1.Active:= True;
  TBlobField(IBQuery1.FieldByName('POPIS')).SaveToStream(ms);
  ms.Seek(0, soFromBeginning) ;
  RichEdit2.Lines.LoadFromStream(mS);
 
  FreeAndNil (ms);


TRichEdit do WARCHAR

Kód: Vybrat vše

//uložit
var textPopisu: AnsiString;
    ms: TMemoryStream;
//         .....
  ms := TMemoryStream.Create;
  ms.Clear;

  RichEdit1.Lines.SaveToStream(ms);
  ms.Position := 0;

  if (ms.Size > 0) then begin
    SetLength(textPopisu, ms.Size);
    if (ms.Read(textPopisu[1], ms.Size) <= 0) then
        raise EStreamError.CreateFmt('End of stream reached with %d bytes left to read.',[stream.Size]);
  end;

  ms.Free;
  IBQuery1.FieldByName('POPIS').AsAnsiString := textPopisu;

//načíst
var textPopisu: AnsiString;
    ms: TMemoryStream;
//         .....
  textPopisu := sql.FieldByName('POPIS').AsAnsiString;

  ms := TMemoryStream.Create;
  ms.Clear;
  ms.Write(PAnsiChar(textPopisu)^, Length(textPopisu));
  ms.Position := 0;
  RichEdit2.Lines.LoadFromStream(ms);

  ms.Free;

bohužel se mi nedaří do RichEdit2 dostat zformátovanej text, kterej sem napsal do RichEdit1 ..(barva písma, velikost, font)
můžete mi s tím prosím někdo pomoct, na netu jsem přečetl spoustu rad, ale žádná mi nefunguje.

[Just_jo]

Vyzkoušej toto
http://delphi.about.com/od/adptips2003/a/bltip1203_5.htm

Taky jsem se dočetl o použití Base64 encoding
https://stackoverflow.com/questions/6010084/keep-richedit-formatting-as-a-string

[Nargon]

Delphi neznám, ale jseš si jistý že funkce: RichEdit1.Lines.SaveToStream(ms); uloží do streamu vše, včetně formátování textu?

Já dělám v C# a tam vím že RichTextBox (nejspíš obdoba RichEditu v Delphi) v "Lines" obsahuje jen a pouze holý text bez formátovacích značek. Možná to v delphi funguje jinak, ale pro jistotu si to zkontroluj. Než budeš hledat problémy někde v databázi tak si to zkus jen zobrazit na obrazovku. RFT formát je lidsky čitelný text a formátovací značky jsou tam dobře identifikovatelné. Jestli tam máš jen holý text tak to bude zdroj tvého problému.

Uvádím příklad RFT formátu:

Kód: Vybrat vše

{\rtf1\ansi\ansicpg1250\deff0\deflang1029{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset238 Calibri;}}
{\colortbl ;\red255\green0\blue0;}
\viewkind4\uc1\pard\highlight1\lang1033\f0\fs24 Test\highlight0\lang1029\f1\par
}

Tento zápis obsahuje slovo "Test" napsaný fontem Calibri o velikosti 12pt a pozadí textu je červené.

[dyžon]

děkuji vám oboum,
řešením bylo použít TStringStream.DataString

jen mě zmátlo, že když existuje komponenta TDBRichEdit, tak jsem myslel, že ukládání do DB v RTF už bude mít v sobě.
podle mě by šlo poupravit TDBRichEdit, aby to fungovalo rovnou, ale ikdyž se zároveň snažím učit tvořit vlastní komponenty, tak na tohle si zatím netroufám.

pokud byste měl někdo čas a chuť se tím zabývat, tak to prosím sem postněte.
myslím, že je potřeba jen změnit Value, ktery se odesílá do DB a opačně změnit Value z DB na RTF text, ale vůbec nevím, ve kterých je to procedurách.

ještě jednou díky za pomoc.