Как сохранить RTF в TBlobfield?

Previous  Top  Next

    
 

 

В этом примере поле 'Table1Memo' это paradox 'formatted memo'. Оно так же может быть полем blob.

 

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

Code:

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;

 

 

 

©Drkb::02464

Взято из http://forum.sources.ru