Карта сайтаСсылкиКонтакты

Сохранение RTF в TBlobField

PDF Печать
Статьи

Как использовать потоки, чтобы сохранять и восстанавливать RTF из db-таблицы...

К сожалению, нет никакого управления типа TDBRichEdit. Как это можно решить?

В этом примере поле Table1Memo - поле formatted memo. Это также может быть Blob поле.

Через TBlobStream содержимое управления RichEdit будет загружено из базы данных или сохранено.


procedure TForm1.BtnGetClick(Sender: TObject); 
var 
  bs: TBlobStream; 
begin 
  bs:= Nil; 
  with Table1 Do 
    try 
      open; 
      first; 
      bs:= TBlobStream.Create( table1memo, bmread ); 
      Richedit1.plaintext := false; 
      Richedit1.Lines.Loadfromstream(bs); 
    finally 
      bs.free; 
      close; 
    end; 
end;


procedure TForm1.BtnPutClick(Sender: TObject); 
var 
  bs: TBlobStream; 
begin 
  bs:= Nil; 
  with Table1 Do 
    try 
      open; 
      first; 
      edit; 
      bs:= TBlobStream.Create( table1memo, bmwrite ); 
      Richedit1.plaintext := false; 
      Richedit1.Lines.Savetostream(bs); 
      post; 
    finally 
      bs.free; 
      close; 
    end; 
end; 

 

Добавить комментарий


Защитный код
Обновить