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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Иисyс изменил твою жизнь. Сохранить? (Да/Нет)

В этом примере поле ‘Table1Memo’ это paradox ‘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;

{/codecitation}

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