Как сохранить RTF в TBlobfield?
Falk0ner, вс, 06/07/2008 - 15:34.
В этом примере поле '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;
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;
Взято из http://forum.sources.ru
Отправить комментарий