Как сохранить 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