Как использовать потоки, чтобы сохранять и восстанавливать 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;
Комментарии